Sujet Précédent Sujet Suivant

Excel vba :selectioner ligne dans feuile excel via un listbox

Fermé
midogo - 25 nov. 2012 à 16:54
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 25 nov. 2012 à 21:21
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"
A voir également:

1 réponse

Réponse 1 / 1
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
25 nov. 2012 à 18:34
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.
0
midogo
25 nov. 2012 à 20:47
Dim M As String
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
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
25 nov. 2012 à 21:21
Bonsoir midogo,

Content pour toi que tu ais trouvé la solution à ton problème.
0