Discussion :

[abouhossam]

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

[rvtoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[abouhossam]

merci rvtoulon

ça marche.
merci