Bonjour le forum,
Voila j'ai un soucis avec mon code. En effet, sur une feuille appelée "test", j'essaie d'incrémenter en colonne B une date qui avance de deux mois sur plusieurs lignes en fonction d'un critère: Si dans la colonne A il y a écrit dans une ou plusieurs cellules sbm, on incrémente la date sinon on incrémente pas.
Voici le code:
Public Sub test()
Dim i As Integer
i = 1
Do While Range("A65500").End(xlUp).Row + 1 'Faire la boucle tant que la cellule sélectionée est svm
If Range("A" & i) = "sbm" Then
With Sheets("test")
Cells(b + 1, 2) = DateAdd("m", 2, b)
End With
End If
Loop
End Sub
En espèrant que vous pourrez m'aider,
Merci d'avance,
Cordialement,
Vassili