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
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