Bonjour,
Je suis débutante sur VBA et j'essaie de faire une macro.
Je travaille actuellement sur une macro faisant une boucle dans un classeur excel qui va copier les valeurs de l'onglet et elle doit me répéter cette action sur chaque onglet présent dans le classeur et pour cela j'utilise la boucle For Each.
Or la boucle ne fonctionne pas car elle ne passe pas à l'onglet suivant une fois l'action terminée et je n'arrive pas à comprendre pourquoi.
Pouvez - vous m'aider ? code - ci dessous
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Sub Liaison() Dim Onglet As Worksheet For Each Onglet In Worksheets ' permet de rompre les liaisons du fichier excel ActiveSheet.Outline.ShowLevels RowLevels:=3 Cells.Select Range("C2").Activate Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.Outline.ShowLevels RowLevels:=1 Next Onglet End Sub
Merci de votre aide
Cordialement
Partager