Discussion :

[scayhes]

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 !

[SfJ5Rpw8]

Avec un find ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim c As Range
 Dim p As Range 'plage de recherche
 Dim MemoPremier As String
 Set p = ThisWorkbook.Sheets("DETAIL DES REFS").Columns(1) ' définit plage de recherche 1° feuille, 1° colonne
 
Set c = p.Find("*", LookIn:=xlValues)
If Not c Is Nothing Then
        MemoPremier = c.Address
        Do
            Debug.Print c.Address & " : " & c
            c = c & " : ok"
            Set c = p.FindNext(c)
        Loop While Not c Is Nothing And c.Address <> MemoPremier
End If