Bonjour,

J'ai un tableau dans lequel il faut que j'aille ligne apres ligne tester si les cellules de certaines colonnes sont vides ou non afin de noter dans la derniere colonne la valeur "National" ou "Local"

Mon soucis est que j'ai un grand nombre de colonnes et je voudrais introduire un loop avec For ou While et une variable i.
Pour i = 0 // je passe par la colonne C
Pour i = 1 // je passe par la colonne G
Pour i = 2 // je passe par la colonne K
...


Voici mon code proto et mon probleme c'est qu'il prend en compte toutes les colonnes et non pas 1 sur 4. Je ne sais pas comment integrer ma variable.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub Revendeurs()
    Dim dl As Integer
    Dim pl As Range
    Dim t As String
    Dim i As Integer
 
         With Sheets("Store")
             dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row
             Set pl = .Range("R:R" & dl)
         End With 'Sheets("Store")
 
	For
		i = 0 to 3   ' imaginons 4 colonnes, la premiere etant C
	Next	
 
	For Each cel In pl	
            If Application.WorksheetFunction.CountA(cel.Offset(0, -16).Resize(1, 16)) <> 1 Then
                cel.Value = "National"
             Else
                t = cel.Offset(0, -16).Resize(1, 16).SpecialCells(xlCellTypeConstants).Value
                    cel.Value = "Local"
	   End If
	Next
End Sub
Mille mercis pour votre aide.