Discussion :

[babemagus]

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

[laurentabj]

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 :

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

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

[babemagus]

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

Merci encore