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