Bonjour à tous,
j'ai un petit soucis. J'ai un code qui rajoute des caractères à toutes les cellules non vides d'une colonne. Pour cela j'ai fait une boucle, mais j'ai pas mal de lignes dans mon fichier et au lieu de tester la condition sur chaque cellule (condition = cellule non vide), je voudrais aller directement de cellule non vide en cellule non vide, mais je ne vois pas bien comment faire. J'espère être assez clair !!

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Checkcommentaire()
'Compte le nombre de lignes
    NbLig = Sheets("DETAIL DES REFS").Range("A" & Rows.Count).End(xlUp).Row
    NbLig = NbLig + 1
'Trouve et change les données
'Sheets("DETAIL").Select
 
For i = NbLig To 2 Step -1
If Sheets("DETAIL").Cells(i, 35).Value <> "" Then
Sheets("DETAIL").Cells(i, 35).Value = Cells(i, 35) & " : ok"
End If
Next
 
End Sub

Je vous remercie par avance pour votre aide !