Boucle pour améliorer mon code

Version imprimable

Bonjour
Je débute en VBA
J'ai bricolé ce petit bout de code mais je pense que l'on peut l'améliorer.
Mon souhait :
1° pour la Dim V, je voudrais qu'il prenne les cellules allant de B10 à B21 à chaque calcul
2° j'aurais aimé ne pas avoir à mettre 12 lignes identiques

Je suppose qu'il faut faire une sorte de boucle

J'espère que mon explication est claire

merci pour votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_activate()
 
    Dim V
 
    V = Application.WorksheetFunction.VLookup(Range("B10"), Sheets("setup").Range("SetupImportMois"), 2, 0)
 
    Range("C10") = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2" & ":" & V & Rows.Count))
    Range("C11") = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2" & ":" & V & Rows.Count))
    Range("C12") = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2" & ":" & V & Rows.Count))
    Range("C13") = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2" & ":" & V & Rows.Count))
    Range("C14") = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2" & ":" & V & Rows.Count))
    Range("C15") = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2" & ":" & V & Rows.Count))
    Range("C16") = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2" & ":" & V & Rows.Count))
    Range("C17") = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2" & ":" & V & Rows.Count))
    Range("C18") = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2" & ":" & V & Rows.Count))
    Range("C19") = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2" & ":" & V & Rows.Count))
    Range("C20") = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2" & ":" & V & Rows.Count))
    Range("C21") = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2" & ":" & V & Rows.Count))
 
End Sub

Bonjour,

Je ne comprends pas le but, mais tu peux boucler ainsi
Code:

1 2 3 For I = 10 to 21 Range("C" & I) = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2:" & V & Rows.Count)) Next

24/02/2017, 22h05
rossemma

Super merci cela fonctionne
24/02/2017, 22h14
unparia

Bonjour
Excusez-moi, mais je ne comprends pas la nécessité d'une boucle pour affecter finalement la même valeur à toutes les cellules d'une plage.
Je ne vois en effet rien varier.
Quelque-chose m'aurait-il échappé ?

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
rivate Sub worksheet_activate()
 
    Dim V
    Dim i As Byte
 
    Application.ScreenUpdating = False
    For i = 10 To 21
    V = Application.WorksheetFunction.VLookup(Range("B" & i), Sheets("setup").Range("SetupImportMois"), 2, 0)
    Range("C" & i) = Application.CountA(Sheets("MOIS-MAAND").Range(V & "2:" & V & Rows.Count))
    Next
    Application.ScreenUpdating = True
 
End Sub

25/02/2017, 20h48
Philippe Tulliez

Bonjour,
Comme unparia, je ne comprends pas la raison d'effectuer une boucle pour obtenir le même résultat qu'une fonction native d'excel peut effectuer parfaitement même si c'est pour l'insérer avec un code VBA. Une seule ligne de code suffit

Voici mon code modifié

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub worksheet_activate()
 
    Dim i As Byte
 
    Application.ScreenUpdating = False
    For i = 10 To 21
    Range("C" & i) = Application.CountA(Sheets("MOIS-MAAND").Range(Application.WorksheetFunction.VLookup(Range("B" & i), Sheets("setup").Range("SetupImportMois"), 2, 0) & "2:" & Application.WorksheetFunction.VLookup(Range("B" & i), Sheets("setup").Range("SetupImportMois"), 2, 0) & Rows.Count))
    Next
    Application.ScreenUpdating = True
 
End Sub