Selectionner la cellule d'une valeur cherchée

[bartelele]

Bonjour à tous,

J'ai un petit souci dans mon code :s

J'ai un userform avec un combobox.

Je souhaite qu'à la fermeture de ce userform, on regarde la valeur du combobox, on la chercher dans une base de donnée, et on selectionne la cellule.

Ensuite je peux alimenter ma base directement avec des valeurs rentrées dans mon userform.

Pour cela j'ai fait ce code:

Private Sub CommandButton1_Click()

Sheets("base").Range("A:A").Find(Me.CB_Nom, lookat:=xlWhole).Select

ligne = ActiveCell.Row
ActiveWorkbook.Sheets("base").Cells(ligne, 3) = Me.TB_Anciennete & ""
ActiveWorkbook.Sheets("base").Cells(ligne, 5) = Me.TB_Derniere_visite & ""
ActiveWorkbook.Sheets("base").Cells(ligne, 6) = Me.CB_Frequence & ""
ActiveWorkbook.Sheets("base").Cells(ligne, 7) = Me.TB_Date_prochaine_visite & ""
ActiveWorkbook.Sheets("base").Cells(ligne, 8) = Me.TB_Date_convocation & ""


End Sub

Mais cela ne marche pas

 

[tototiti2008]

Re : Selectionner la cellule d'une valeur cherchée

Bonjour bartelele,

ça ne marche pas, ça veut dire qu'il plante ou qu'il ne fait rien ?

 

[bartelele]

Re : Selectionner la cellule d'une valeur cherchée

il me dit que la méthode select de la classe range a échoué...

 

[tototiti2008]

Re : Selectionner la cellule d'une valeur cherchée

Re,

ça veut dire qu'il ne trouve pas le texte de la combobox dans la colonne A

Private Sub CommandButton1_Click()
Dim Ligne as long, C as range
Set C = Sheets("base").Range("A:A").Find(Me.CB_Nom, lookat:=xlWhole)
If C is Nothing then
Msgbox "pas trouvé " & Me.CB_Nom
Exit Sub
end if
ligne = C.Row
ActiveWorkbook.Sheets("base").Cells(ligne, 3) = Me.TB_Anciennete & ""
ActiveWorkbook.Sheets("base").Cells(ligne, 5) = Me.TB_Derniere_visite & ""
ActiveWorkbook.Sheets("base").Cells(ligne, 6) = Me.CB_Frequence & ""
ActiveWorkbook.Sheets("base").Cells(ligne, 7) = Me.TB_Date_prochaine_visite & ""
ActiveWorkbook.Sheets("base").Cells(ligne, 8) = Me.TB_Date_convocation & ""
End Sub

 

[bartelele]

Re : Selectionner la cellule d'une valeur cherchée

ah merci beaucoup pour ton aide ca marche!