XL 2013 Boucle multiple Texbox

Galaxy_2019

XLDnaute Junior
Bonjour,

J'ai un tableau qui comporte de ranges de cellules et Userform (avec des textbox et un bouton de Ok!), j'aimerai bien savoir le code VBA qui me permettre quand je saisis des valeurs sur la partie Rang 1 (qui comporte 12 Textbox) de Userform, ce dernier transfert ces donner dans les cellules de A13:A12 et la même chose pour Rang 2, et pour Textbox ID 1 sur la cellule B8 et ID 2 sur B10, veuillez retrouver en jointe le fichier.

NB: J'ai trouvé ce code ci dessous mais j'en sais pas comment l'adapté pour deux ranges de Taxbox

For i = 1 To 24
.Cells(i + 12, 1) = UserForm1.Controls("TextBox" & i)


Merci.
 

Pièces jointes

  • Classeur1.xlsm
    22 KB · Affichages: 10

Jacky67

XLDnaute Barbatruc
Bonjour,
Essaie ceci, attribué au bouton "OK"
VB:
Private Sub CommandButton1_Click()
    With Feuil1
        .[B8] = Me.TextBox25
        .[B10] = Me.TextBox26
        For i = 1 To 12
            .Cells(i + 12, 1) = Controls("TextBox" & i)
            .Cells(i + 12, 2) = Controls("TextBox" & i + 12)
        Next
    End With
End Sub
 

Jacky67

XLDnaute Barbatruc
J'en sais pas ou je mis votre code, je suis très nul en VBA, pouvez-vous m'aider.
Re...
Ce n'est peut-être pas par ce genre de code qu'il faut commencer.
Un minium de connaissance s'impose pour la suite du projet, il faut mettre de l'huile de coude.
Néanmoins, le classeur en PJ fait ce qui est demandé
Dans l'éditeur vba, double clic sur "userform1" puis double clic sur le bouton "OK" pour voir le code
 

Pièces jointes

  • galaxy.xlsm
    18.9 KB · Affichages: 8
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T