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
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