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
MichDenis
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton. Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" a écrit dans le message de groupe de discussion :
J'ai oublié de préciser que c'est un bouton formulaire. Merci
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant
de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton
x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton.
Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
OmCEmfQtJHA.1504@TK2MSFTNGP03.phx.gbl...
J'ai oublié de préciser que c'est un bouton formulaire.
Merci
Dans la macro que tu as affectée au bouton de commande émanant de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton. Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" a écrit dans le message de groupe de discussion :
J'ai oublié de préciser que c'est un bouton formulaire. Merci
pb
Un grand Merci, car je bidouillais un truc pas propre pour planquer le bouton après traitement.
Pascal "MichDenis" a écrit dans le message de news:
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton. Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" a écrit dans le message de groupe de discussion :
J'ai oublié de préciser que c'est un bouton formulaire. Merci
Un grand Merci, car je bidouillais un truc pas propre pour planquer le
bouton après traitement.
Pascal
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
421CCD8D-3542-452B-B76B-9E3835B560F5@microsoft.com...
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant
de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton
x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton.
Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
OmCEmfQtJHA.1504@TK2MSFTNGP03.phx.gbl...
J'ai oublié de préciser que c'est un bouton formulaire.
Merci
Un grand Merci, car je bidouillais un truc pas propre pour planquer le bouton après traitement.
Pascal "MichDenis" a écrit dans le message de news:
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton. Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" a écrit dans le message de groupe de discussion :
J'ai oublié de préciser que c'est un bouton formulaire. Merci
pb
Je cherche mais je ne trouve pas comment les réactiver sur Private Sub Workbook_Open()
Cela me renvoie un message d'érreur? "MichDenis" a écrit dans le message de news:
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton. Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" a écrit dans le message de groupe de discussion :
J'ai oublié de préciser que c'est un bouton formulaire. Merci
Je cherche mais je ne trouve pas comment les réactiver sur
Private Sub Workbook_Open()
Cela me renvoie un message d'érreur?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
421CCD8D-3542-452B-B76B-9E3835B560F5@microsoft.com...
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant
de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton
x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton.
Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
OmCEmfQtJHA.1504@TK2MSFTNGP03.phx.gbl...
J'ai oublié de préciser que c'est un bouton formulaire.
Merci
Je cherche mais je ne trouve pas comment les réactiver sur Private Sub Workbook_Open()
Cela me renvoie un message d'érreur? "MichDenis" a écrit dans le message de news:
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton. Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" a écrit dans le message de groupe de discussion :
J'ai oublié de préciser que c'est un bouton formulaire. Merci
MichDenis
Tu peux appeler cette procédure :
'---------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") 'Adapte le nom de la feuille For Each Sh In .Shapes Select Case TypeName(Sh.OLEFormat.Object) Case Is = "Button" Sh.OLEFormat.Object.Enabled = True End Select Next End With
End Sub '----------------------------------
"pb" a écrit dans le message de groupe de discussion :
Je cherche mais je ne trouve pas comment les réactiver sur Private Sub Workbook_Open()
Cela me renvoie un message d'érreur? "MichDenis" a écrit dans le message de news:
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton. Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" a écrit dans le message de groupe de discussion :
J'ai oublié de préciser que c'est un bouton formulaire. Merci
Tu peux appeler cette procédure :
'----------------------------------
Sub test()
Dim Sh As Shape
With Worksheets("Feuil1") 'Adapte le nom de la feuille
For Each Sh In .Shapes
Select Case TypeName(Sh.OLEFormat.Object)
Case Is = "Button"
Sh.OLEFormat.Object.Enabled = True
End Select
Next
End With
End Sub
'----------------------------------
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
eqNhRjRtJHA.1240@TK2MSFTNGP02.phx.gbl...
Je cherche mais je ne trouve pas comment les réactiver sur
Private Sub Workbook_Open()
Cela me renvoie un message d'érreur?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
421CCD8D-3542-452B-B76B-9E3835B560F5@microsoft.com...
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant
de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton
x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton.
Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
OmCEmfQtJHA.1504@TK2MSFTNGP03.phx.gbl...
J'ai oublié de préciser que c'est un bouton formulaire.
Merci
'---------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") 'Adapte le nom de la feuille For Each Sh In .Shapes Select Case TypeName(Sh.OLEFormat.Object) Case Is = "Button" Sh.OLEFormat.Object.Enabled = True End Select Next End With
End Sub '----------------------------------
"pb" a écrit dans le message de groupe de discussion :
Je cherche mais je ne trouve pas comment les réactiver sur Private Sub Workbook_Open()
Cela me renvoie un message d'érreur? "MichDenis" a écrit dans le message de news:
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton. Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" a écrit dans le message de groupe de discussion :
J'ai oublié de préciser que c'est un bouton formulaire. Merci
pb
merci, Mais cela me renvoie un message d'erreur l'indice n'appartient pas à la selection??
Pascal "MichDenis" a écrit dans le message de news:
Je te faire remarquer que ceci ne sert absolument à rien cc = TypeName(Sh.OLEFormat.Object) et que tu devrais l'enlever !
merci,
Mais cela me renvoie un message d'erreur
l'indice n'appartient pas à la selection??
Pascal
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
B6E621C6-9D71-4625-8537-3FE870FA29B4@microsoft.com...
Je te faire remarquer que ceci ne sert absolument à rien
cc = TypeName(Sh.OLEFormat.Object)
et que tu devrais l'enlever !
merci, Mais cela me renvoie un message d'erreur l'indice n'appartient pas à la selection??
Pascal "MichDenis" a écrit dans le message de news:
Je te faire remarquer que ceci ne sert absolument à rien cc = TypeName(Sh.OLEFormat.Object) et que tu devrais l'enlever !
pb
Un peu de fatigue de ma part, j'avais oublié de renommer ma feuille. Cela fonctionne parfaitement Merci et bon week-end Pascal "MichDenis" a écrit dans le message de news:
Tu peux appeler cette procédure :
'---------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") 'Adapte le nom de la feuille For Each Sh In .Shapes Select Case TypeName(Sh.OLEFormat.Object) Case Is = "Button" Sh.OLEFormat.Object.Enabled = True End Select Next End With
End Sub '----------------------------------
"pb" a écrit dans le message de groupe de discussion :
Je cherche mais je ne trouve pas comment les réactiver sur Private Sub Workbook_Open()
Cela me renvoie un message d'érreur? "MichDenis" a écrit dans le message de news:
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton. Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" a écrit dans le message de groupe de discussion :
J'ai oublié de préciser que c'est un bouton formulaire. Merci
Un peu de fatigue de ma part, j'avais oublié de renommer ma feuille.
Cela fonctionne parfaitement
Merci et bon week-end
Pascal
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
ECA0904B-3E6C-4252-B677-404F9A17C6FE@microsoft.com...
Tu peux appeler cette procédure :
'----------------------------------
Sub test()
Dim Sh As Shape
With Worksheets("Feuil1") 'Adapte le nom de la feuille
For Each Sh In .Shapes
Select Case TypeName(Sh.OLEFormat.Object)
Case Is = "Button"
Sh.OLEFormat.Object.Enabled = True
End Select
Next
End With
End Sub
'----------------------------------
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
eqNhRjRtJHA.1240@TK2MSFTNGP02.phx.gbl...
Je cherche mais je ne trouve pas comment les réactiver sur
Private Sub Workbook_Open()
Cela me renvoie un message d'érreur?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
421CCD8D-3542-452B-B76B-9E3835B560F5@microsoft.com...
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant
de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton
x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton.
Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
OmCEmfQtJHA.1504@TK2MSFTNGP03.phx.gbl...
J'ai oublié de préciser que c'est un bouton formulaire.
Merci
Un peu de fatigue de ma part, j'avais oublié de renommer ma feuille. Cela fonctionne parfaitement Merci et bon week-end Pascal "MichDenis" a écrit dans le message de news:
Tu peux appeler cette procédure :
'---------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") 'Adapte le nom de la feuille For Each Sh In .Shapes Select Case TypeName(Sh.OLEFormat.Object) Case Is = "Button" Sh.OLEFormat.Object.Enabled = True End Select Next End With
End Sub '----------------------------------
"pb" a écrit dans le message de groupe de discussion :
Je cherche mais je ne trouve pas comment les réactiver sur Private Sub Workbook_Open()
Cela me renvoie un message d'érreur? "MichDenis" a écrit dans le message de news:
Bonjour Pb,
Dans la macro que tu as affectée au bouton de commande émanant de la barre d'outils formulaire, tu peux utiliser ces 2 lignes de code
Dim x As String
Cette ligne de code permet de trouver la propriété "Name" (nom) du bouton x = Feuil1.Shapes(Application.Caller).OLEFormat.Object.Name
Celle-ci te permet de désactiver le bouton. Feuil1.Shapes(x).OLEFormat.Object.Enabled = False
N'oublie pas de de réactiver tes boutons au moment opportun !
"pb" a écrit dans le message de groupe de discussion :
J'ai oublié de préciser que c'est un bouton formulaire. Merci
MichDenis
As-tu pris soin de modifier le nom de la feuille dans la procédure ?
Voici où le changer avec la note que j'avais mise à côté.
With Worksheets("Feuil1") 'Adapte le nom de la feuille
As-tu pris soin de modifier le nom de la feuille dans la procédure ?
Voici où le changer avec la note que j'avais mise à côté.
With Worksheets("Feuil1") 'Adapte le nom de la feuille
