J'ai un problème pour changer la caption d'1 bouton.
Voici mon code :
Sub Bouton3_QuandClic()
Worksheets("Résultats").Activate
If Columns("B:N").EntireColumn.Hidden = True Then
Columns("B:N").EntireColumn.Hidden = False
Bouton3.Caption = "visible" -----> Ligne me posant problème
Else
Columns("B:N").EntireColumn.Hidden = True
Bouton3.Caption = "caché" -----> Ligne me posant problème
End If
End Sub
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
Cyrille
Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant problème
End If End Sub
Merci de votre aide
.
Bonjour,
essayes avec la syntaxe :
CommandButton3.Caption = ....
bon courage,
Cyrille
-----Message d'origine-----
Bonjour,
J'ai un problème pour changer la caption d'1 bouton.
Voici mon code :
Sub Bouton3_QuandClic()
Worksheets("Résultats").Activate
If Columns("B:N").EntireColumn.Hidden = True Then
Columns("B:N").EntireColumn.Hidden = False
Bouton3.Caption = "visible" -----> Ligne me
posant problème
Else
Columns("B:N").EntireColumn.Hidden = True
Bouton3.Caption = "caché" -----> Ligne me posant
problème
Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant problème
End If End Sub
Merci de votre aide
.
Serge
Ne marche pas : erreur d'execution 424 Objet requis
"Cyrille" a écrit dans le message de news:090901c4ab97$89644dc0$ Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant problème
End If End Sub
Merci de votre aide
.
Ne marche pas :
erreur d'execution 424
Objet requis
"Cyrille" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:090901c4ab97$89644dc0$a401280a@phx.gbl...
Bonjour,
essayes avec la syntaxe :
CommandButton3.Caption = ....
bon courage,
Cyrille
-----Message d'origine-----
Bonjour,
J'ai un problème pour changer la caption d'1 bouton.
Voici mon code :
Sub Bouton3_QuandClic()
Worksheets("Résultats").Activate
If Columns("B:N").EntireColumn.Hidden = True Then
Columns("B:N").EntireColumn.Hidden = False
Bouton3.Caption = "visible" -----> Ligne me
posant problème
Else
Columns("B:N").EntireColumn.Hidden = True
Bouton3.Caption = "caché" -----> Ligne me posant
problème
Ne marche pas : erreur d'execution 424 Objet requis
"Cyrille" a écrit dans le message de news:090901c4ab97$89644dc0$ Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant problème
End If End Sub
Merci de votre aide
.
Cyrille
Exact!! je suppose que ton bouton est positionné sur une feuille. Utilise donc : ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine----- Ne marche pas : erreur d'execution 424 Objet requis
"Cyrille" a écrit dans le message de
news:090901c4ab97$89644dc0$ Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant problème
End If End Sub
Merci de votre aide
.
.
Exact!!
je suppose que ton bouton est positionné sur une feuille.
Utilise donc :
ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine-----
Ne marche pas :
erreur d'execution 424
Objet requis
"Cyrille" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:090901c4ab97$89644dc0$a401280a@phx.gbl...
Bonjour,
essayes avec la syntaxe :
CommandButton3.Caption = ....
bon courage,
Cyrille
-----Message d'origine-----
Bonjour,
J'ai un problème pour changer la caption d'1 bouton.
Voici mon code :
Sub Bouton3_QuandClic()
Worksheets("Résultats").Activate
If Columns("B:N").EntireColumn.Hidden = True Then
Columns("B:N").EntireColumn.Hidden = False
Bouton3.Caption = "visible" -----> Ligne me
posant problème
Else
Columns("B:N").EntireColumn.Hidden = True
Bouton3.Caption = "caché" -----> Ligne me posant
problème
Exact!! je suppose que ton bouton est positionné sur une feuille. Utilise donc : ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine----- Ne marche pas : erreur d'execution 424 Objet requis
"Cyrille" a écrit dans le message de
news:090901c4ab97$89644dc0$ Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant problème
End If End Sub
Merci de votre aide
.
.
JpPradier
Bonjour Serge
Si c'est un bouton de la barre d'outils formulaire, essaye avec :
J'ai maintenant l'erreur d'execution 438 propriete ou methode non geree par cet objet Ci_joint mon code et en effet mon bouton est dans une feuille
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False ActiveSheet.CommandButton3.Caption = "Visbible"
Else Columns("B:N").EntireColumn.Hidden = True ActiveSheet.CommandButton3.Caption = "caché" End If End Sub
Meric encore pour ton aide "Cyrille" a écrit dans le message de news:407101c4ab99$780424e0$ Exact!! je suppose que ton bouton est positionné sur une feuille. Utilise donc : ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine----- Ne marche pas : erreur d'execution 424 Objet requis
"Cyrille" a écrit dans le message de
news:090901c4ab97$89644dc0$ Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant problème
End If End Sub
Merci de votre aide
.
.
J'ai maintenant l'erreur d'execution 438
propriete ou methode non geree par cet objet
Ci_joint mon code et en effet mon bouton est dans une feuille
Sub Bouton3_QuandClic()
Worksheets("Résultats").Activate
If Columns("B:N").EntireColumn.Hidden = True Then
Columns("B:N").EntireColumn.Hidden = False
ActiveSheet.CommandButton3.Caption = "Visbible"
Else
Columns("B:N").EntireColumn.Hidden = True
ActiveSheet.CommandButton3.Caption = "caché"
End If
End Sub
Meric encore pour ton aide
"Cyrille" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:407101c4ab99$780424e0$a301280a@phx.gbl...
Exact!!
je suppose que ton bouton est positionné sur une feuille.
Utilise donc :
ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine-----
Ne marche pas :
erreur d'execution 424
Objet requis
"Cyrille" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:090901c4ab97$89644dc0$a401280a@phx.gbl...
Bonjour,
essayes avec la syntaxe :
CommandButton3.Caption = ....
bon courage,
Cyrille
-----Message d'origine-----
Bonjour,
J'ai un problème pour changer la caption d'1 bouton.
Voici mon code :
Sub Bouton3_QuandClic()
Worksheets("Résultats").Activate
If Columns("B:N").EntireColumn.Hidden = True Then
Columns("B:N").EntireColumn.Hidden = False
Bouton3.Caption = "visible" -----> Ligne me
posant problème
Else
Columns("B:N").EntireColumn.Hidden = True
Bouton3.Caption = "caché" -----> Ligne me posant
problème
J'ai maintenant l'erreur d'execution 438 propriete ou methode non geree par cet objet Ci_joint mon code et en effet mon bouton est dans une feuille
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False ActiveSheet.CommandButton3.Caption = "Visbible"
Else Columns("B:N").EntireColumn.Hidden = True ActiveSheet.CommandButton3.Caption = "caché" End If End Sub
Meric encore pour ton aide "Cyrille" a écrit dans le message de news:407101c4ab99$780424e0$ Exact!! je suppose que ton bouton est positionné sur une feuille. Utilise donc : ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine----- Ne marche pas : erreur d'execution 424 Objet requis
"Cyrille" a écrit dans le message de
news:090901c4ab97$89644dc0$ Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant problème
End If End Sub
Merci de votre aide
.
.
Serge
Salut JP,
C'est un bouton dans une feuille de calcul. Merci
"JpPradier" a écrit dans le message de news:
Bonjour Serge
Si c'est un bouton de la barre d'outils formulaire, essaye avec :
1°)Tu as quelle version d'Excel?? j'ai repris ton code à l'identique et chez moi ca fonctionne!!
2°) ton bouton, tu l'a construit comment??
Cyrille
-----Message d'origine----- J'ai maintenant l'erreur d'execution 438 propriete ou methode non geree par cet objet Ci_joint mon code et en effet mon bouton est dans une feuille
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False ActiveSheet.CommandButton3.Caption = "Visbible"
Else Columns("B:N").EntireColumn.Hidden = True ActiveSheet.CommandButton3.Caption = "caché" End If End Sub
Meric encore pour ton aide "Cyrille" a écrit dans le message de
news:407101c4ab99$780424e0$ Exact!! je suppose que ton bouton est positionné sur une feuille. Utilise donc : ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine----- Ne marche pas : erreur d'execution 424 Objet requis
"Cyrille" a écrit dans le message de
news:090901c4ab97$89644dc0$ Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant problème
End If End Sub
Merci de votre aide
.
.
.
1°)Tu as quelle version d'Excel??
j'ai repris ton code à l'identique et chez moi ca
fonctionne!!
2°) ton bouton, tu l'a construit comment??
Cyrille
-----Message d'origine-----
J'ai maintenant l'erreur d'execution 438
propriete ou methode non geree par cet objet
Ci_joint mon code et en effet mon bouton est dans une
feuille
Sub Bouton3_QuandClic()
Worksheets("Résultats").Activate
If Columns("B:N").EntireColumn.Hidden = True Then
Columns("B:N").EntireColumn.Hidden = False
ActiveSheet.CommandButton3.Caption = "Visbible"
Else
Columns("B:N").EntireColumn.Hidden = True
ActiveSheet.CommandButton3.Caption = "caché"
End If
End Sub
Meric encore pour ton aide
"Cyrille" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:407101c4ab99$780424e0$a301280a@phx.gbl...
Exact!!
je suppose que ton bouton est positionné sur une feuille.
Utilise donc :
ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine-----
Ne marche pas :
erreur d'execution 424
Objet requis
"Cyrille" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:090901c4ab97$89644dc0$a401280a@phx.gbl...
Bonjour,
essayes avec la syntaxe :
CommandButton3.Caption = ....
bon courage,
Cyrille
-----Message d'origine-----
Bonjour,
J'ai un problème pour changer la caption d'1 bouton.
Voici mon code :
Sub Bouton3_QuandClic()
Worksheets("Résultats").Activate
If Columns("B:N").EntireColumn.Hidden = True Then
Columns("B:N").EntireColumn.Hidden = False
Bouton3.Caption = "visible" -----> Ligne me
posant problème
Else
Columns("B:N").EntireColumn.Hidden = True
Bouton3.Caption = "caché" -----> Ligne me posant
problème
1°)Tu as quelle version d'Excel?? j'ai repris ton code à l'identique et chez moi ca fonctionne!!
2°) ton bouton, tu l'a construit comment??
Cyrille
-----Message d'origine----- J'ai maintenant l'erreur d'execution 438 propriete ou methode non geree par cet objet Ci_joint mon code et en effet mon bouton est dans une feuille
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False ActiveSheet.CommandButton3.Caption = "Visbible"
Else Columns("B:N").EntireColumn.Hidden = True ActiveSheet.CommandButton3.Caption = "caché" End If End Sub
Meric encore pour ton aide "Cyrille" a écrit dans le message de
news:407101c4ab99$780424e0$ Exact!! je suppose que ton bouton est positionné sur une feuille. Utilise donc : ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine----- Ne marche pas : erreur d'execution 424 Objet requis
"Cyrille" a écrit dans le message de
news:090901c4ab97$89644dc0$ Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant problème
End If End Sub
Merci de votre aide
.
.
.
Serge
1 ° Excel 2000 2° j'ai pris un bouton qui est fourni dans le menu formulaire
Si cela ne te dérrange pas trop peux-tu m'envoyer ta feuille avec le bonton donc la caption se modifie à l'evenement clic
Merci encore "Cyrille" a écrit dans le message de news:123d01c4ab9c$83c9b9e0$ 1°)Tu as quelle version d'Excel?? j'ai repris ton code à l'identique et chez moi ca fonctionne!!
2°) ton bouton, tu l'a construit comment??
Cyrille
-----Message d'origine----- J'ai maintenant l'erreur d'execution 438 propriete ou methode non geree par cet objet Ci_joint mon code et en effet mon bouton est dans une feuille
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False ActiveSheet.CommandButton3.Caption = "Visbible"
Else Columns("B:N").EntireColumn.Hidden = True ActiveSheet.CommandButton3.Caption = "caché" End If End Sub
Meric encore pour ton aide "Cyrille" a écrit dans le message de
news:407101c4ab99$780424e0$ Exact!! je suppose que ton bouton est positionné sur une feuille. Utilise donc : ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine----- Ne marche pas : erreur d'execution 424 Objet requis
"Cyrille" a écrit dans le message de
news:090901c4ab97$89644dc0$ Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant problème
End If End Sub
Merci de votre aide
.
.
.
1 ° Excel 2000
2° j'ai pris un bouton qui est fourni dans le menu formulaire
Si cela ne te dérrange pas trop peux-tu m'envoyer ta feuille avec le bonton
donc la caption se modifie à l'evenement clic
serge.g8@lapaoste.net
Merci encore
"Cyrille" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:123d01c4ab9c$83c9b9e0$a601280a@phx.gbl...
1°)Tu as quelle version d'Excel??
j'ai repris ton code à l'identique et chez moi ca
fonctionne!!
2°) ton bouton, tu l'a construit comment??
Cyrille
-----Message d'origine-----
J'ai maintenant l'erreur d'execution 438
propriete ou methode non geree par cet objet
Ci_joint mon code et en effet mon bouton est dans une
feuille
Sub Bouton3_QuandClic()
Worksheets("Résultats").Activate
If Columns("B:N").EntireColumn.Hidden = True Then
Columns("B:N").EntireColumn.Hidden = False
ActiveSheet.CommandButton3.Caption = "Visbible"
Else
Columns("B:N").EntireColumn.Hidden = True
ActiveSheet.CommandButton3.Caption = "caché"
End If
End Sub
Meric encore pour ton aide
"Cyrille" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:407101c4ab99$780424e0$a301280a@phx.gbl...
Exact!!
je suppose que ton bouton est positionné sur une feuille.
Utilise donc :
ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine-----
Ne marche pas :
erreur d'execution 424
Objet requis
"Cyrille" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:090901c4ab97$89644dc0$a401280a@phx.gbl...
Bonjour,
essayes avec la syntaxe :
CommandButton3.Caption = ....
bon courage,
Cyrille
-----Message d'origine-----
Bonjour,
J'ai un problème pour changer la caption d'1 bouton.
Voici mon code :
Sub Bouton3_QuandClic()
Worksheets("Résultats").Activate
If Columns("B:N").EntireColumn.Hidden = True Then
Columns("B:N").EntireColumn.Hidden = False
Bouton3.Caption = "visible" -----> Ligne me
posant problème
Else
Columns("B:N").EntireColumn.Hidden = True
Bouton3.Caption = "caché" -----> Ligne me posant
problème
1 ° Excel 2000 2° j'ai pris un bouton qui est fourni dans le menu formulaire
Si cela ne te dérrange pas trop peux-tu m'envoyer ta feuille avec le bonton donc la caption se modifie à l'evenement clic
Merci encore "Cyrille" a écrit dans le message de news:123d01c4ab9c$83c9b9e0$ 1°)Tu as quelle version d'Excel?? j'ai repris ton code à l'identique et chez moi ca fonctionne!!
2°) ton bouton, tu l'a construit comment??
Cyrille
-----Message d'origine----- J'ai maintenant l'erreur d'execution 438 propriete ou methode non geree par cet objet Ci_joint mon code et en effet mon bouton est dans une feuille
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False ActiveSheet.CommandButton3.Caption = "Visbible"
Else Columns("B:N").EntireColumn.Hidden = True ActiveSheet.CommandButton3.Caption = "caché" End If End Sub
Meric encore pour ton aide "Cyrille" a écrit dans le message de
news:407101c4ab99$780424e0$ Exact!! je suppose que ton bouton est positionné sur une feuille. Utilise donc : ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine----- Ne marche pas : erreur d'execution 424 Objet requis
"Cyrille" a écrit dans le message de
news:090901c4ab97$89644dc0$ Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant problème
End If End Sub
Merci de votre aide
.
.
.
Cyrille
Ok j'ai compris... tu as utilisé un bouton a partir de la barre d'outils "Formulaires". Utilises plutot un bouton de la barre d'outil "Boîte à Outils Contrôles". Aprés tu vas dans l'editeur Visual Basic, tu selectionnes ta feuille "Resultats " dans l'explorateur de projet (à gauche). Tu choisis en haut et dans la fenêtre de droite le CommandButton1 et là tu te retrouves avec une : Private Sub CommandButton1_Click(). Tu y place ton code et la ca fonctionnera.
Bon courage,
Cyrille
-----Message d'origine----- 1°)Tu as quelle version d'Excel?? j'ai repris ton code à l'identique et chez moi ca fonctionne!!
2°) ton bouton, tu l'a construit comment??
Cyrille
-----Message d'origine----- J'ai maintenant l'erreur d'execution 438 propriete ou methode non geree par cet objet Ci_joint mon code et en effet mon bouton est dans une feuille
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False ActiveSheet.CommandButton3.Caption = "Visbible"
Else Columns("B:N").EntireColumn.Hidden = True ActiveSheet.CommandButton3.Caption = "caché" End If End Sub
Meric encore pour ton aide "Cyrille" a écrit dans le message de
news:407101c4ab99$780424e0$ Exact!! je suppose que ton bouton est positionné sur une feuille. Utilise donc : ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine----- Ne marche pas : erreur d'execution 424 Objet requis
"Cyrille" a écrit dans le message de
news:090901c4ab97$89644dc0$ Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant
problème
End If End Sub
Merci de votre aide
.
.
.
.
Ok j'ai compris...
tu as utilisé un bouton a partir de la barre
d'outils "Formulaires".
Utilises plutot un bouton de la barre d'outil "Boîte à
Outils Contrôles". Aprés tu vas dans l'editeur Visual
Basic, tu selectionnes ta feuille "Resultats " dans
l'explorateur de projet (à gauche). Tu choisis en haut et
dans la fenêtre de droite le CommandButton1 et là tu te
retrouves avec une :
Private Sub CommandButton1_Click().
Tu y place ton code et la ca fonctionnera.
Bon courage,
Cyrille
-----Message d'origine-----
1°)Tu as quelle version d'Excel??
j'ai repris ton code à l'identique et chez moi ca
fonctionne!!
2°) ton bouton, tu l'a construit comment??
Cyrille
-----Message d'origine-----
J'ai maintenant l'erreur d'execution 438
propriete ou methode non geree par cet objet
Ci_joint mon code et en effet mon bouton est dans une
feuille
Sub Bouton3_QuandClic()
Worksheets("Résultats").Activate
If Columns("B:N").EntireColumn.Hidden = True Then
Columns("B:N").EntireColumn.Hidden = False
ActiveSheet.CommandButton3.Caption = "Visbible"
Else
Columns("B:N").EntireColumn.Hidden = True
ActiveSheet.CommandButton3.Caption = "caché"
End If
End Sub
Meric encore pour ton aide
"Cyrille" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:407101c4ab99$780424e0$a301280a@phx.gbl...
Exact!!
je suppose que ton bouton est positionné sur une feuille.
Utilise donc :
ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine-----
Ne marche pas :
erreur d'execution 424
Objet requis
"Cyrille" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:090901c4ab97$89644dc0$a401280a@phx.gbl...
Bonjour,
essayes avec la syntaxe :
CommandButton3.Caption = ....
bon courage,
Cyrille
-----Message d'origine-----
Bonjour,
J'ai un problème pour changer la caption d'1 bouton.
Voici mon code :
Sub Bouton3_QuandClic()
Worksheets("Résultats").Activate
If Columns("B:N").EntireColumn.Hidden = True Then
Columns("B:N").EntireColumn.Hidden = False
Bouton3.Caption = "visible" -----> Ligne me
posant problème
Else
Columns("B:N").EntireColumn.Hidden = True
Bouton3.Caption = "caché" -----> Ligne me
posant
Ok j'ai compris... tu as utilisé un bouton a partir de la barre d'outils "Formulaires". Utilises plutot un bouton de la barre d'outil "Boîte à Outils Contrôles". Aprés tu vas dans l'editeur Visual Basic, tu selectionnes ta feuille "Resultats " dans l'explorateur de projet (à gauche). Tu choisis en haut et dans la fenêtre de droite le CommandButton1 et là tu te retrouves avec une : Private Sub CommandButton1_Click(). Tu y place ton code et la ca fonctionnera.
Bon courage,
Cyrille
-----Message d'origine----- 1°)Tu as quelle version d'Excel?? j'ai repris ton code à l'identique et chez moi ca fonctionne!!
2°) ton bouton, tu l'a construit comment??
Cyrille
-----Message d'origine----- J'ai maintenant l'erreur d'execution 438 propriete ou methode non geree par cet objet Ci_joint mon code et en effet mon bouton est dans une feuille
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False ActiveSheet.CommandButton3.Caption = "Visbible"
Else Columns("B:N").EntireColumn.Hidden = True ActiveSheet.CommandButton3.Caption = "caché" End If End Sub
Meric encore pour ton aide "Cyrille" a écrit dans le message de
news:407101c4ab99$780424e0$ Exact!! je suppose que ton bouton est positionné sur une feuille. Utilise donc : ActiveSheet.CommandButton1.Caption = ...
et là ca le fait !!
Bon courage
Cyrille
-----Message d'origine----- Ne marche pas : erreur d'execution 424 Objet requis
"Cyrille" a écrit dans le message de
news:090901c4ab97$89644dc0$ Bonjour, essayes avec la syntaxe : CommandButton3.Caption = ....
bon courage, Cyrille
-----Message d'origine----- Bonjour,
J'ai un problème pour changer la caption d'1 bouton. Voici mon code :
Sub Bouton3_QuandClic() Worksheets("Résultats").Activate If Columns("B:N").EntireColumn.Hidden = True Then Columns("B:N").EntireColumn.Hidden = False Bouton3.Caption = "visible" -----> Ligne me posant problème
Else Columns("B:N").EntireColumn.Hidden = True Bouton3.Caption = "caché" -----> Ligne me posant
