XL 2010 Simplification de code "range" avec beaucoup de TextBox (50)

[BUG]

Bonsoir à tous,

Pourriez vous me dire (et comment ) est il possible de simplifier ce code ( jusqu' a 50 )?
.Range("E" & L) = TextBoxCh1.Value
.Range("D" & L) = TextBoxCh2.Value
.Range("F" & L) = TextBoxCh3.Value
.Range("G" & L) = TextBoxCh4.Value
.Range("H" & L) = TextBoxCh5.Value
.Range("I" & L) = TextBoxCh6.Value..
........................
.Range("AX" & L) = TextBoxCh50.Value
Merci pour votre aide.

 

[Phil69970]

Bonjour @BUG

Pour info ton énoncé est faux

.Range("E" & L) = TextBoxCh1.Value
.Range("D" & L) = TextBoxCh2.Value
.Range("F" & L) = TextBoxCh3.Value
.Range("G" & L) = TextBoxCh4.Value
.Range("H" & L) = TextBoxCh5.Value
.Range("I" & L) = TextBoxCh6.Value..
........................
.Range("AX" & L) = TextBoxCh50.Value

Je te propose un peu beaucoup à l'aveugle car j'ai pas vu ton fichier !!

L = 2 ' <== A adapter le N° de la ligne
For i = 1 To 50
    Worksheets("Ma feuille").Cells(L, i) = Me("TextBoxCh" & i).Value ' <== nom de la feuille à adapter
Next i

*Merci de ton retour

@Phil69970

 

[Jacky67]

Bonsoir à tous,

Pourriez vous me dire (et comment ) est il possible de simplifier ce code ( jusqu' a 50 )?
.Range("E" & L) = TextBoxCh1.Value
.Range("D" & L) = TextBoxCh2.Value
.Range("F" & L) = TextBoxCh3.Value
.Range("G" & L) = TextBoxCh4.Value
.Range("H" & L) = TextBoxCh5.Value
.Range("I" & L) = TextBoxCh6.Value..
........................
.Range("AX" & L) = TextBoxCh50.Value
Merci pour votre aide.

Bonjour,
De " .Range("E" & L" à ".Range("AX" & L) " il n'y a que 46 colonnes
donc la suite logique ne peut pas donner==>TextBoxCh50
C'est faisable avec une boucle, mais la première cellule doit correspondre avec le 1 de ==> TextBoxCh1.Value,
Ce qui a la vue de l'exemple n'est pas le cas
.Range("E" & L) = TextBoxCh1.Value
.Range("D" & L) = TextBoxCh2.Value
.Range("F" & L) = TextBoxCh3.Value
A lieu de
.Range("D" & L) = TextBoxCh1.Value
.Range("E" & L) = TextBoxCh2.Value
.Range("F" & L) = TextBoxCh3.Value

Et avec un classeur exemple ce serait bien mieux

 

[BUG]

Merci pour vos réponses .
je vous joint le fichier.

 

[BUG]

comme je tatonne pas mal , le fichier est en cours d élaboration , les TextBox ne sont pas toutes encore bien nommées.
C est dans l USF rdvch dans le bouton enregistrer

 

[Phil69970]

Re

Ton fichier en retour

@Phil69970

 

[BUG]

merci, mais du coup , j ai mon calendrier et mes deux listbox qui n alimente plus les colonne A, B, C

 

[Phil69970]

Re

J'ai oublié de traiter les colonnes A B et C
Oubli réparé ..... en principe..... car non testé

*Merci de ton retour

@Phil69970

 

[BUG]

je te remercie beaucoup phil, je test cela dès ma sortie de réunion.

 

[BUG]

je te remercie Phil , Bonsoir Chti
Vive les réunions... c est toujours extra super mais..

du coup il fallait bien battre un record , je passe à 62 textbox !!
les 45 premières sont bien adressées , les autres non.
les 2 premières listbox "ListRondier " et ListBox1 , ont est obligé de cliquer dedans pour valider la saisie.
et enfin lorsque que l 'opérateur fait une saisie , si il tape sur la touche entrée , on passe de façon aléatoire
à une autre listBox au lieu de passer à la suivante .. bien trop compliqué tout ça pour moi
je remets mon fichier complet.
si vous pouviez ...

 

[Phil69970]

@BUG

Je te propose cette version revu et corrigé à ma sauce
Je te déconseille de rajouter des textbox car la saisie sera interminable !!!

*Merci de ton retour

@Phil69970

 

[TooFatBoy]

Bonjour,

Lorsque que l'opérateur fait une saisie, s'il tape sur la touche entrée, on passe de façon aléatoire à une autre TextBox au lieu de passer à la suivante... Bien trop compliqué tout ça pour moi.

Ce n'est pas aléatoire, ça dépend de la valeur de TabIndex : ça se déplace du TabIndex le plus petit au TabIndex le plus grand.

Si tu renumérotes les TabIndex de toutes les TextBox d'une Frame, tu verras que le [Tab] ou le [Entrée] ira bien à la TextBox "suivante".

Et c'est bien sûr pareil au niveau supérieur pour les Frames.

 

[patricktoulon]

bonjour à tous
juste comme ça en passant
dans le tag de tes textboxs met la /les lettres de tes colonnes correspondantes
et tu fait un truc du genre

for each ctrl in me.controls
 if ctrl.tag<>"" then .cells(L,ctrl.tag).value=ctrl.value
next

attention si il y a des dates !!!!!

for each ctrl in me.controls
   if ctrl.tag<>"" then
     if isdate(ctrl.value) then
       .cells(L,ctrl.tag).value=datevalue(ctrl.value)
     else
     .cells(L,ctrl.tag).value=ctrl.value
     end if
   end if
next

il va de soi que pour réduire la boucle et si tout tes textboxs sont dans la même frame on boucle alors sur les controls de la frame uniquement
exemple

for each ctrl in me.Frame1.controls
   if ctrl.tag<>"" then
     if isdate(ctrl.value) then
       .cells(L,ctrl.tag).value=datevalue(ctrl.value)
     else
     .cells(L,ctrl.tag).value=ctrl.value
     end if
   end if
next

tu n'aura pas de soucis d'ordre
@+

 

[Phil69970]

Bonjour à tous

Perso j'ai pris cette méthode que je trouve pratique :

Clic droit sur une frame et je fais monter ou descendre mes textbox ou je veux

si tout tes textboxs sont dans la même frame on boucle alors sur les controls de la frame uniquement

*Et non Patrick il y a 8 ou 9 frames... et les textbox sont disséminés partout

@Phil69970

 

[TooFatBoy]

Perso j'ai pris cette méthode que je trouve pratique :

Clic droit sur une frame et je fais monter ou descendre mes textbox ou je veux

Merci pour l'astuce.
Je n'avais jamais remarqué cette possibilité, qui semble effectivement beucoup plus pratique que de renuméroter chaque TextBox une par une à la main...