Faire référence à la ligne active

Bonjour,

Je cherche à ouvrir mon Userform en récupérant les informations renseignées sur la ligne active.

UserForm1.ComboBox1.Value = Sheets("Test CR").Cells(ActiveCell.Row, 4).Value
UserForm1.TextBox13.Value = Sheets("Test CR").Cells(ActiveCell.Row, 5).Value
UserForm1.TextBox14.Value = Sheets("Test CR").Cells(ActiveCell.Row, 6).Value
UserForm1.TextBox15.Value = Sheets("Test CR").Cells(ActiveCell.Row, 7).Value

Comment puis-je lui indiquer qu'à la place de "ActiveCell.Row" il renseigne la ligne active ?

Merci de votre aide.

Bonjour,

ActiveCell.Row renvoie le numéro de ligne active. Qu'est ce qui ne convient pas ? Que cherchez vous à obtenir ? J'ai du mal à voir ce qui ne fonctionne pas ..

Cdlt,

merci de votre réponse,

En l'état, ca ne fonctionne pas...

Si je remplace ActiveCell.Row par un numéro de ligne alors oui, mon userform s'ouvre avec les données renseignées dans les cellules correspondantes.

Mais si je laisse le code tels quel, alors ca bug ...

Bonjour,

Une piste !?

Dim Acell As Range, strWs As String
    Set Acell = ActiveCell
    strWs = Acell.Parent.Name
    If strWs = "Test CR" Then
        With UserForm1
            .ComboBox1.Value = Cells(Acell.Row, 4).Value
            .TextBox13.Value = Cells(Acell.Row, 5).Value
            .TextBox14.Value = Cells(Acell.Row, 6).Value
            .TextBox15.Value = Cells(Acell.Row, 7).Value
        End With
    End If

Bonjour,

Je pense que le soucis n'est pas ici mais il nous faudrait le fichier pour investiguer. Cf un contre exemple comme quoi cela fonctionne correctement ci-joint. Si la ligne contenant les lettres est sélectionnée alors elles sont bien chargées dans le USF.

Cdlt,

Merci de votre aide !

Je ne sais pas précisément ou était l'erreur, mais cela fonctionne.

Je clôture mon post !

BOB