Autres Erreur d'exécution 91 ou...bloc With non défini

[Christian0258]

Bonjour à tout le forum,

J'aimerais votre éclairage sur cette macro, qui fonctionne parfaitement seule, mais lorsqu'elle est associée (call...) dans une autre plante...

voir fichier

Bien amicalement,
Christian

 

[_Thierry]

Bonjour @Christian0258 , le Forum

Ce n'est pas le Call c'est que ta Feuille "TransfertRT" n'est plus la feuille active quand tu lances depuis "Archives"...

Ceci équivaut à dire que tu travailles sur la feuille active pour le Row.Count et le Find ...

lgn = fB.Range("B5:B" & fB.Range("B" & Rows.Count).End(xlUp).Row).Find(Range("A" & i), lookat:=xlWhole).Row

Essaie comme ceci :

lgn = fB.Range("B5:B" & fB.Range("B" & fT.Rows.Count).End(xlUp).Row).Find(fT.Range("A" & i), lookat:=xlWhole).Row

Bonne journée
@+Thierry

 

[Christian0258]

Re, le forum, Thierry

Merci infiniment, Thierry, pour cette ligne de code qui fonctionne parfaitement.

Bien à toi,
Christian