Variable Objet non définie

[Kobal]

Bonjour et bonne année à tous !
Premier problème de l'année pour moi, j'ai un bug dès le début d'une macro, et je sèche dessus depuis hier.
Le code:

Sub AjoutSSA(Nom As String, Cell As Range)
Dim CelTarg2 As Object
Dim Plage2 As Range
Dim wsSynthese As Worksheet
Dim wsDB As Worksheet

Set wsSynthese = Worksheets("Synthèse Palier")
Set wsDB = Worksheets("DB")

wsDB.Activate
Set Plage2 = Range(Cells(1, 2), Range("B65536").End(xlUp))
Set CelTarg2 = Plage2.Find("Faits Marquants / Divers")
[COLOR="Red"]MsgBox CelTarg2.Value[/COLOR]

La dernière ligne est surlignée en débuggage. (je vous épargne la suite du code)
et j'obtiens donc l'erreur "variable objet ou variable de bloc With non définie"
Mais je ne vois pas où ça coince.

Merci d'avance si vous voyez où ça coince...

 

[wilfried_42]

Re : Variable Objet non définie

bonjour

C'est que ta valeur definie en find n'est pas trouvée

remplace ta ligne par :

if CelTarg2 is nothing then msgbox "Valeur non trouvée" else msgbox CelTarg2

tu auras le resultat de find

 

[Kobal]

Re : Variable Objet non définie

Bonjour wilfried,
En effet, j'avais oublié un espace dans le texte a cherché
(l'erreur est corrigée, ça marche maintenant)
Merci beaucoup !