executer une macro sur plusieurs feuilles

[KTM]

salut le Forum
je voudrais executer une macro FA sur un certain nombre de feuilles.
ma macro nommée FA se trouve dans un module a part
je veux proceder comme suit:

Dim i As Long, T
T = Array("B", "C, "D", "E", "F")
For i = LBound(T) To UBound(T)
With Worksheets(T(i))
.Range("Q2").Value = w
Call FA
End With
Next i

Mais il se trouve qu'une erreur se produit dans FA .
Comment faire appel à la macro FA dans ces conditions? Merci.

 

[Staple1600]

Bonsoir

Et peut-on voir le contenu de la macro FA, svp?

 

[KTM]

Bonsoir

Et peut-on voir le contenu de la macro FA, svp?

Contenu de la Macro FA

Range("AE1:AL" & xl).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("Q1:T2"), CopyToRange:=Range("V1:Y1"), Unique:=False

dl = Range("AV" & Rows.Count).End(xlUp).Row + 1
If dl = 11 Then Exit Sub
Range("AW" & dl).Value = Range("R2").Value
Range("AX" & dl).Value = Range("AB5").Value
Range("AY" & dl).Value = Range("AB4").Value
Range("BA" & dl).Value = Range("AB3").Value
Range("BB" & dl).Value = Range("AB2").Value

 

[Efgé]

Bonjour KTM , Re_Salut Staple

Et peut-on voir le contenu de la macro FA, svp?

D'autre parts, ne manque t-il pas au moins un " dans

T = Array("B", "C, "D", "E", "F")

Comme :
T = Array("B", "C", "D", "E", "F")

Cordialement

 

[Staple1600]

Re Efgé

KTM
A quoi correspond xl?
(dans Range("AE1:AL" & xl)

 

[KTM]

Re Efgé

KTM
A quoi correspond xl?
(dans Range("AE1:AL" & xl)

xl = Range("AE" & Rows.Count).End(xlUp).Row

La macro FA fonctionne parfaitement sur chaque feuille prise individuellement mais je voudrais l'exécuter simultanément sur ma sélection de feuilles

 

[Staple1600]

Re,

KTM
Le plus simple ne serait-il pas que tu joignes un fichier exemple avec tes codes VBA en l'état actuel?
Ce afin qu'on puisse faire des tests sur nos PC.