Excel VBA / Importer données plusieurs textbox dans une colonne

Fermé
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 - 14 déc. 2017 à 17:31
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 - 14 déc. 2017 à 21:00
Bonjour,

J'ai monté un userform avec plusieurs textbox et j'aimerais que les données des textbox de 1 à 10 ce transfert dans une base de données et ce dans une colonne à tour de rôle.

Voici le code que j'ai monté, mais lorsque je le roule, rien ne ce copie, quelqu'un aurait une suggestion sur comment procéder?

merci à l'avance!

Private Sub CommandButton1_Click()
Dim derligne As Integer
Derligne = Sheets("database").Range("A" & Rows.Count).End(xlUp).Row + 1

    Sheets("database").Cells(derligne, 4) = TextBox1.Value
    Sheets("database").Cells(derligne, 4) = TextBox2.Value
    Sheets("database").Cells(derligne, 4) = TextBox3.Value
    Sheets("database").Cells(derligne, 4) = TextBox4.Value
    Sheets("database").Cells(derligne, 4) = TextBox5.Value
    Sheets("database").Cells(derligne, 4) = TextBox6.Value
    Sheets("database").Cells(derligne, 4) = TextBox7.Value
    Sheets("database").Cells(derligne, 4) = TextBox8.Value
    Sheets("database").Cells(derligne, 4) = TextBox9.Value
    Sheets("database").Cells(derligne, 4) = TextBox10.Value

end [/contents/446-fichier-sub sub]




A voir également:

2 réponses

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 281
14 déc. 2017 à 17:47
0
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 1
Modifié le 14 déc. 2017 à 17:57
Merci beaucoup pour ta réponse rapide! Il y a t'il une raison pourquoi les données ne vont pas plus loin que la 10ieme ligne?

Car quand je rempli plusieurs userform, les données remplace les ceux de la requete précédente au lieu de continuer a partir de la derniere donnee.
0
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 281
14 déc. 2017 à 18:06
Re
dans le code, pour trouver la derniere ligne, remplace le A par le D
derligne = Sheets("database").Range("D" & Rows.Count).End(xlUp).Row + 1
0
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 1
14 déc. 2017 à 18:44
Un gros merci pour ton aide M-12, ça fonctionne parfaitement :)
0
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 1
14 déc. 2017 à 18:57
Si je veux adapter une autre série de textbox pour un autre colonne, exemple les textbox de 11 à 20, est-ce que ceci ferait le travail?

Private Sub CommandButton1_Click()
Dim derligne As Integer, i%, textbox As textbox
Dim derligne1 As Integer, j%, textbox2 As textbox2
derligne = Sheets("database").Range("D" & Rows.Count).End(xlUp).Row + 1
derligne1 = Sheets("database").Range("e" & Rows.Count).End(xlUp).Row + 1
  For i = 1 To 10
      Sheets("database").Cells(derligne, 4) = UserForm1.Controls("TextBox" & i)
      derligne = derligne + 1
  Next i
  For j = 11 To 20
        Sheets("database").Cells(derligne1, 4) = UserForm1.Controls("TextBox2" & j)
      derligne1 = derligne1 + 1
  Next j
End Sub

0
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 281
14 déc. 2017 à 20:12
Re,
Au lieu de demander
est-ce que ceci ferait le travail?

Fait un essai qui sera négatif
et puis tu creuses un peu, tu cherches et tu comprendras comment se monte une macro
0
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 1
14 déc. 2017 à 21:00
Merci pour tes conseils professeur ;-)
0