Bouton Ajouter/Rechercher/Modifier dans un userform VBA
Bonjour à tous, j'ai un soucis et j'ai besoin de votre aide, je m'explique :
J'ai crée un userform24 qui s'ouvre par le biais d'un bouton, jusque la c'est bon
Dans ce userform24 j'ai une Combobox1 avec des noms de personnes ( ça va chercher les données dans l'onglet du classeur nommé "BDD COND" ( les noms sont en colonne A)
pour bien m'expliquer sur cet onglet "BDD COND"
en colonne B = le prénom
en colonne C = la validité du permis de conduire
en colonne D = la validité d'un document de la personne
en colonne E = la validité de l'accueil de cette personne
en colonne F = l'immat véhicule de la personne
en colonne G = la validité de ce véhicule
pour revenir maintenant à ce userform24
j'ai donc ce combobox1 qui va chercher les noms en liste déroulante ( ça fonctionne )
j'ai crée sur ce userform 3 boutons : RECHERCHER / MODIFIER / AJOUTER avec le code VBA pour chaque bouton que je vous affiche
Private Sub CommandButton1_Click()
'double clik sur le bouton ajouter userform24 ( gestion de la BDD COND par userform )
If ComboBox1.Value = "" Then
MsgBox "Veuillez renseigner le champs 'Nom'"
Else
Dim Ligne As Integer
If MsgBox("Confirmez vous l'ajout du conducteur ?", vbYesNo, "confirmation") = vbYes Then
Worksheets("BDD COND").Select
Ligne = Sheets("BDD COND").Range("A456541").End(xlUp).Row + 1
'Nom
Cells(Ligne, 1) = ComboBox1.Value
'Prénom
Cells(Ligne, 2) = TextBox1.Value
'Société
Cells(Ligne, 8) = TextBox2.Value
'Validité du permis de conduire
Cells(Ligne, 3) = TextBox3.Value
'Validité du titre ADR
Cells(Ligne, 4) = TextBox4.Value
'Validité de l'Accueil Innospec
Cells(Ligne, 5) = TextBox5.Value
'Immatriculation du tracteur
Cells(Ligne, 6) = TextBox6.Value
'Validité des mines du tracteur
Cells(Ligne, 7) = TextBox7.Value
Unload UserForm24
UserForm24.Show
Else
End If
End If
End Sub
Private Sub CommandButton2_Click()
'double clik sur le bouton modifier usrform24 ( gestion de la BDD COND par userform )
Dim modif As Integer
If Not ComboBox1.Value = "" Then
Sheets("BDD COND").Select
modif = ComboBox1.ListIndex + 2
'Nom du conducteur
Cells(modif, 1) = ComboBox1.Value
'Prénom du conducteur
Cells(modif, 2) = TextBox1.Value
'Société du conducteur
Cells(modif, 8) = TextBox2.Value
'Validité du permis de conduire
Cells(modif, 3) = TextBox3.Value
'validité du titre ADR
Cells(modif, 4) = TextBox4.Value
'Validité de l'accueil Innospec
Cells(modif, 5) = TextBox5.Value
'Immatriculation du tracteur
Cells(modif, 6) = TextBox6.Value
'Date des mines du tracteur
Cells(modif, 7) = TextBox7.Value
MsgBox ("Modification effectuée")
Else
MsgBox ("Veuillez selectionner le nom du conducteur à modifier")
Exit Sub
End If
Unload UserForm24
UserForm24.Show 0
End Sub
Private Sub CommandButton3_Click()
'double clik sur le bouton recherche userform24 ( gestion de la BDD COND par userform )
If Not ComboBox1.Value = "" Then
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 2
ComboBox1.Value = Cells(no_ligne, 1).Value
TextBox1.Value = Cells(no_ligne, 2).Value
TextBox2.Value = Cells(no_ligne, 8).Value
TextBox3.Value = Cells(no_ligne, 3).Value
TextBox4.Value = Cells(no_ligne, 4).Value
TextBox5.Value = Cells(no_ligne, 5).Value
TextBox6.Value = Cells(no_ligne, 6).Value
TextBox7.Value = Cells(no_ligne, 7).Value
Else
End If
End Sub
Private Sub UserForm_Initialize()
Dim LastLig As Long
LastLig = Sheets("BDD COND").Cells(Rows.Count, "A").End(xlUp).Row
Me.ComboBox1.RowSource = "'BDD COND'!A5:A" & LastLig
End Sub
Si un d'entre vous bien mieux expérimenté que moi peut contrôler mon VBA ce serait un grand merci !!!
Bonjour,
Au première regard, pour le bouton Modification cette ligne est en trop : Cells(modif, 1) = ComboBox1.Value
C'est ta combobox "Nom du chauffeur" qui te permet de trouver le numéro de ligne tu ne peux pas valider un nouveau nom alors que ta comboxbox a déjà chargée la liste.
Bonjour,
Au première regard, pour le bouton Modification cette ligne est en trop : Cells(modif, 1) = ComboBox1.Value
C'est ta combobox "Nom du chauffeur" qui te permet de trouver le numéro de ligne tu ne peux pas valider un nouveau nom alors que ta comboxbox a déjà chargée la liste.
Bonjour Xmenpl et merci pour la rapidité de la réponse, je vais partager mon fichier car la je sèche un peu, mes connaissances en la matière sont un peu limitées pour tout avouer.
Bonjour,
Au première regard, pour le bouton Modification cette ligne est en trop : Cells(modif, 1) = ComboBox1.Value
C'est ta combobox "Nom du chauffeur" qui te permet de trouver le numéro de ligne tu ne peux pas valider un nouveau nom alors que ta comboxbox a déjà chargée la liste.
Le lien de partage précédent du fichier n'est pas valide, voici le bon !
https://owen.link/8915e73531atrjp8kdilslqb77b38c4a#i8oItBu5
Bonjour à tous, je up un peu ma demande car je n'ai toujours pas reçu d'aide et je n'ai toujours pas trouver la solution de mon côté !
Bonne journée ensoleillée à tous