Microsoft 365 selectionner cellule via un combobox

[pascal21]

Private Sub UserForm_Click()
Option Explicit
Private Sub CommandButton1_Click()
Dim ligne As Integer
ligne = ComboBox1.ListIndex
Range(ligne + 1 & ":" & ligne + 1).Select
End Sub
Private Sub UserForm_Initialize()
    Dim j As Integer
    'Récupère les données de la colonne A...
    For j = 1 To Range("A65536").End(xlUp).Row
        ComboBox1 = Range("A" & j)
        '...et filtre les doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j
End Sub

bonjour j'ai trouvé ce code qui me permet de sélectionner la ligne entière avec la valeur indiquée dans le combobox. comment faire pour que ça me sélectionne que la cellule de la colonne A et non pas la ligne entière
merci de votre aide

 

[Eric_49]

Bonjour

Il suffit de remplacer :
Range(ligne + 1 & ":" & ligne + 1).Select
par
Cells(ligne+1,1).select

A+

 

[pascal21]

merci ca fonctionne nickel

 

[job75]

Bonjour pascal21, Eric_49,

En passant Range(ligne + 1 & ":" & ligne + 1).Select c'est pas bien fameux 🙄

Utilisez plutôt Rows(ligne + 1).Select

A+