|
|
|
|
Bonjour,
Je possède un listing de tache à effectuer avec des dates. Ce listing est trié chronologiquement.
Je dois programmer une macro VBA pour Excel me permettant de selectionner la ligne correspondant à une date ou, si cette date n'est pas dans la liste, la ligne du jour d'après. (ou le jour le plus proche après)
Après avoir cherché un peu sur les forums, j'ai fini par ecrire un code, mais je ne vois pas où est le problème...
Dim i As Variant
i = 0
Dim L As Variant
L = 1
Dim A As Date
Dim B As Date
'détermine la dernière ligne remplie
Worksheets("feuil1").Range("H4").Value = Worksheets("active").Range("A65536").End(xlUp).Row
While i < (Range("H4").Value + 1) And L <> 0
'convertit et compare les valeurs de case en date.
A = FormatDateTime(Worksheets("active").Range("K" & i).Value, 1) **************LIGNE DE L'ERREUR
B = FormatDateTime(Worksheets("feuil1").Range("I17").Value, 1)
If A < B Then
i = i + 1
Else
L = Range("K" & i).Row - 1
End If
Wend
'Inscrit la valeur de la ligne correspondant à la date recherchée
Worksheets("feuil1").Range("I20").Value = L
A vot' bon coeur !! ;)
Foufou
Configuration: Windows XP Internet Explorer 7.0
Mon code est imbitable désolé...
Dim i As Variant 'l'index d'incrementation
Dim L As Variant 'le numéro de la ligne retenu
Dim A As Date 'la date de recherche
Dim B As Date 'la date d'index
L = 1
i = 0
Worksheets("feuil1").Range("H4").Value = Worksheets("active").Range("A65536").End(xlUp).Row
While i < (Range("H4").Value + 1) And L <> 0
A = FormatDateTime(Worksheets("active").Range("K" & i).Value, 1) ***LIGNE DE L'ERREUR
B = FormatDateTime(Worksheets("feuil1").Range("I17").Value, 1)
If A < B Then
i = i + 1
Else
L = Range("K" & i).Row - 1
End If
Wend
Worksheets("feuil1").Range("I20").Value = L |
Cellule active excel vba Comparaison date java Document excel date du jour Excel vba cellule doit contenir des chiffres Excel vba loop while activecell Excel vba replace Excel vba textbox Filtrer compris entre 2 date vba excel Php comparer date Recherche valeur positive vba excel Trouver chiffre négatif ligne excel vba Vba descendre fin de la feuille excel Vba excel Vba excel "boite de dialogue" nom fichier Vba excel chemin fichier Vba excel date format Vba excel filtre sur variable Vba jusqu'à la fin de la feuille excel
