Je d=E9bute en VBA et je bloque depuis un moment sur un probl=E8me
d'Option Button.
Dans mon formulaire nomm=E9 UsfSaisie j'ai quatre optionbuttons dans une
Frame (FrTypes) (OpTypes1 avec Album en caption, OpTypes2 avec Livre en
caption, OpTypes3 avec Artbook en caption et OpTypes4 avec Autres en
caption)
Petite pr=E9cision ces 4 boutons sont sur une Multipage appell=E9e
caract=E9ristique.
Ce que je veux faire (et que je n'y arrive pas !) :losque je coche un
bouton je voudrais que le caption du bouton s'inscrive dans la colonne
H qui s'appele Types dans la feuille Liste.
Pouvez-vous m'aider car je tourne en rond depuis plusieurs jours !!
Je l'ai fait à partir de mon boulot il doit y avoir des sécurités bloquant les macros alors voici un nouveau lien à partir de chez moi qui fonctionne : http://cjoint.com/?hywNtCZ21k
Je l'ai fait à partir de mon boulot il doit y avoir des sécurités
bloquant les macros alors voici un nouveau lien à partir de chez moi
qui fonctionne : http://cjoint.com/?hywNtCZ21k
Je l'ai fait à partir de mon boulot il doit y avoir des sécurités bloquant les macros alors voici un nouveau lien à partir de chez moi qui fonctionne : http://cjoint.com/?hywNtCZ21k
Daniel
Ouf ! J'ai modifié comme suit : If OpTypes1 = True Then Sheets("Liste").Range("G65535").End(xlUp).Offset(1, 0) = OpTypes1.Caption ElseIf OpTypes2 = True Then Sheets("Liste").Range("G65535").End(xlUp).Offset(1, 0) = OpTypes2.Caption ElseIf OpTypes3 = True Then Sheets("Liste").Range("G65535").End(xlUp).Offset(1, 0) = OpTypes3.Caption ElseIf OpTypes4 = True Then Sheets("Liste").Range("G65535").End(xlUp).Offset(1, 0) = OpTypes4.Caption End If Fais attention, il doit en être de même pour les checkboxes de la frame "Genre". Daniel "knut" a écrit dans le message de news:
Je l'ai fait à partir de mon boulot il doit y avoir des sécurités bloquant les macros alors voici un nouveau lien à partir de chez moi qui fonctionne : http://cjoint.com/?hywNtCZ21k
Ouf !
J'ai modifié comme suit :
If OpTypes1 = True Then
Sheets("Liste").Range("G65535").End(xlUp).Offset(1, 0) =
OpTypes1.Caption
ElseIf OpTypes2 = True Then
Sheets("Liste").Range("G65535").End(xlUp).Offset(1, 0) =
OpTypes2.Caption
ElseIf OpTypes3 = True Then
Sheets("Liste").Range("G65535").End(xlUp).Offset(1, 0) =
OpTypes3.Caption
ElseIf OpTypes4 = True Then
Sheets("Liste").Range("G65535").End(xlUp).Offset(1, 0) =
OpTypes4.Caption
End If
Fais attention, il doit en être de même pour les checkboxes de la frame
"Genre".
Daniel
"knut" <a.knut@orange.fr> a écrit dans le message de news:
1153773841.320928.62160@b28g2000cwb.googlegroups.com...
Je l'ai fait à partir de mon boulot il doit y avoir des sécurités
bloquant les macros alors voici un nouveau lien à partir de chez moi
qui fonctionne : http://cjoint.com/?hywNtCZ21k
Ouf ! J'ai modifié comme suit : If OpTypes1 = True Then Sheets("Liste").Range("G65535").End(xlUp).Offset(1, 0) = OpTypes1.Caption ElseIf OpTypes2 = True Then Sheets("Liste").Range("G65535").End(xlUp).Offset(1, 0) = OpTypes2.Caption ElseIf OpTypes3 = True Then Sheets("Liste").Range("G65535").End(xlUp).Offset(1, 0) = OpTypes3.Caption ElseIf OpTypes4 = True Then Sheets("Liste").Range("G65535").End(xlUp).Offset(1, 0) = OpTypes4.Caption End If Fais attention, il doit en être de même pour les checkboxes de la frame "Genre". Daniel "knut" a écrit dans le message de news:
Je l'ai fait à partir de mon boulot il doit y avoir des sécurités bloquant les macros alors voici un nouveau lien à partir de chez moi qui fonctionne : http://cjoint.com/?hywNtCZ21k
