XL 2019 double boucle for sur textbox

[ddeval81]

Bonjour à tous,

Je débute en vba et je voudrais transcire les lignes de commandes suivantes en une boucle:
Tableau_MP.Cells(1, 4) = TextBox7.Value
Tableau_MP.Cells(1, 5) = TextBox8.Value
Tableau_MP.Cells(1, 6) = TextBox9.Value
J'ai donc essayé:

For j = 3 To 5
For i = 6 To 8
Tableau_MP.Cells(1, j + 1).Value = Controls("TextBox" & i + 1).Value
Next i
Next j

Mais ça ne marche pas cela copie que la valeur de la dernière textbox dans toutes les cellules... Cela fait 2 jours que j'essaie dans tous les sens...Pouvez-vous m'aider? D'avance merci🙂

 

[Dranreb]

Bonsoir.
Ne faite qu'une boucle en utilisant le même indice pour les deux parties de l'affectation, différemment ajustés, bien sûr, 3 de plus pour celle de droite.
Si vous prenez For j = 0 To 2, j + 4 à gauche, j + 7 à droite.

 

[sylvanu]

Bonjour Ddeval, et bienvenu sur XLD,
Un petit fichier test serait le bienvenu, ne serait ce que pour tester.

 

[ddeval81]

Oui, bien sûr. Merci

 

[ddeval81]

Merci pour votre aide ça marche et surtout j'ai compris le principe. Bonne soirée à vous tous !!