Combinaison de CountA + While ou For + If avec Variable
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:
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.
