XL 2013 Modifier dans la listbox et textbox en cas de recherche

[anass1]

Bonjour
svp j'ai utilisé ce code pour modifier les données mais il ne modifie pas la ligne correcte si je recherche une ligne spécifique

Dim Ligne As Long
 
    If ListBox1.ListIndex = -1 Then Exit Sub
    Ligne = ListBox1.ListIndex + 2
    
    Range("B" & Ligne) = TextBox1
    Range("C" & Ligne) = TextBox2
    Range("D" & Ligne) = TextBox3
    Range("E" & Ligne) = ComboBox1
    Range("F" & Ligne) = ComboBox2
    Call UserForm_Initialize

Aussi dans le bouton Supprimer
Merci

4.xlsm

 

[Pounet95]

Bonsoir,
A tout hasard :
dans un contrôle List, les items sont "numérotés" de 0 à n où n est le nombre d'items-1 ce qui fait que Ligne=List.ListIndex+2 correspond à l'item n° 3
C'est bien cela qui est voulu ?
Claude alias Pounet95

 

[anass1]

Bonsoir
Merci pour votre attention Pounet95
j'ai utilisé ce code

Private Sub CommandButton3_Click()
Dim Ligne As Long
    If ListBox1.ListIndex = -1 Then Exit Sub
    Ligne = Range("A:A").Find(ListBox1.List(ListBox1.ListIndex, 0), LookIn:=xlValues).Row
    Range("B" & Ligne) = TextBox1
    Range("C" & Ligne) = TextBox2
    Range("D" & Ligne) = TextBox3
    Range("E" & Ligne) = ComboBox1
    Range("F" & Ligne) = ComboBox2
    Call UserForm_Initialize
End Sub

 

[Pounet95]

Bonjour,
Où est-ce que ça ne fonctionne pas ?
J'ai essayé les 3 fonctions du classeur joint au 1er post :
AJout/Modif/Supp ça trouve la bonne ligne !!!!

Le seul pb c'est que je n'ai pas le Control Calendar donc démarrage impossible ( XL2016)
Je l'ai décoché dans les Outils/Références. Attention si le classeur doit être diffusé

Claude alias Pounet95

 

[anass1]

Merci pour votre aide,
bonne journée