VBA
Résolu
kenz94
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
-
kenz94 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
kenz94 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je voudrais remplir une colonne avec des données mais je n'arrive pas à comprendre pourquoi mon code ne marche pas
Private Sub CommandButton2_Click()
Dim dercolonne As Integer
If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
dercolonne = Sheets("Ajout stagiaire").Range("B:G").End(xlUp).Row + 1
Cell(7, dercolonne).Text = TextBox1.Text
Cells(8, dercolonne).Text = TextBox2.Text
Cells(9, dercolonne).Text = TextBox3.Text
Cells(10, dercolonne).Text = TextBox4.Text
Cells(11, dercolonne).Text = TextBox5.Text
Cells(12, dercolonne).Text = TextBox6.Text
Cells(13, dercolonne).Text = TextBox7.Text
Cells(14, dercolonne).Text = TextBox8.Text
End If
Merci de m'aider svp
je voudrais remplir une colonne avec des données mais je n'arrive pas à comprendre pourquoi mon code ne marche pas
Private Sub CommandButton2_Click()
Dim dercolonne As Integer
If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
dercolonne = Sheets("Ajout stagiaire").Range("B:G").End(xlUp).Row + 1
Cell(7, dercolonne).Text = TextBox1.Text
Cells(8, dercolonne).Text = TextBox2.Text
Cells(9, dercolonne).Text = TextBox3.Text
Cells(10, dercolonne).Text = TextBox4.Text
Cells(11, dercolonne).Text = TextBox5.Text
Cells(12, dercolonne).Text = TextBox6.Text
Cells(13, dercolonne).Text = TextBox7.Text
Cells(14, dercolonne).Text = TextBox8.Text
End If
Merci de m'aider svp
Je cherche à créer un formulaire dont les données seront transposées dans une colonne par exemple la colonne J de la 7ème à la 14 ème ligne. Je cherche donc pour cela la dernière colonne de libre.
Merci par avance
la dernière colonne de libre.
Non, la premier libre
'premiere colonne libre feuille PColVF = Cells.Find("*", , , , xlByColumns, xlPrevious).Column + 1 'premiere colonne libre a partir de la ligne 4 PColVL = Cells(4, Columns.Count).End(xlToLeft).Column + 1