balayage des feuilles d'un classeur

[Francis]

Bonjour le forum
Je désire balayer toutes les feuilles d’un classeur sauf une (la feuille inventaire).
Dans la feuille 'inventaire', de L3 à L30 j’ai des pièces et de M3 à M30 j’ai les titulaires de ces pièces, et je voudrais sur chaque feuille du classeur mettre chaque nom en face des responsable des pièces.
Hélas cela ne me balaie pas le classeur.
Où est l’erreur ?
Merci à vous et bonne journée
Francis

For Each ws In Worksheets
If ws.Name <> ' inventaire ' Then
For Each vcellule In Sheets('inventaire ')!['L3:L30']
If ActiveSheet.[C6] = ' secrétariat' Then
activeSheet.[H6] = Sheets('inventaire ')![M3]
End If
If ActiveSheet.[C6] = 'comptable' Then
AcitveSheet.[H6] = Sheets('inventaire ')![M4]
End If
Next
End If
Next ws

 

[Abel]

Bonjour Francis,

Je n'ai pas testé mais si je comprends ce que tu veux faire, essaie en ajoutant un 'ws.select' juste après 'For each ...'.

La façon dont tu l'as écrit, 'activesheet' reste toujours sur la même feuille. C'est à dire, celle à partir de laquelle tu lances la macro.
Le code teste donc toujours la même chose.

En espérant que cela te dépanne.

Abel.

 

[Abel]

Re,

Tu peux peut être essayer aussi :

....
If ws.[C6] = ' secrétariat' Then
ws.[H6] = Sheets('inventaire ')![M3]
...

Ca évite la ligne 'ws.select' si ça marche.

Abel.

 

[Francis]

Bonsoir Abel et le forum
Ta deuxième solution m'a mise sur le chemin.
Merci pour ton aide
Francis