Bonjour Dany,
En fait mon remplissage ce fait correctement et lorsque j'essais avec For Each c In Range("E3:" & fin_remplissage1) ça ne marche pas.
L'image 1 représente ce que je veux avoir avec le code plus bas et la case nommée "fin remplissage1" est la dernière ligne de la colonne fournisseur.[attachment=1]image1.JPG
L'image 2 représente ce que j'obtient lorsque je fais ma macro de remplissage, avec le code plus bas.
If MsgBox("Avez-vous remplis les cases vides?", vbYesNo, "Demande de confirmation") = vbNo Then
Dim c As Range
Dim currentRow, currentColumn As Integer
For Each c In Range("E3:fin_remplissage1")
currentRow = c.Cells.Row
currentColumn = c.Cells.Column
If c = "" And ActiveSheet.Cells(currentRow, currentColumn + 1) = "" And ActiveSheet.Cells(currentRow, currentColumn + 2) = "" Then
c = 1
End If
Next
MsgBox "Les cases vides ont été remplis!"
End If
End Sub
Désolé si c'est compliqué/m'exprime mal je suis débutant autodidacte en toute forme de programmation