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

10 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
Jacques93
Bonjour lolo,

Avec un ComboBox au lieu d'OptionButton, plus évolutif si le nombre
de feuilles change :

Dans ThisWorkbook :

Private Sub Workbook_Open()
Dim i As Integer

With Feuil1.ComboBox1
.Clear
For i = 2 To Sheets.Count
.AddItem Sheets(i).Name
Next i
.ListIndex = 0
End With
End Sub

Dans le code de feuille :

Private Sub CommandButton1_Click()
With Me.ComboBox1
If .ListIndex >= 0 Then
Sheets(.List(.ListIndex)).PrintOut
End If
End With
End Sub



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.

Avatar
Hervé
Bonjour Lolo,
La procédure pour faire ce que tu veux faire n'est pas très simple (enfin
celle que je te présente bien sûr, car pour faire simple, tu cliques sur les
feuilles voulues en enfonçant la touche Ctrl) mais je vais essayer d'être
clair dans mes explications.
Tout d'abords, tu vas incorporer tes 6 cases à cocher de la barre d'outils
"Boîte à outils Contrôles" (Affichage|Barres d'outils) anisi qu'un bouton de
commande, si tu ne sais pas quel est le contrôle, laisse quelques secondes
la souris dessus, une info-bulle t'informera de son nom. Ceci fait, tu vas
donner à chaque case à cocher le nom de la feuille quelle représente, pour
cela, tu clique droit sur la case et dans le menu "Objet Case à
cocher|Edition". Quand tu as renommé toutes tes cases, tu vas dans le VBE et
tu colle le code ci-dessous dans le module de la feuille où se trouve les
controles, pour l'exemple "Feuil1". Si le nom de la feuille est différent de
"Feuil1", corrige dans le code (indiqué). Ceci fait, il te faut activer les
contrôles en cliquant sur le bouton (dans le VBE) qui a comme image une
équerre avec un crayon et une règle.

'--------------------------------------------------------
Private Sub CommandButton1_Click()
Dim Objet As OLEObject
Dim I As Integer
Dim J As Integer

'sert à dé-sélectionner la feuille
'où se trouve les contrôles (ici "Feuil1")
I = 1
'adapter ici le nom de la feuille
For Each Objet In Worksheets("Feuil1").OLEObjects
With Objet
If TypeName(.Object) = "CheckBox" And _
.Object.Value = True Then
'compteur de feuilles sélectionnées
J = J + 1
'si c'est de début de la boucle, dé-sélectionne
'la feuille contenant les cases à cocher, sinon,
'sélectionne les feuilles choisies
If I = 1 Then
Worksheets(.Object.Caption).Select (True)
I = 2
Else
Worksheets(.Object.Caption).Select (False)
End If
End If
End With
Next
If J > 0 Then
'pour un aperçu
ActiveWindow.SelectedSheets.PrintPreview
'pour l'impression (enlever l'apostrophe)
'ActiveWindow.SelectedSheets.PrintOut
Else
MsgBox "Aucune feuille sélectionnée :o(("
End If
'sélectionne la feuille contenant les cases
'ce qui dé-sélectionne toutes les autres
Worksheets("Feuil1").Select (True)

Set Objet = Nothing
End Sub
'----------------------------------------------------------------

Hervé.

"Lolo" a écrit dans le message 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.


Avatar
Hervé
Oups,
Comme j'ai mal lu la question et donc, ma réponse est à coté de la plaque
(j'ai interprété que tu voulais imprimer plusieurs feuilles !). Dans ce cas,
Jacques ta donné la solution la plus élégante (mis à part le simple fait de
cliquer sur l'onglet correspondant puis sur le bouton imprimer).
Désolé :o((
Hervé.

"Lolo" a écrit dans le message 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.


Avatar
Comres.metz
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.


Avatar
Jacques93
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.


Avatar
Comres.metz
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.




Avatar
Jacques93
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
Comres.metz
Je vais tester de ce pas et je vous tiens au courant.
"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
Comres.metz
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,

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.






1 2