problème avec find

bjr à tous
j'ai developpé une macro en utilisant la fonction Find.
mon problème c'est que à l'execution je reçois un message d'erreur + la ligne

Code:

---

Set cell = ActiveSheet.Column(24).Find(what:=ActiveSheet.Range("r18").Value, LookIn:=xlValues)

---

en jaune.
ma macro est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Dim cell As Range Dim valeur Dim annee annee = Mid(ActiveSheet.Range("q18").Value, InStr(ActiveSheet.Range("q18").Value, "/") + 1) valeur = Left(ActiveSheet.Range("q18").Value, InStr(ActiveSheet.Range("q18").Value, "/") - 1) ActiveSheet.Range("r18").Value = "C3.1-ID" & "-" & valeur & "-" & annee & ".xls" Set cell = ActiveSheet.Column(24).Find(what:=ActiveSheet.Range("r18").Value, LookIn:=xlValues) If Not cell Is Nothing Then MsgBox " CE PV EXISTE DEJA , VEUILLEZ MODIFIER LE N° PV" Range("q18").Select End If End Sub

---

je cherche votre aide; merci

Bonjour,
Il faut un "s" a column. donc :

Code:

---

Set cell = ActiveSheet.Columns(24).Find 'etc.....

---

merci rvtoulon
:oops:
ça marche.:oops:
merci