Bug Option explicit et fonction SET

[Malone]

Bonjour,

Je cherche à connaitre le numéro de ligne d'un mot présent dans une cellule qui change d'une feuille à l'autre.

Lorsque je ne suis pas en option explicit tout fonctionne bien
mais lorsque je suis en option explicit j'ai l'erreur suivante : erreur de compilation / objet recquis

Le problème est que j'intègre ce code dans une macro qui est toute codée en option explicit donc je voudrai savoir où ça coince

Code ok :

Sub testcel()

'on cherche la valeur de la deuxième ligne après historique qui est la ligne de donnée

Set cel = Cells.Find(What:="Historique")
historiquerow = cel.Row + 2


End Sub

Code bugué :
la macro bug sur "cel ="

Option Explicit


Sub testcel2()

Dim cel As String
Dim historiquerow As String

'on cherche la valeur de la deuxième ligne après historique qui est la ligne de donnée

Set cel = Cells.Find(What:="Historique")
historiquerow = cel.Row + 2

End Sub

Merci de votre aide

 

[Pierrot93]

Re : Bug Option explicit et fonction SET

Bonjour,

essaye peut être de modifier :

Dim cel As String

par :

Dim cel As Range

bon après midi
@+

 

[Malone]

Re : Bug Option explicit et fonction SET

Merci beaucoup Pierrot! j'étais tellement noyé dans mon code que je n'ai pas remarqué

Bon aprem à toi aussi
A+