VBA
Résolu
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
1 réponse
-
Bonjour,
ca deja c'est pas bondercolonne = Sheets("Ajout stagiaire").Range("B:G").End(xlUp).Row + 1
Vous cherchez quoi, une ligne ou une colonne libre ?-
-
@kenz94Bonjour,
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 -
-
