|
|
|
|
Configuration: Windows XP Internet Explorer 6.0
Bonjour, il semble qu'il y ait un gros problème dans ta boucle, tu redefinis a chaque fois ta variable "a" et au final "a" ne te retourne true ou false que pour ta dernière checkbox
P4 2.4, 512 DDR,Geforce 6200 AGP Win XP SP2|||P3 1 GHZ , 256 SDRAM, Debian Etch ||| P3 1Ghz , 392 SDRAM , Xubuntu 6.10
AMD Sempron 2600+,768 DRR , Win 2k|||AMD Athlon 64 X2 4200+, 2 Go DDR Ubuntu, Suse ou Solaris pas encore choisi |
a oui pas con mais le problème réel ne vient pas de là. le problème vient de cet ligne
CheckBox"&i. je ne sais pas comment appeler ma checkbox |
bonjour,
Voici un petit code qui pourra t'aider il passe en revue tous les controles qui sont sur ton userform, et recupère la valeur des controles CheckBox, à toi d'en faire ce que tu as prévu. j'ai affecté cette macro a CommandButton1, il faudra adapter. Private Sub CommandButton1_Click() Dim ctrl As control, nom As String For Each ctrl In Me.Controls nom = ctrl.Name If InStr(nom, "CheckBox") = 1 Then MsgBox nom & " = " & ctrl.Value End If Next
|
parce que moi j'ai une erreur de compilation en écrivant Feuil.Controls |
En fait ça marche sur un UserForm, pour une feuille je n'ai pas essayé, je cherche. |
et c'est quoi une userform. |
ok j'ai trouvé je peux en insérer une mais c'est sur VBA. alors que moi j'ai placé mes 100 checkbox dans des cellules sous excel en face d'éléments que je veux "séléctionner". |
If Feuil3.CheckBox(i).Value = True Then
a = 1 End If en faisant la phrase ne s'écrit pas en rouge mais si je lance la commande j'ai une erreur compil |
Salut,
J'avais le même problème que toi et voilà comment je l'ai résolu, si cela peux t'aider: Lorsque tu insères tes checkbox dans la feuille excel, tu fait un clic droit sur la checkbox, tu clic sur "Format de contrôle". Dans l'onglet "Contrôle" tu associes une cellule de ta ligne à selectionner ex: Cellule Liée : C4. Lorsque celle ci est associée, tu t'aperçois que lorsque la case à cocher est cochée, il apparait "VRAI" dans la cellule liée. Il te reste à faire une boucle sur les lignes : If Sheets("club").Range("C4").Offset(ligneclub, 0) = True Then ... ligneclub = ligneclub+1 Il faut vérifier la cellule par "true" et non pas "VRAI" comme elle l'indique. J'espère t'avoir aider.... @+++ Arnaud |
PS :
Cela te permet également de remettre toutes tes checkboxs à 0, tu met Faux dans la colonne sélectionnée. @ |
| 15/09 10h59 | [Excel] Colorer des cellules sur conditions | Excel |
| 15/09 11h07 | [Excel] Restreindre l'accés aux cellules | Excel |
| 12/11 01h11 | [excel] | Excel |
| 14/02 19h16 | [Windows] Personnaliser la boîte de dialogue [Enregistrer] | Windows |
| 14/05 13h04 | VBA : Trouver Hdc d'une feuille Excell et Userform | Bureautique |
| 03/05 16h09 | [VBA Excel] Boucle sur CheckBox ? | 39 |
| 19/08 15h29 | VBA Excel - Pb d'actualisation boucle for | 4 |
| 12/08 15h39 | VBA Excel - Problème de boucle for | 3 |
| 17/07 08h58 | Boucle While avec incrémentation : vba excel | 3 |
![]() | Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même... | Catégorie: Tableur Licence: Freeware/gratuit |
![]() | MOREFUNC (Macro complémentaire EXCEL) - Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont... | Catégorie: Tableur Licence: Freeware/gratuit |
![]() | Ms Word Excel Cracker - Ms Word Excel Craker est une application permettant de retrouver les mots de passe perdus ou oubliés pour les fichiers.xls... | Catégorie: Suite bureautique Licence: Freeware/gratuit |
![]() | ConnectCode Free Excel Training - Office Excel est un incontournable quand on utilise Windows comme l'est Word. Néanmoins son utilisation n'est pas des plus... | Catégorie: Bureautique Licence: Freeware/gratuit |
![]() | Sony Micro Vault Excellence | Catégorie: Carte Mémoire / Clé USB | 72.51 € Amazon.fr |
![]() | Sony Micro Vault Excellence | Catégorie: Carte Mémoire / Clé USB | 16.74 € Misco FR |
![]() | Sony Micro Vault Excellence | Catégorie: Carte Mémoire / Clé USB | 23.85 € Amazon.fr |
![]() | Sony Micro Vault Excellence | Catégorie: Carte Mémoire / Clé USB | 38.99 € PriceMinister |