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

supraman46 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -  
supraman46 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 2
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
Bonjour

Un exemple
https://www.cjoint.com/c/GLoqVnQIE6X
0
supraman46 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   1
 
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 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
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   Statut Membre Dernière intervention   1
 
Un gros merci pour ton aide M-12, ça fonctionne parfaitement :)
0
supraman46 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   1
 
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
Réponse 2 / 2
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
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   Statut Membre Dernière intervention   1
 
Merci pour tes conseils professeur ;-)
0