[VB]Range contenant des variables

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:

---

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

Je ne pense pas que ton ".Object" soit nécessaire dans ton TypeName().
D'autre part, la concatenation de ton adresse n'est pas correcte.

Essaie ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim compteur As Integer Dim adresse as string   compteur = 5 Dim Obj As OLEObject For Each Obj In Feuil1.OLEObjects If TypeName(Obj) = "CheckBox" Then compteur = compteur + 1 End If Next   adresse = "A" & compteur & ":I" & compteur   Range(adresse).Select

---

Parfait, ca marche, je n'ai plus qu'a trouver un moyen de bien palcer mes check box ^^.

Merci encore