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 : Sélectionner tout - Visualiser dans une fenêtre à part
Set cell = ActiveSheet.Column(24).Find(what:=ActiveSheet.Range("r18").Value, LookIn:=xlValues)
en jaune.
ma macro est le suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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