Discussion :

[Alex_padol]

Hello !
Voila je suis débutant en VBA et j'ai besoin d'un petit coup de pouce car je bloque sur mon code
J'aimerai réaliser une boucle qui me permettrai de réaliser une succession d'actions, voici mon code:


le code ci-dessous remplit correctement les cases sur Excel mais sans boucle, mon code risquerait d'être très très long lol
Savez-vous comment je pourrai optimiser cela ?
Merci d'avance de votre aide !

[ARTURO83]

Bonjour,

En supposant que la zone à remplir est C3:R18

Code :

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

1
2
3
4
5
Sub Compter()
    Application.ScreenUpdating = False
    Range("C3:R18").FormulaR1C1 = "=COUNTIFS(Suivi!C6,R2C,Suivi!C12,RC2)"
    Range("C3:R18").Value = Range("C3:R18").Value
End Sub

Pièce jointe 575088

Cdlt

[Alex_padol]

Salut Arturo83 !
Je te remercie infiniment, ton code marche à merveille !

[Menhir]

Dans un cas comme celui-ci, les boucles ne sont pas utiles mais si tu veux te renseigner à leur sujet pour un usage futur, lire ça :
https://silkyroad.developpez.com/vba/boucles/
https://bidou.developpez.com/article/VBA/

Et n'oublie pas que VBA Excel dispose d'une aide en ligne très bien conçue.
S tu veux des infos sur une boucle particulière, c'est une source à privilégier.