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