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

anass1

XLDnaute Junior
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

VB:
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

7.png

Aussi dans le bouton Supprimer
Merci

4.xlsm
 

Pièces jointes

  • 4.xlsm
    37 KB · Affichages: 19

Pounet95

XLDnaute Occasionnel
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

XLDnaute Junior
Bonsoir
Merci pour votre attention Pounet95
j'ai utilisé ce code
VB:
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

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 929
Membres
101 843
dernier inscrit
Thaly