VBA

Résolu/Fermé

kenz94 Messages postés 16 Date d'inscription jeudi 2 mars 2017 Statut Membre Dernière intervention 23 mars 2017 - 2 mars 2017 à 16:12
kenz94 Messages postés 16 Date d'inscription jeudi 2 mars 2017 Statut Membre Dernière intervention 23 mars 2017 - 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

A voir également:

VBA
Mkdir vba ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Vba dépassement de capacité ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
2 mars 2017 à 16:39

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 ?

kenz94 Messages postés 16 Date d'inscription jeudi 2 mars 2017 Statut Membre Dernière intervention 23 mars 2017
3 mars 2017 à 09:34

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

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711 > kenz94 Messages postés 16 Date d'inscription jeudi 2 mars 2017 Statut Membre Dernière intervention 23 mars 2017
3 mars 2017 à 10:45

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

kenz94 Messages postés 16 Date d'inscription jeudi 2 mars 2017 Statut Membre Dernière intervention 23 mars 2017
3 mars 2017 à 11:37

Merci, ça marche, j'ai pu résoudre mon problème.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel