Discussion :

[ory14]

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

[Menhir]

qui va copier les valeurs de l'onglet

Où doit-elle copier ces valeurs ?

Voici une partie de la macro.
Pour la ligne PasteSpecial, il faudrait avoir la réponse à la question que j'ai posée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Liaison()
 
Dim Onglet As Worksheet
 
For Each Onglet In Worksheets
    Onglet.Outline.ShowLevels RowLevels:=3
    Onglet.Range("C2").Copy
 
 
    Onglet.Outline.ShowLevels RowLevels:=1
Next Onglet
 
End Sub

[halaster08]

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.

La boucle passe bien à l'onglet suivant mais tu ne l'utilise pas dans ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Outline.ShowLevels RowLevels:=3

Le changement de la feuille dans ta variable de boucle de boucle ne la rend pas active pour autant, plutôt que activesheet utilise donc ta variable de boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Cells.Select

Sans précision, ce code sélectionne les cellules de la feuille active, précise lui donc que tu veux le faire sur feuille Onglet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Liaison()
 
Dim Onglet As Worksheet
 
For Each Onglet In Worksheets
    Onglet.Outline.ShowLevels RowLevels:=3
    Onglet.cells.Copy
    Onglet.cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
    Onglet.Outline.ShowLevels RowLevels:=1
Next Onglet
end sub

[ory14]

Bonjour,

les données doivent être copiées dans le même onglet. Je souhaite rompre les liaisons.


Merci pour votre aide, les modifications fonctionnent parfaitement

Cordialement