Comparer Date
Bonjour, voici mon code :
rec = ""
Dim A_Date
A_Date = Date
For i = 6 To 1200
If A_Date >= Sheets("Audit").Range("G" & i).Value Then
rec = rec & vbNewLine & Range("a" & i)
End If
Next i
MsgBox ("Noms des audits 6 serrage au couple :" & rec)Pour la partie surligner, j'aimerai que ma variable ne prend que le mois et l'année et non le jou, mois, année.
Merci.
Bonjour,
essaye ceci, enfin si j'ai bien compris...
Dim A_Date
A_Date = Format(Date, "mmyyyy")bon après midi
@
Bonjour,
Dim A_Date
A_Date = Format(Date, "mmyyyy")Cela me renvoie toutes les cellules, je précise que le format de mes cellules est Date.
Je pense que vu qu'il ne trouve pas le jour, il renvoie tout.
Bon aprem.
Bonjour,
Que contiennent les valeurs dans la colonne G?
Une date, ou un texte (date), et sous quelle forme?
Sinon un petit fichier?
Cdlt.
Bonjour, désolé fichier trop lourd.
La colonne G contient des dates en format Date courte. et sous forme JJ/MM/AAAA Cdt.
Re,
La colonne G contient des dates en format Date courte. et sous forme JJ/MM/AAAA
en l'état de ton code tu cherches à "variabiliser" la date système, pas une cellule... essaye peut être de tester directement ta cellule avec la date système sans passer par une variable....
re,
Plus clairement (avec ?? = numéro de colonne de la cellule)
rec = ""
For i = 6 To 1200
If Cells(i,??) >= Sheets("Audit").Range("G" & i).Value Then
rec = rec & vbNewLine & Range("a" & i)
End If
Next i
MsgBox ("Noms des audits 6 serrage au couple :" & rec)Re,
On en revient toujours au même problème, le fait que.
exemple :
A6 contient le nom d'une personne
F6 contient 20/09/2013
G6 contient 20/04/2014
Donc j'ai une formule qui calcul la date en G6 : 6 mois plus tard.
Donc je voudrais que la msgbox donne le nom 7 mois plus tard. (Changement de consigne)
Cdlt.
Re,
Envoie un fichier anonymisé afin que l'on comprenne précisément la question et le problème rencontré.
Cdlt.
En gros ça serait :
rec = ""
Dim A_Date
A_Date = Date + 1 mois
For i = 6 To 1200
If A_Date >= Sheets("Audit").Range("G" & i).Value Then
rec = rec & vbNewLine & Range("a" & i)
End If
Next i
MsgBox ("Noms des audits 6 serrage au couple :" & rec)Donc la date d'aujourd'hui + 1 mois.
Cdlt.