recuperer n° ligne afin de modifier celle ci Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
c
cisco38
Membre fidèle
Membre fidèle
Messages : 220
Inscrit le : 5 février 2014
Version d'Excel : 2007

Message par cisco38 » 3 novembre 2014, 15:08

bonjour
comment recuperer le numero de la ligne sur le classeur apres choix dans listbox afin de pouvoir effectué des modifications.
bouton planches a modifier
SUIVI.xlsm
(109.79 Kio) Téléchargé 22 fois
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 3 novembre 2014, 16:11

Bonjour

En considérant que la référence est unique
Rajoutes la fin de la procédure Private Sub ListBox1_Click()
  Me.ComboBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 7)
  TextBox10.Value = Me.ListBox1.ListIndex + 1

[surligner]Dim Cel As Range
  Set Cel = Sheets("Inventaire Planches").Columns("E").Find(what:=Me.TextBox4, LookIn:=xlValues, lookat:=xlWhole)
  If Not Cel Is Nothing Then
    Me.TextBox11 = Cel.Row
  Else
    Me.TextBox11 = ""
  End If[/surligner]
  '---------------------------
'  Ligne = ActiveCell.Row
'  TextBox11.Value = Ligne
'  '--------------------------------

End Sub
Image
c
cisco38
Membre fidèle
Membre fidèle
Messages : 220
Inscrit le : 5 février 2014
Version d'Excel : 2007

Message par cisco38 » 3 novembre 2014, 16:27

oui si la référence est unique cela fonctionne, par contre des fois je vais avoir la même référence mais pour deux façon différente de travailler.
j'explore ta procédure voir si je peu adapter ton code
merci d'avoir regarder et si tu a une autre solution je prend
même s'il faut faire un AutoFilter et après afficher dans listbox
c
cisco38
Membre fidèle
Membre fidèle
Messages : 220
Inscrit le : 5 février 2014
Version d'Excel : 2007

Message par cisco38 » 3 novembre 2014, 16:54

bonjour
en rajoutant des autofilter et ton code cela a l air de fonctionner
je continu et je vous tien au courant de la suite
Private Sub ListBox1_Click()

If Me.ListBox1.ListIndex <> -1 Then
With Sheets("Inventaire Planches").Range("A3")
.AutoFilter 1, Me.ListBox1.List(Me.ListBox1.ListIndex, 1 - 1)
.AutoFilter 2, Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
.AutoFilter 3, Me.ListBox1.List(Me.ListBox1.ListIndex, 2)

End With
Me.TextBox2.Text = Me.ListBox1.List(Me.ListBox1.ListIndex, 1 - 1) & Me.ListBox1.List(Me.ListBox1.ListIndex, 1) & Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
End If
For I = 3 To 6
Me.Controls("Textbox" & (I)).Value = Me.ListBox1.List(Me.ListBox1.ListIndex, (I))
Next I
For I = 8 To 9
Me.Controls("Textbox" & (I)).Value = Me.ListBox1.List(Me.ListBox1.ListIndex, (I))
Next I
 Me.ComboBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 7)
TextBox10.Value = Me.ListBox1.ListIndex + 1

'---------------------------

Dim Cel As Range
  Set Cel = Sheets("Inventaire Planches").Columns("E").Find(what:=Me.TextBox4, LookIn:=xlValues, lookat:=xlWhole)
  If Not Cel Is Nothing Then
    Me.TextBox11 = Cel.Row
  Else
    Me.TextBox11 = ""
  End If

End Sub
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message