VBA

Résolu

kenz94 Messages postés 16 Statut Membre -
kenz94 Messages postés 16 Statut Membre - 3 mars 2017 à 11:37

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

Afficher la suite

1 réponse

Réponse 1 / 1
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
Bonjour,

ca deja c'est pas bon
```
dercolonne = Sheets("Ajout stagiaire").Range("B:G").End(xlUp).Row + 1
```
Vous cherchez quoi, une ligne ou une colonne libre ?
0
1. kenz94 Messages postés 16 Statut Membre
  
  Bonjour,
  
  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
  
  0
  1. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > kenz94 Messages postés 16 Statut Membre
    
    Bonjour,
    
    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
    
    0
2. kenz94 Messages postés 16 Statut Membre
  
  Merci, ça marche, j'ai pu résoudre mon problème.
  
  0

VBA

1 réponse

Discussions similaires

Newsletters