XL 2013 N° de la ligne active

[maval]

Bonjour

J'ai sur un USF une combobox pour rechercher un nom et j'ai un label nommé "LabelIndex" auquel j'aurais aimé avoir le N° de la ligne, j'ai mis le code suivant qui ma rien donner.

Private Sub combobox1_Change()
LabelIndex.Caption = ActiveCell.Row - 1
End Sub

Je vous remercie de votre aide

 

[CHALET53]

Re : N° de la ligne active

Bonjour,

Peut-être comme ceci

=Me.ComboBox1.ListIndex (auquel il faut ajouter le nombre qui permet de se retrouver sur la ligne de la cellule)

a+

 

[Lone-wolf]

Re : N° de la ligne active

Bonjour Max

Il manque un petit quelquechose.

With Sheets("Feuil1") ou si tu as Find cel.Offset(0, 0).Row

EDIT: bonjour CHALET

Private Sub ComboBox1_Change()
With Feuil1.Range("a2:a23")
Set cel = .Find(ComboBox1, , xlValues, xlWhole)
If Not cel Is Nothing Then
Me.Label1.Caption = cel.Offset(0, 1) & " se trouve à la " &  _
cel.Offset(0, 0).Row & "ème ligne"
End If
End With
End Sub

 

[maval]

Re : N° de la ligne active

Bonjour Lone-wolf

J'ai un message d'erreur variable non définie.

Je te remercie et te souhaite une bonne journée

 

[Lone-wolf]

Re : N° de la ligne active

Re Max

Si tu as mis Option Explicit, c'est tout à fait normal. Il faut déclarer cel (Dim cel As Range).
Sinon tu risque de finir en celulle

 

[maval]

Re : N° de la ligne active

Bonsoir Lone-wolf

oui je n'est plus de message d'erreur mais sa ne fonctionne toujours pas?

Bonne soirée

 

[Cougar]

Re : N° de la ligne active

Bonsoir maval, Lone_Wolf, le forum,

Voir le fichier joint.

Cougar

 

[maval]

Re : N° de la ligne active

Bonjour Cougar

Je te remercie Nickel, je ne comprend pas pourquoi sa fonctionner pas alors que c'est le même code?

Bonne journée

 

[laetitia90]

Re : N° de la ligne active

bonjour tous

listindex marche tres bien

avec l'exemple de cougar

Private Sub ComboBox1_Change()
Label1 = ComboBox1.ListIndex + 1
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.List = Sheets("Feuil1").Range("a1:a6").Value
End Sub

 

[maval]

Re : N° de la ligne active

Bonjour Laetitia

Mon problème est que sur ma feuille j'ai se code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Target.Column = 2 And Target.Count = 1 Then
    If Target <> "" Then
      UsF_Films.LabelIndex.Caption = ActiveCell.Row - 1
          NomImage = Target
      If Dir(répertoire & "\" & NomImage & ".jpg") <> "" Then
        UsF_Films.ComboBox1.Value = NomImage
        UsF_Films.Show
      Else
        UsF_Films.ComboBox1.Value = NomImage
        UsF_Films.Show
        
      End If
    End If
  End If
End Sub

et sa mais un peut le bazar

Bonne journée et merci

 

[CISCO]

Re : N° de la ligne active

Bonjour

Bonjour Laetitia

Mon problème est que sur ma feuille j'ai ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Target.Column = 2 And Target.Count = 1 Then
    If Target <> "" Then
      UsF_Films.LabelIndex.Caption = ActiveCell.Row - 1
          NomImage = Target
      If Dir(répertoire & "\" & NomImage & ".jpg") <> "" Then
        UsF_Films.ComboBox1.Value = NomImage
        UsF_Films.Show
      Else
        UsF_Films.ComboBox1.Value = NomImage
        UsF_Films.Show
        
      End If
    End If
  End If
End Sub

et ça met un peu le bazar

Bonne journée et merci

Qu'est-ce que tu veux avoir avec la partie
If Dir(répertoire & "\" & NomImage & ".jpg") <> "" Then
UsF_Films.ComboBox1.Value = NomImage
UsF_Films.Show
Else
UsF_Films.ComboBox1.Value = NomImage
UsF_Films.Show

Comme je comprend cette partie du code, tu fais SI Dir(....) différent de "", alors X, sinon X... A quoi est-ce que cela te sert de poser une condition, et de faire la même chose, que cette condition soit vérifiée ou pas ?

@ plus