-
Edité par samuellubota 5 mai 2018 à 21:26:54

Alors en fait .... Je te conseille de donner un nom plus explicite à ton sujet, nous nous doutons bien que tu viens ici pour chercher de l'aide. Notamment en précisant le nom du langage utilisé puisque actuellement, aucun moyen de t'aider.

Ca t'aidera surement à avoir une réponse ...

omg mes yeux !

Sub saisie2()
Dim Lig As Long
Dim NbrLig As Long, NumLig As Long
Dim cde As String
Dim i As Integer
Dim D1 As Date
Dim D2 As Date
Dim mc As Range
D1 = Range("G").Value
'Set mc = Range("date7")
'D2 = Range("datefin").Value


NbrLig = Worksheets("Feuil1").Range("A" & 65536).End(xlUp).Row
NumLig = Worksheets("Feuil2").Range("C" & 65536).End(xlUp).Row

For Lig = 1 To NbrLig
cde = Worksheets("Feuil1").Range("A" & Lig)
If cde = "" Then GoTo lab
i = 1


For i = 1 To NumLig

If Worksheets("Feuil2").Range("C" & i).Value = cde Then

If Worksheets("Feuil2").Range("D" & i).Value = D1 Then ' parcourir les dates entre

anneecap date histo
Worksheets("Feuil2").Range("H" & i).Copy
Worksheets("Feuil1").Range("B" & Lig).Select
ActiveSheet.Paste
Exit For
End If
End If

Next i

lab:
Next Lig
End Sub

ça t'aideras à avoir une réponse aussi.

@Cypher00, le langage utilisé est le VB (il le marque dans le sous-titre, mais c'est vrai que c'est pas explicite :/)

ThomAz_ a écrit:

omg mes yeux !

Sub saisie2()
Dim Lig As Long
Dim NbrLig As Long, NumLig As Long
Dim cde As String
Dim i As Integer
Dim D1 As Date
Dim D2 As Date
Dim mc As Range
D1 = Range("G").Value
'Set mc = Range("date7")
'D2 = Range("datefin").Value


NbrLig = Worksheets("Feuil1").Range("A" & 65536).End(xlUp).Row
NumLig = Worksheets("Feuil2").Range("C" & 65536).End(xlUp).Row

For Lig = 1 To NbrLig
cde = Worksheets("Feuil1").Range("A" & Lig)
If cde = "" Then GoTo lab
i = 1


For i = 1 To NumLig

If Worksheets("Feuil2").Range("C" & i).Value = cde Then

If Worksheets("Feuil2").Range("D" & i).Value = D1 Then ' parcourir les dates entre

anneecap date histo
Worksheets("Feuil2").Range("H" & i).Copy
Worksheets("Feuil1").Range("B" & Lig).Select
ActiveSheet.Paste
Exit For
End If
End If

Next i

lab:
Next Lig
End Sub

ça t'aideras à avoir une réponse aussi.

@Cypher00, le langage utilisé est le VB (il le marque dans le sous-titre, mais c'est vrai que c'est pas explicite :/)

Au temps pour moi, je n'avais pas vu ...

Quand à la réponse ... bonjour la doc ! :

https://msdn.microsoft.com/fr-fr/library/system.datetime.compare(v=vs.110).aspx

Si c'est comparer plusieurs dates (plus de deux), tu t'en tireras avec un peu d'algorithmique de base