Recherche et copie

Fermé
emm - 5 oct. 2011 à 11:09
Bonjour,

J'ai encore besoin d'aide... Et oui les jours passent mais la connaissance ne suit pas...
Voilà, j'ai mais un optionbutton dans ma colonne, ici en (I15). Je souhaite récupérer le num de la colonne donc 15, lui attribuer une autre colonne soit (c15), lire la cellule (c15), stocker cette valeur dans tiroir et effectuer une recherche et une copie...
J'ai donc écris :
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then

actlign = ActiveCell.Row
Tiroir = ["c" & actlign]

With Worksheets("eone")
Set CelluleTrouvée = .Range("d4:d122").Find(What:=Tiroir, _
LookIn:=xlValues, LookAt:=xlWhole)

If CelluleTrouvée Is Nothing Then
MsgBox "pas trouvé"
Else
Ligne = CelluleTrouvée.Row
Col = CelluleTrouvée.Column + 1
toto = .Cells(Ligne, Col).Value
MsgBox ("trouvé : ligne = " & Ligne & " , colonne = " & Col)
End If
End With
Mais ça plante... dans actlihn j'ai bien "15" mais dans tiroir ...rien et ça plante.
Merci de votre aide.
@++