Alimenter une Combobox et ListBox
Bonjour à tous et à toutes
Je me permets de vous demander de l'aide car je suis un novice en matière de VBA et je me heurte au problème du ComboBox
Je souhaite créer un formulaire qui dispose d'une combobox.
Cette combobox doit être alimentée par un tableau présent sur une feuille dans le classeur excel.
Explication de mon fichier :
Combobox_Nom doit être alimenté par la colonne NOM de mon tableau
ListBox_Prenom doit me donner le prénom en fonction du nom choisi.
mon bouton supprimer doit supprimer dans le tableau présent sur la feuille "CONTACT" la ligne du client selectionnés dans la combobox_Nom
Merci d'avance
bonjour Remi063
si c'est un fichier client que tu essai de faire je te mets un lien pour un fichier client complet
- ajout
- modification
- suppression
- ajout sur feuille
Pascal
Merci pour ta réponse mais elle est trop compliqué pour moi.
Je souhaite créer un bouton = 1 fonction
1 Bouton => ajouter client
1 Bouton => supprimer client
1 Bouton => Modifier
Si c'est possible, Merci
Bonjour, je viens de créer un langage pour créer un nouveau client
Cependant, j'ai un combobox et je voudrai qu'il me donne le N° de ligne dans laquelle il va ajouter mon nouveau client
Private Sub CommandButton1_Click()
IntLigne = ActiveSheet.Cells(2, 4).End(xlDown).Row + 1
Dim lg As String
'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox1
lg = Sheets("CONTACTS").Cells(65536, 4).End(xlUp).Row + 1
'texte des cases
With Sheets("CONTACTS")
.Cells(lg, "E").Value = Ajouter_Client.TextBox1.Value
.Cells(lg, "F").Value = Ajouter_Client.TextBox2.Value
.Cells(lg, "G").Value = Ajouter_Client.TextBox3.Value
.Cells(lg, "H").Value = Ajouter_Client.TextBox4.Value
.Cells(lg, "I").Value = Ajouter_Client.TextBox5.Value
.Cells(lg, "J").Value = Ajouter_Client.TextBox6.Value
.Cells(lg, "K").Value = Ajouter_Client.TextBox7.Value
.Cells(lg, "L").Value = Ajouter_Client.TextBox8.Value
.Cells(lg, "M").Value = Ajouter_Client.TextBox9.Value
End With
If IsNumeric(TextBox1) Then MsgBox ("erreur") Else Ajouter_Client.Hide
End Sub
Merci à vous
Bonsoir
juste en dessous de with mets :
With Sheets("CONTACTE")
MsgBox "Ligne : " & ActiveCell.Row
tu sauras alors dans quelle ligne tu es
cdt
Merci VB TROYES
J'ai fait ce code mais il ne marche pas
Sub ouvrir_Ajout_client()
End Sub
En gros, dés que je clique sur le bouton pour ouvrir mon formulaire, je veux qu'il indique dans ma listbox1 le numéro de la dernière ligne du tableau + 1.
Bonjour Remi034
A consulter....https://cellulexcel.blogspot.fr/p/qui-na-pas-un-jour-utilise-loption.html
Cela va peut être t'aider.
@+