Autres VBA bouton modifier ignore les homonymes

recoverybis

XLDnaute Nouveau
Bonjour,

j'ai bien écumé pas mal de forum mais sans trouver de solution. De plus mes notions en VBA sont bien trop modestes c'est pourquoi, je me tourne ici vers les plus chevronnés en espérant que vous aurez un peu de temps à me consacrer pour résoudre mon problème à savoir que le bouton modifier de mon userform est allergique aux homonymes. Dans la pratique à partir de la combobox nommée "Nom" je sélectionne un usager par exemple DUPON Pierre et que juste au dessus se trouve un DUPON Antoine et que je souhaite modifier l'adresse de DUPON Pierre alors je me retrouve avec deux DUPON Pierre sont compères Antoine à totalement disparu. j'en perds mon latin comme on dit. Voilà donc si l'un d'entre vous est en mesure de m'apporter son aide je l'en remercie par d'avance. A toute fin utile je joins le code plus le fichier pour ce dernier dès son ouverture cliquer sur le bouton "insérer les données"

Cordialement

Private Sub CommandButton5_Click()
Dim modif As Integer
'If Not ComboBox2.Value = "" Then
If ComboBox2.ListIndex = -1 Then Exit Sub
modif = ComboBox2.ListIndex + 2


'Cells(modif, 3).Value = ComboBox2.Value
Cells(modif, 2).Value = ComboBox1.Value
Cells(modif, 1).Value = TextBoxRF.Value
Cells(modif, 4).Value = TextBoxPrénoms.Value
Cells(modif, 5).Value = TextBoxnaissance_1.Value
Cells(modif, 8).Value = TextBoxPrénomConjoint
Cells(modif, 9).Value = TextBoxDN2
Cells(modif, 11).Value = TextBoxRésidence
Cells(modif, 12).Value = TextBoxAdresse
Cells(modif, 13).Value = TextBoxTel_1
Cells(modif, 14).Value = TextBoxTel_2
Cells(modif, 15).Value = TextBoxEnfts_1
Cells(modif, 16).Value = TextBoxEnfts_2
Cells(modif, 17).Value = TextBoxTel_Autres
Ect …….
Ect ………

End sub
 

Fichiers joints

Discussions similaires


Haut Bas