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 RV,
For x=1 to 15 Controls("TextBox" & x).Value = Sheets("....").cells(x,3).value Next x
Ceci suppose que les index de tes textbox soient de 1 à 15.... et que tous tes testbox aient la même racine "Texbox" comme nom.
Salutations!
"RV" a écrit dans le message de news: Bonjour, J'ai environ une quinzaine de TextBox et je souhaiterais les routiner, du style:
For x=1 to 15 TextBox(x).Value = Sheets("....").cells(x,3).value Next x
Je ne sais pas comment faire !!... Merci. Cordialement. RV
Bonjour RV,
For x=1 to 15
Controls("TextBox" & x).Value = Sheets("....").cells(x,3).value
Next x
Ceci suppose que les index de tes textbox soient de 1 à 15....
et que tous tes testbox aient la même racine "Texbox" comme nom.
Salutations!
"RV" <dick.pitt@rv.fr> a écrit dans le message de news: eRayJ95EGHA.3856@TK2MSFTNGP10.phx.gbl...
Bonjour,
J'ai environ une quinzaine de TextBox et je souhaiterais les routiner, du
style:
For x=1 to 15
TextBox(x).Value = Sheets("....").cells(x,3).value
Next x
Je ne sais pas comment faire !!...
Merci.
Cordialement.
RV
For x=1 to 15 Controls("TextBox" & x).Value = Sheets("....").cells(x,3).value Next x
Ceci suppose que les index de tes textbox soient de 1 à 15.... et que tous tes testbox aient la même racine "Texbox" comme nom.
Salutations!
"RV" a écrit dans le message de news: Bonjour, J'ai environ une quinzaine de TextBox et je souhaiterais les routiner, du style:
For x=1 to 15 TextBox(x).Value = Sheets("....").cells(x,3).value Next x
Je ne sais pas comment faire !!... Merci. Cordialement. RV
RV
Bonsoir MichDenis,
Je te dois beaucoup car tu réponds à la plupart des questions que je pose. Merci beaucoup pour le temps que tu me consacres. Bon Week-end. Cordialement.
RV
"michdenis" a écrit dans le message de news:
Bonjour RV,
For x=1 to 15 Controls("TextBox" & x).Value = Sheets("....").cells(x,3).value Next x
Ceci suppose que les index de tes textbox soient de 1 à 15.... et que tous tes testbox aient la même racine "Texbox" comme nom.
Salutations!
"RV" a écrit dans le message de news:
Bonjour, J'ai environ une quinzaine de TextBox et je souhaiterais les routiner, du style:
For x=1 to 15 TextBox(x).Value = Sheets("....").cells(x,3).value Next x
Je ne sais pas comment faire !!... Merci. Cordialement. RV
Bonsoir MichDenis,
Je te dois beaucoup car tu réponds à la plupart des questions que je pose.
Merci beaucoup pour le temps que tu me consacres.
Bon Week-end.
Cordialement.
RV
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OsPxbW6EGHA.516@TK2MSFTNGP15.phx.gbl...
Bonjour RV,
For x=1 to 15
Controls("TextBox" & x).Value = Sheets("....").cells(x,3).value
Next x
Ceci suppose que les index de tes textbox soient de 1 à 15....
et que tous tes testbox aient la même racine "Texbox" comme nom.
Salutations!
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
eRayJ95EGHA.3856@TK2MSFTNGP10.phx.gbl...
Bonjour,
J'ai environ une quinzaine de TextBox et je souhaiterais les routiner, du
style:
For x=1 to 15
TextBox(x).Value = Sheets("....").cells(x,3).value
Next x
Je ne sais pas comment faire !!...
Merci.
Cordialement.
RV
Je te dois beaucoup car tu réponds à la plupart des questions que je pose. Merci beaucoup pour le temps que tu me consacres. Bon Week-end. Cordialement.
RV
"michdenis" a écrit dans le message de news:
Bonjour RV,
For x=1 to 15 Controls("TextBox" & x).Value = Sheets("....").cells(x,3).value Next x
Ceci suppose que les index de tes textbox soient de 1 à 15.... et que tous tes testbox aient la même racine "Texbox" comme nom.
Salutations!
"RV" a écrit dans le message de news:
Bonjour, J'ai environ une quinzaine de TextBox et je souhaiterais les routiner, du style:
For x=1 to 15 TextBox(x).Value = Sheets("....").cells(x,3).value Next x
Je ne sais pas comment faire !!... Merci. Cordialement. RV
