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:

Excel VBA / Importer données plusieurs textbox dans une colonne
Déplacer une colonne excel - Guide
Liste déroulante excel - Guide
Additionner colonne excel - Guide
Figer une colonne excel - Guide
Formule excel - Guide

2 réponses

Réponse 1 / 2

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
14 déc. 2017 à 17:47

Bonjour

Un exemple
https://www.cjoint.com/c/GLoqVnQIE6X

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.

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
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

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 :)

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

Réponse 2 / 2

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
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

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 ;-)

Discussions similaires

colonne A disparue tableur excel

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters