Bonjour, j'ai un petit soucis dans le mise dans la fonction range de variable.
C'est surement rien de compliqué, mais je galère un peu

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
 
Dim compteur As Integer
compteur = 5
Dim Obj As OLEObject
For Each Obj In Feuil1.OLEObjects
    If TypeName(Obj.Object) = "CheckBox" Then
        compteur = compteur + 1
    End If
Next
 
    Range("A" & compteur : I & compteur ").Select
Mon but est de compter le nombre de "check box" et d'ajouter un ligne ( avec des paramètres du type couleur et un check box à la fin ) de façon automatique.

Ne sachant pas s'il existe une fonction sous excel qui me permettrais d'avoir directement le nombre de ligne "non-vide" ( du type : Last_ligne ecrite qui renvoie un nombre ) je n'ai comme solution que de compter le nombre de check box que j'ai à la fin de chaque ligne )

Merci