Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Récuperer la valeur d'un Case d'Option

Récuperer la valeur d'un Case d'Option

14 réponses
Avatar
Lolo
Bonjour à toutes et à tous,

Dans mon classeur se trouve 7 onglets. Sur l'onglet 1, se trouve un
bouton correspondant à une macro d'Impression.
Y a t-il possibilité de mettre 6 Cases d'Option de la boite à outils
Controles, chaque Case d'Option se rapportant à 1 onglet.
Case1 = Onglet2
Case2 = onglet3 ....Case6 = Onglet7
et, peut-on récupérer le nom de l'onglet pour le donner à ma macro
d'impression.
Ex : Je clique sur la Case d'Option 2 et j'appuie sur le bouton
Impression qui m'imprime l'onglet3.

Merci d'avance.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Comres.metz
Merci pour le classeur. Je vais tester tout cela ce soir et je vous tiens au
courant.

"Jacques93" a écrit dans le message de
news:
Bonjour,

Classeur ici :

http://cjoint.com/?hlqo2RK0qR

toutes les feuilles à l'exeption de 'Suivi5', c'est donc la seule qui
s'imprime.

Cela fonctionne et cela ne fonctionne pas.
A l'ouverture du classeur, j'ai un message d'erreur.
Erreur d'execution 424. Objet requis.
Si je clique sur débogage, c'est la premiere ligne :
.OptionButton1.Caption


= "Suivi1" qui est surligné en jaune.

Par contre, dans ma feuille, si je selectionne le Case Option3 et que je
clique sur mon bouton, cela imprime la bonne feuille. Ceci fonctionne.
C'est


cool, c'est exactement ce que je voulais.

Je me penche sur l'erreur 424 mais j'avoue ne rien comprendre à l'aide
de


Crosoft.
Ce qui fait que je vous mets encore à contribution ..... ;-)
Merci d'avance.



"Jacques93" a écrit dans le message
de


news:

Bonjour,

Essaie :
7 cases d'options nommés OptionButton1 à OptionButton7

Dans ThisWorkbok, tu colles :

Private Sub Workbook_Open()
With Feuil1 ' Nom de la feuille qui contient les OptionButton
.OptionButton1.Caption = "Suivi1"
.OptionButton2.Caption = "Suivi2"
.OptionButton3.Caption = "Suivi3"
.OptionButton4.Caption = "Suivi4"
.OptionButton5.Caption = "Suivi5"
.OptionButton6.Caption = "Suivi6"
.OptionButton7.Caption = "Suivi7"
.OptionButton1.Value = True
End With
end with

Et dans le code de la feuille qui contient les OptionButton et les
CommanButton, tu colles (Pour que cela fonctionne, il faut que les 7
feuilles concernées soient nommmées 'Suivi1' à 'Suivi7' :

' Impression
Private Sub CommandButton2_Click()
Dim ole As OLEObject

For Each ole In OLEObjects
With ole
If Left(ole.Name, 12) = "OptionButton" Then
If ole.Object.Value = True Then
On Error Resume Next
Sheets(ole.Object.Caption).PrintOut
Exit For
End If
End If
End With
Next
End Sub

' Traitement
Private Sub CommandButton1_Click()
Dim ole As OLEObject

For Each ole In OLEObjects
With ole
If Left(ole.Name, 12) = "OptionButton" Then
If ole.Object.Value = True Then
On Error Resume Next
Sheets(ole.Object.Caption).Activate
' Traitement ...
Exit For
End If
End If
End With
Next



Case d'option.

En fait ce que je voudrais (car je m'aperçois que je n'ai pas tout



dévoilé

ni tout expliqué correctement, désolé ;-( ) c'est d'avoir 7 case



d'option

: Suivi1, Suivi2 .... Suivi7.
En dessous j'ai 2 boutons (MAJ et Imprimer).
Si je selectionne Suivi2 et le bouton1, j'ai un traitement de MAJ qui
se




fera sur l'onglet2.
Mais si je sélectionne Suivi2 et le bouton2, c'est une impression qui
se




fera depuis l'onglet2bis.
En fait mes case d'option servent juste à rappeler aux utilisateurs,



vous

allez travailler sur tels fournisseurs. Et les 2 boutons, les 2 actions
possibles sur le fournisseur sélectionné précédemment.
Voila, cette fois j'ai tout dis.
Merci d'avance pour votre aide.


"Jacques93" a écrit dans le message



de

news:%


Bonjour,

Case à cocher (choix multiple) ou case d'option (choix unique) ?



Merci pour la soluce, mais elle ne réponds que partiellement à ma



question.


En fait, j'ai 14 onglets, mais seulement 7 doivent pouvoir être





imprimés

et


7 mise à jour.
C'est pour cela que je voulais affecter à un onglet une Case à
Cocher.






Comme cela les personnes selectionnent la feuille à imprimer via la





case

à


cocher puis clique sur le bouton Imprimer.



"Lolo" a écrit dans le message de
news:42cecdf0$0$6294$



Bonjour à toutes et à tous,

Dans mon classeur se trouve 7 onglets. Sur l'onglet 1, se trouve un
bouton correspondant à une macro d'Impression.
Y a t-il possibilité de mettre 6 Cases d'Option de la boite à outils
Controles, chaque Case d'Option se rapportant à 1 onglet.
Case1 = Onglet2
Case2 = onglet3 ....Case6 = Onglet7
et, peut-on récupérer le nom de l'onglet pour le donner à ma macro
d'impression.
Ex : Je clique sur la Case d'Option 2 et j'appuie sur le bouton
Impression qui m'imprime l'onglet3.

Merci d'avance.




--

Cordialement,

Jacques.






--
Cordialement,

Jacques.







--
Cordialement,

Jacques.








Avatar
Lolo
J'ai testé et cela fonctionne. L'erreur que j'ai commise a été de
confondre le nom de l'onglet avec son nom défini dans les propriétés.
Depuis cela fonctionne nickel.
Un grand merci pour votre patience et votre gentillesse.

Bonjour,

Classeur ici :

http://cjoint.com/?hlqo2RK0qR

toutes les feuilles à l'exeption de 'Suivi5', c'est donc la seule qui
s'imprime.


Cela fonctionne et cela ne fonctionne pas.
A l'ouverture du classeur, j'ai un message d'erreur.
Erreur d'execution 424. Objet requis.
Si je clique sur débogage, c'est la premiere ligne :
.OptionButton1.Caption
= "Suivi1" qui est surligné en jaune.

Par contre, dans ma feuille, si je selectionne le Case Option3 et que je
clique sur mon bouton, cela imprime la bonne feuille. Ceci fonctionne.
C'est
cool, c'est exactement ce que je voulais.

Je me penche sur l'erreur 424 mais j'avoue ne rien comprendre à l'aide de
Crosoft.
Ce qui fait que je vous mets encore à contribution ..... ;-)
Merci d'avance.



"Jacques93" a écrit dans le message de
news:

Bonjour,

Essaie :
7 cases d'options nommés OptionButton1 à OptionButton7

Dans ThisWorkbok, tu colles :

Private Sub Workbook_Open()
With Feuil1 ' Nom de la feuille qui contient les OptionButton
.OptionButton1.Caption = "Suivi1"
.OptionButton2.Caption = "Suivi2"
.OptionButton3.Caption = "Suivi3"
.OptionButton4.Caption = "Suivi4"
.OptionButton5.Caption = "Suivi5"
.OptionButton6.Caption = "Suivi6"
.OptionButton7.Caption = "Suivi7"
.OptionButton1.Value = True
End With
end with

Et dans le code de la feuille qui contient les OptionButton et les
CommanButton, tu colles (Pour que cela fonctionne, il faut que les 7
feuilles concernées soient nommmées 'Suivi1' à 'Suivi7' :

' Impression
Private Sub CommandButton2_Click()
Dim ole As OLEObject

For Each ole In OLEObjects
With ole
If Left(ole.Name, 12) = "OptionButton" Then
If ole.Object.Value = True Then
On Error Resume Next
Sheets(ole.Object.Caption).PrintOut
Exit For
End If
End If
End With
Next
End Sub

' Traitement
Private Sub CommandButton1_Click()
Dim ole As OLEObject

For Each ole In OLEObjects
With ole
If Left(ole.Name, 12) = "OptionButton" Then
If ole.Object.Value = True Then
On Error Resume Next
Sheets(ole.Object.Caption).Activate
' Traitement ...
Exit For
End If
End If
End With
Next



Case d'option.

En fait ce que je voudrais (car je m'aperçois que je n'ai pas tout




dévoilé

ni tout expliqué correctement, désolé ;-( ) c'est d'avoir 7 case




d'option

: Suivi1, Suivi2 .... Suivi7.
En dessous j'ai 2 boutons (MAJ et Imprimer).
Si je selectionne Suivi2 et le bouton1, j'ai un traitement de MAJ
qui se
fera sur l'onglet2.
Mais si je sélectionne Suivi2 et le bouton2, c'est une impression
qui se
fera depuis l'onglet2bis.
En fait mes case d'option servent juste à rappeler aux utilisateurs,




vous

allez travailler sur tels fournisseurs. Et les 2 boutons, les 2 actions
possibles sur le fournisseur sélectionné précédemment.
Voila, cette fois j'ai tout dis.
Merci d'avance pour votre aide.


"Jacques93" a écrit dans le message




de

news:%


Bonjour,

Case à cocher (choix multiple) ou case d'option (choix unique) ?



Merci pour la soluce, mais elle ne réponds que partiellement à ma




question.


En fait, j'ai 14 onglets, mais seulement 7 doivent pouvoir être






imprimés

et


7 mise à jour.
C'est pour cela que je voulais affecter à un onglet une Case à
Cocher.
Comme cela les personnes selectionnent la feuille à imprimer via la






case

à


cocher puis clique sur le bouton Imprimer.



"Lolo" a écrit dans le message de
news:42cecdf0$0$6294$



Bonjour à toutes et à tous,

Dans mon classeur se trouve 7 onglets. Sur l'onglet 1, se trouve un
bouton correspondant à une macro d'Impression.
Y a t-il possibilité de mettre 6 Cases d'Option de la boite à outils
Controles, chaque Case d'Option se rapportant à 1 onglet.
Case1 = Onglet2
Case2 = onglet3 ....Case6 = Onglet7
et, peut-on récupérer le nom de l'onglet pour le donner à ma macro
d'impression.
Ex : Je clique sur la Case d'Option 2 et j'appuie sur le bouton
Impression qui m'imprime l'onglet3.

Merci d'avance.





--

Cordialement,

Jacques.







--
Cordialement,

Jacques.
















Avatar
Jacques93
Bonjour gendarme Lolo,

Content pour la brigade, et merci du retour :-)

J'ai testé et cela fonctionne. L'erreur que j'ai commise a été de
confondre le nom de l'onglet avec son nom défini dans les propriétés.
Depuis cela fonctionne nickel.
Un grand merci pour votre patience et votre gentillesse.





--
Cordialement,

Jacques.

Avatar
Comres.metz
Bonjour,

Pas gendarme, mais personnel civil. Ce n'est pas que j'y tienne mais
bon..... :-)))
"Jacques93" a écrit dans le message de
news:
Bonjour gendarme Lolo,

Content pour la brigade, et merci du retour :-)

J'ai testé et cela fonctionne. L'erreur que j'ai commise a été de
confondre le nom de l'onglet avec son nom défini dans les propriétés.
Depuis cela fonctionne nickel.
Un grand merci pour votre patience et votre gentillesse.





--
Cordialement,

Jacques.



1 2