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
Tatanka
Salut,
Peut-être ceci :
Sub Essai() For i = 1 To Range("Liste").Count Sheets("Visuel").OLEObjects("CommandButton" & i).Object.Caption = Sheets("Carte").Range("Liste")(i) Next i End Sub
Serge
"ThierryP" a écrit dans le message de news:
Bonjour à tou(te)s,
Je bute sur un truc tout bête: quelle est la syntaxe pour passer du commandbutton1 au suivant en utilisant le "i" :
For i = 1 To Range("Liste").Count Sheets("Visuel").CommandButton1.Caption = Sheets("Carte").Range("Liste")(i) Next
D'avance merci :-))) -- ---- ThierryP
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet (Georges Courteline)
Salut,
Peut-être ceci :
Sub Essai()
For i = 1 To Range("Liste").Count
Sheets("Visuel").OLEObjects("CommandButton" & i).Object.Caption = Sheets("Carte").Range("Liste")(i)
Next i
End Sub
Serge
"ThierryP" <Thierry@nospam.fr> a écrit dans le message de news: eRO2iOdzKHA.1236@TK2MSFTNGP06.phx.gbl...
Bonjour à tou(te)s,
Je bute sur un truc tout bête: quelle est la syntaxe pour passer du commandbutton1 au suivant en utilisant le "i" :
For i = 1 To Range("Liste").Count
Sheets("Visuel").CommandButton1.Caption = Sheets("Carte").Range("Liste")(i)
Next
D'avance merci :-)))
--
----
ThierryP
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet
(Georges Courteline)
Sub Essai() For i = 1 To Range("Liste").Count Sheets("Visuel").OLEObjects("CommandButton" & i).Object.Caption = Sheets("Carte").Range("Liste")(i) Next i End Sub
Serge
"ThierryP" a écrit dans le message de news:
Bonjour à tou(te)s,
Je bute sur un truc tout bête: quelle est la syntaxe pour passer du commandbutton1 au suivant en utilisant le "i" :
For i = 1 To Range("Liste").Count Sheets("Visuel").CommandButton1.Caption = Sheets("Carte").Range("Liste")(i) Next
D'avance merci :-))) -- ---- ThierryP
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet (Georges Courteline)
ThierryP
Décidément, ce forum ne cessera jamais de m'étonner !! Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Merci !!!!
Thierryp
Le 27/03/2010 18:49, Tatanka a écrit :
Salut,
Peut-être ceci :
Sub Essai() For i = 1 To Range("Liste").Count Sheets("Visuel").OLEObjects("CommandButton"& i).Object.Caption = Sheets("Carte").Range("Liste")(i) Next i End Sub
Serge
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet (Georges Courteline)
Décidément, ce forum ne cessera jamais de m'étonner !!
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Merci !!!!
Thierryp
Le 27/03/2010 18:49, Tatanka a écrit :
Salut,
Peut-être ceci :
Sub Essai()
For i = 1 To Range("Liste").Count
Sheets("Visuel").OLEObjects("CommandButton"& i).Object.Caption = Sheets("Carte").Range("Liste")(i)
Next i
End Sub
Serge
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet
(Georges Courteline)
Décidément, ce forum ne cessera jamais de m'étonner !! Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Merci !!!!
Thierryp
Le 27/03/2010 18:49, Tatanka a écrit :
Salut,
Peut-être ceci :
Sub Essai() For i = 1 To Range("Liste").Count Sheets("Visuel").OLEObjects("CommandButton"& i).Object.Caption = Sheets("Carte").Range("Liste")(i) Next i End Sub
Serge
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet (Georges Courteline)
isabelle
je dirais même plus que c'est démoniaque ;-) isabelle
Le 2010-03-27 16:16, Tatanka a écrit :
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Crois-le ou pas mais c'est déjà arrivé sur ce forum ! Une déchirure dans l'espace-temps, j'imagine ;-)
"ThierryP" a écrit dans le message de news:
Décidément, ce forum ne cessera jamais de m'étonner !! Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Merci !!!!
Thierryp
Le 27/03/2010 18:49, Tatanka a écrit :
Salut,
Peut-être ceci :
Sub Essai() For i = 1 To Range("Liste").Count Sheets("Visuel").OLEObjects("CommandButton"& i).Object.Caption = Sheets("Carte").Range("Liste")(i) Next i End Sub
Serge
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet (Georges Courteline)
je dirais même plus que c'est démoniaque ;-)
isabelle
Le 2010-03-27 16:16, Tatanka a écrit :
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Crois-le ou pas mais c'est déjà arrivé sur ce forum !
Une déchirure dans l'espace-temps, j'imagine ;-)
"ThierryP"<Thierry@nospam.fr> a écrit dans le message de news: Obc5xddzKHA.1236@TK2MSFTNGP06.phx.gbl...
Décidément, ce forum ne cessera jamais de m'étonner !!
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Merci !!!!
Thierryp
Le 27/03/2010 18:49, Tatanka a écrit :
Salut,
Peut-être ceci :
Sub Essai()
For i = 1 To Range("Liste").Count
Sheets("Visuel").OLEObjects("CommandButton"& i).Object.Caption = Sheets("Carte").Range("Liste")(i)
Next i
End Sub
Serge
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet
(Georges Courteline)
je dirais même plus que c'est démoniaque ;-) isabelle
Le 2010-03-27 16:16, Tatanka a écrit :
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Crois-le ou pas mais c'est déjà arrivé sur ce forum ! Une déchirure dans l'espace-temps, j'imagine ;-)
"ThierryP" a écrit dans le message de news:
Décidément, ce forum ne cessera jamais de m'étonner !! Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Merci !!!!
Thierryp
Le 27/03/2010 18:49, Tatanka a écrit :
Salut,
Peut-être ceci :
Sub Essai() For i = 1 To Range("Liste").Count Sheets("Visuel").OLEObjects("CommandButton"& i).Object.Caption = Sheets("Carte").Range("Liste")(i) Next i End Sub
Serge
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet (Georges Courteline)
Tatanka
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Crois-le ou pas mais c'est déjà arrivé sur ce forum ! Une déchirure dans l'espace-temps, j'imagine ;-)
"ThierryP" a écrit dans le message de news:
Décidément, ce forum ne cessera jamais de m'étonner !! Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Merci !!!!
Thierryp
Le 27/03/2010 18:49, Tatanka a écrit :
Salut,
Peut-être ceci :
Sub Essai() For i = 1 To Range("Liste").Count Sheets("Visuel").OLEObjects("CommandButton"& i).Object.Caption = Sheets("Carte").Range("Liste")(i) Next i End Sub
Serge
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet (Georges Courteline)
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Crois-le ou pas mais c'est déjà arrivé sur ce forum !
Une déchirure dans l'espace-temps, j'imagine ;-)
"ThierryP" <Thierry@nospam.fr> a écrit dans le message de news: Obc5xddzKHA.1236@TK2MSFTNGP06.phx.gbl...
Décidément, ce forum ne cessera jamais de m'étonner !!
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Merci !!!!
Thierryp
Le 27/03/2010 18:49, Tatanka a écrit :
Salut,
Peut-être ceci :
Sub Essai()
For i = 1 To Range("Liste").Count
Sheets("Visuel").OLEObjects("CommandButton"& i).Object.Caption = Sheets("Carte").Range("Liste")(i)
Next i
End Sub
Serge
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet
(Georges Courteline)
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Crois-le ou pas mais c'est déjà arrivé sur ce forum ! Une déchirure dans l'espace-temps, j'imagine ;-)
"ThierryP" a écrit dans le message de news:
Décidément, ce forum ne cessera jamais de m'étonner !! Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Merci !!!!
Thierryp
Le 27/03/2010 18:49, Tatanka a écrit :
Salut,
Peut-être ceci :
Sub Essai() For i = 1 To Range("Liste").Count Sheets("Visuel").OLEObjects("CommandButton"& i).Object.Caption = Sheets("Carte").Range("Liste")(i) Next i End Sub
Serge
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet (Georges Courteline)
isabelle
mais non je blague :-) isabelle
Le 2010-03-27 16:15, isabelle a écrit :
je dirais même plus que c'est démoniaque ;-) isabelle
Le 2010-03-27 16:16, Tatanka a écrit :
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Crois-le ou pas mais c'est déjà arrivé sur ce forum ! Une déchirure dans l'espace-temps, j'imagine ;-)
"ThierryP" a écrit dans le message de news:
Décidément, ce forum ne cessera jamais de m'étonner !! Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Merci !!!!
Thierryp
Le 27/03/2010 18:49, Tatanka a écrit :
Salut,
Peut-être ceci :
Sub Essai() For i = 1 To Range("Liste").Count Sheets("Visuel").OLEObjects("CommandButton"& i).Object.Caption = Sheets("Carte").Range("Liste")(i) Next i End Sub
Serge
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet (Georges Courteline)
mais non je blague :-)
isabelle
Le 2010-03-27 16:15, isabelle a écrit :
je dirais même plus que c'est démoniaque ;-)
isabelle
Le 2010-03-27 16:16, Tatanka a écrit :
Bientôt les réponses (exactes en plus) arriveront avant les
questions :-))))))))
Crois-le ou pas mais c'est déjà arrivé sur ce forum !
Une déchirure dans l'espace-temps, j'imagine ;-)
"ThierryP"<Thierry@nospam.fr> a écrit dans le message de news:
Obc5xddzKHA.1236@TK2MSFTNGP06.phx.gbl...
Décidément, ce forum ne cessera jamais de m'étonner !!
Bientôt les réponses (exactes en plus) arriveront avant les
questions :-))))))))
Merci !!!!
Thierryp
Le 27/03/2010 18:49, Tatanka a écrit :
Salut,
Peut-être ceci :
Sub Essai()
For i = 1 To Range("Liste").Count
Sheets("Visuel").OLEObjects("CommandButton"&
i).Object.Caption = Sheets("Carte").Range("Liste")(i)
Next i
End Sub
Serge
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet
(Georges Courteline)
je dirais même plus que c'est démoniaque ;-) isabelle
Le 2010-03-27 16:16, Tatanka a écrit :
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Crois-le ou pas mais c'est déjà arrivé sur ce forum ! Une déchirure dans l'espace-temps, j'imagine ;-)
"ThierryP" a écrit dans le message de news:
Décidément, ce forum ne cessera jamais de m'étonner !! Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Merci !!!!
Thierryp
Le 27/03/2010 18:49, Tatanka a écrit :
Salut,
Peut-être ceci :
Sub Essai() For i = 1 To Range("Liste").Count Sheets("Visuel").OLEObjects("CommandButton"& i).Object.Caption = Sheets("Carte").Range("Liste")(i) Next i End Sub
Serge
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet (Georges Courteline)
ThierryP
Rassure-toi Isabelle,
(Au passage merci pour tes contributions !),depuis 6 ans que je fréquente ce forum (en lecteur,.... pas le niveau autrement !), j'ai appris à vivre avec une tresse d'ail autour du cou !!!!!!!! D'ailleurs, certains Monseigneurs ne se privent pas d'apporter d'apporter leur bénédiction, même si les HS mythiques manquent un peu !!! (JPS, où es-tu ???)
Le 2010-03-27 16:15, isabelle a écrit :
je dirais même plus que c'est démoniaque ;-) isabelle
Le 2010-03-27 16:16, Tatanka a écrit :
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Crois-le ou pas mais c'est déjà arrivé sur ce forum ! Une déchirure dans l'espace-temps, j'imagine ;-)
ThierryP
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet (Georges Courteline)
Rassure-toi Isabelle,
(Au passage merci pour tes contributions !),depuis 6 ans que je fréquente ce
forum (en lecteur,.... pas le niveau autrement !), j'ai appris à vivre avec une
tresse d'ail autour du cou !!!!!!!! D'ailleurs, certains Monseigneurs ne se
privent pas d'apporter d'apporter leur bénédiction, même si les HS mythiques
manquent un peu !!! (JPS, où es-tu ???)
Le 2010-03-27 16:15, isabelle a écrit :
je dirais même plus que c'est démoniaque ;-)
isabelle
Le 2010-03-27 16:16, Tatanka a écrit :
Bientôt les réponses (exactes en plus) arriveront avant les
questions :-))))))))
Crois-le ou pas mais c'est déjà arrivé sur ce forum !
Une déchirure dans l'espace-temps, j'imagine ;-)
ThierryP
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet
(Georges Courteline)
(Au passage merci pour tes contributions !),depuis 6 ans que je fréquente ce forum (en lecteur,.... pas le niveau autrement !), j'ai appris à vivre avec une tresse d'ail autour du cou !!!!!!!! D'ailleurs, certains Monseigneurs ne se privent pas d'apporter d'apporter leur bénédiction, même si les HS mythiques manquent un peu !!! (JPS, où es-tu ???)
Le 2010-03-27 16:15, isabelle a écrit :
je dirais même plus que c'est démoniaque ;-) isabelle
Le 2010-03-27 16:16, Tatanka a écrit :
Bientôt les réponses (exactes en plus) arriveront avant les questions :-))))))))
Crois-le ou pas mais c'est déjà arrivé sur ce forum ! Une déchirure dans l'espace-temps, j'imagine ;-)
ThierryP
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet (Georges Courteline)