Fonction Find avec variable

Bonjour a tous,

J'ai deux problèmes qui me cassent la tête....

Le premier c'est ce morceau de code

mois = Month(Worksheets("caché").Cells(4, 4 + i))
annee = Year(Worksheets("caché").Cells(4, 4 + i))
NomMois = MonthName(mois)
Nomdate = MonthName(mois) & " " & annee
ActiveSheet.Columns(3).Cells.Find(What:=(Nomdate), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

La fonction find ne veut pas chercher ma variable, elle n'accepte qu'un bête mot entre trémas.

Le second soucis vient de la langue d'Excel. J'ai développé une macro sous Excel Francais et en le donnant à une collègue qui a un excel anglais, ce coince à cette ligne.

[recap].Cells(2, 2 + m).FormulaLocal = "=NB.SI(" & maplage.Address & ";""w"")/2"

Je l'ai donc changée en

[recap].Cells(2, 2 + m).Formula = "=COUNTIF(" & maplage.Address & ";""w"")/2"

mais ça ne passe toujours pas.

Je ne peux pas joindre le fichier, c'est trop sensible.

Je prends toute suggestion, car là je suis vraiment fatigué....

Merci d'avance

bonjour,

1) A mon avis, tu reçois un message d'erreur parce que ta recherche ne donne pas de résultat

pour vérifier

tu peux écrire ton code ainsi

set resultat =ActiveSheet.Columns(3).Cells.Find(What:=Nomdate, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
if resultat is nothing then
msgbox nomdate & " non trouvé"
else
resultat.select
end if

2) remplace ";" par "," dans la formule

[recap].Cells(2, 2 + m).Formula = "=countif(" & maplage.Address & ",""w"")/2"

Bonjour,

et dans ta colonne 3 tu as quoi ?

Une date avec un format d'affichage "mm aaaa" ou réellement une chaine ?

Dans le cas 1 tu dois rechercher .find(clng(ta_date) et non une chaine, et dans le cas 2 tu vas avoir un problème de traduction de nom de mois.

Comme quoi toujours mettre un fichier exemple te ferait gagner du temps plutôt qu'on ne fasse que des suppositions.

eric