Excel vba :selectioner ligne dans feuile excel via un listbox
midogo
-
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j ai un listbox
je veux sélectionner une ligne dans la lixte qui sera s"lectionné automatiquement dans la feuille excel
et seulement seul les ligne sélectionées auront leur cellule contenant "NEW" seront modifiées en "MOD"
j ai un listbox
je veux sélectionner une ligne dans la lixte qui sera s"lectionné automatiquement dans la feuille excel
et seulement seul les ligne sélectionées auront leur cellule contenant "NEW" seront modifiées en "MOD"
A voir également:
- Excel vba :selectioner ligne dans feuile excel via un listbox
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Déplacer colonne excel - Guide
1 réponse
bonjour
Si tu pouvais nous mettre un exemple sans éléments personnels mais avec la structure des données sur https://www.cjoint.com/ puis nous mettre le lien généré ici ce serait plus facile.
Si tu pouvais nous mettre un exemple sans éléments personnels mais avec la structure des données sur https://www.cjoint.com/ puis nous mettre le lien généré ici ce serait plus facile.
Dim G As Range
Dim W As Range
Dim nbrows As Integer
Dim i As Integer
Dim j As Integer
Dim H As Range
Dim A As String
Sheet17.AutoFilterMode = False
Sheet17.Activate
'Set W = Sheet17.Range("A1:J500")
'W.Cells.AutoFilter field:=4, Criteria1:=UserForm2.numgroup.Value
'M = InputBox("entrer la valeur de la modification")
For i = 0 To ListBox1.ListCount - 1
Do While ListBox1.Selected(i)
'Set W = Sheet17.Range("A1:J500")
' W.Cells.AutoFilter field:=4, Criteria1:=ListBox1.List(i, 5)
Set G = Sheet17.Range("A2:J500").Find(what:=ListBox1.List(i, 5), LookIn:=xlValues, lookat:=xlWhole)
'Sheet17.Rows(i).Select
MsgBox ("numero PM trouvé :") & G.Value
MsgBox ("numero PM trouvé :") & G.Address
G.Offset(0, 2).Value = "MOD"
i=i+1
loop
next
Content pour toi que tu ais trouvé la solution à ton problème.