XL 2013 N° de la ligne active

C

CHALET53

XLDnaute Barbatruc

• 20 Avril 2016

• #2

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+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Avril 2016

• #3

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 🙂

Code:

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

 

Dernière édition: 20 Avril 2016

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 20 Avril 2016

• #4

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Avril 2016

• #5

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 😉

 

Dernière édition: 20 Avril 2016

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 21 Avril 2016

• #6

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

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 21 Avril 2016

• #7

Re : N° de la ligne active

Bonsoir maval, Lone_Wolf, le forum,

Voir le fichier joint.

Cougar

 

Pièces jointes

• Test maval.xlsm

  17.1 KB · Affichages: 19

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 21 Avril 2016

• #8

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 21 Avril 2016

• #9

Re : N° de la ligne active

bonjour tous 🙂🙂

listindex marche tres bien

avec l'exemple de cougar

Code:

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

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 21 Avril 2016

• #10

Re : N° de la ligne active

Bonjour Laetitia

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

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

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 21 Avril 2016

• #11

Re : N° de la ligne active

Bonjour

maval à dit:

Bonjour Laetitia

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

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif