Discussion :

[mathspountz]

Bonjour à tous,

J'ai un fichier excel avec des checkbox placé dans les cellules d'un tableau. L'utilisateur les coche selon ses besoins.
J'aimerais que via, une macro, excel puisse me renvoyer la valeur des cellules de la première colonne des lignes, où les checkboxs ont été cochées.

Le problème, c'est que le fichier en question a été créé n'importe comment et le nom des checkboxs n'ont aucune logique. De plus, il serait préférable de ne pas trop le modifier.

La question est donc :

Est-il possible, à partir des coordonnées d'une cellule, de selectionner une checkbox ?

Je pense que ce que c'est impossible, mais sait-on jamais. Si quelqu'un à une idée.

[Fred.dz]

Je ne pense pas non plus que ce soit possible. Je pense que la solution la plus simple est de modifier les noms de tes checkbox. Je suppose que si t'as pas trop envie d'y toucher c'est parce qu'il y a des références à ces checkbox dans le code, mais bon la fonction remplacer devrait rendre le tout pas trop pénible.

[jfontaine]

Bonjour,

Voici un exmeple de fonction

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
16
17
Function Cherche_Checkbox(strAddress As String) As String
Dim obj As OLEObject
Dim strRetour As String
 
For Each obj In Me.OLEObjects
 
    If TypeOf obj.Object Is MSForms.CheckBox Then
        If obj.TopLeftCell.Address(False, False) = strAddress Then
            strRetour = obj.Name
        End If
    End If
 
Next
 
Cherche_Checkbox = strRetour
 
End Function

Que l'on utilise comme cela. Retourne le nom de checkbox qui se trouve en A16

Code :

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

MsgBox Cherche_Checkbox("A16")

Et pour cocher ou décocher la checkbox d'une cellule

Code :

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

Coche_decoche "A4"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Coche_decoche(strAddress As String)
Dim obj As OLEObject
 
For Each obj In Me.OLEObjects
 
    If TypeOf obj.Object Is MSForms.CheckBox Then
        If obj.TopLeftCell.Address(False, False) = strAddress Then
            obj.Object.Value = Not obj.Object.Value
        End If
    End If
 
Next
 
End Sub

[mathspountz]

Woaw ! Je suis impressionné, on peut vraiment tout faire avec excel !

Par contre, il y a un problème que je ne sais pas corriger tout seul car j'avoue que cette fonction dépasse mes compétences :

Quand je la lance, il me met "utilisation incorrect du mot clé : Me". (ligne 5)

J'ai donc changé Me par workbooks("nom du classeur").
Cette fois ci le problème est ligne 6. : "Type défini par l'utilisateur non défini".

J'ai essayé de m'inspirer de ça (http://msdn.microsoft.com/en-us/libr...(v=vs.80).aspx) pour corriger mais je n'y arrive pas...

[jfontaine]

Code :

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

For Each obj In Me.OLEObjects

Ici Me est un raccourci pour nommer la feuille quand le code se trouve sur la feuille contenant les objets
Si ton code se trouve dans un module, il faut stipuler le nom de la feuille

Code :

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

For Each obj In Sheets("Feuil1").OLEObjects

[mathspountz]

Merci pour ton message.
Effectivement j'avais mis le code dans un module. J'ai donc changé me par le workbooks("workbook").sheets("feuille") mais j'ai toujours un problème ligne 6.

"Type défini par l'utilisateur non défini".