INFINITY100
XLDnaute Occasionnel
Bonjours tout le monde
je viens vers vous pour une aide concernant mon code
En effet dans mon fichier j’ai un tableau qui se compose de 3 colonnes et 9 lignes hormis la ligne du titre qui est la ligne 1 avec quelques cellules remplies par un OK
Par ailleurs j'ai un code qui me rempli uniquement les cellules vides. Seulement ce code il ignore toujours les lignes d’avant le premier OK (Dans cet exemple les lignes ignorées sont la 2 et 3).
Or que moi je veux remplir toute les cellules vides soit avant ou après le OK
Donc ma question est toute simple que faudrait-il modifier dans ce code pour avoir le résultat souhaité
Merci à vous tous
Cordialement
Je joins le fichier pour y voir plus claire
Et voici mon code en question :
je viens vers vous pour une aide concernant mon code
En effet dans mon fichier j’ai un tableau qui se compose de 3 colonnes et 9 lignes hormis la ligne du titre qui est la ligne 1 avec quelques cellules remplies par un OK
Par ailleurs j'ai un code qui me rempli uniquement les cellules vides. Seulement ce code il ignore toujours les lignes d’avant le premier OK (Dans cet exemple les lignes ignorées sont la 2 et 3).
Or que moi je veux remplir toute les cellules vides soit avant ou après le OK
Donc ma question est toute simple que faudrait-il modifier dans ce code pour avoir le résultat souhaité
Merci à vous tous
Cordialement
Je joins le fichier pour y voir plus claire
Et voici mon code en question :
VB:
Sub RemplirCelluleVide()
Dim Cell As Range
Dim Plage As Range
Dim InputValue As String
On Error Resume Next
InputValue = "P"
With Worksheets("Essai")
Set Plage = .Range(.Cells(10, 3), .Cells(.Rows.Count, 1).End(xlUp))
For Each Cell In Plage
If IsEmpty(Cell) Then
Cell.Value = InputValue
End If
Next
End With
End Sub