Discussion :

[aweb]

Bonjour

J'ai un classeur excel avec beaucoup de feuilles à l'intérieur (j'en n'ai mis que 4 pour faciliter l'exemple).
J'aimerai sélectionner toutes les feuilles de ce classeur puis faire un copier collage spécial des valeurs de toutes les cellules de chaque feuille.

Dans le code, il reprend la liste de toutes les feuille une par une, puis il fait le copier collage spécial des valeurs.
Mon problème, c'est que dès lors que je rajouterai une ou plusieurs feuilles, cette macro ne fonctionnera plus pour toutes les feuilles.

Pouvez-vous m'aider svp à coder "toutes les feuilles" sans les nommer ?

D'avance Merci

Voici mon code pour le moment

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
 
Sub copiercollagespécialvaleurV2()
'
' copiercollagespécialvaleurV2 Macro
'
 
'
    Sheets(Array("Feuille1", "Feuille2", "Feuille3", _
        "Feuille4")).Select
    Sheets("Feuille1").Activate
    Cells.Select
    Range("E2").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

[mfoxy]

Hello,

Il te suffirait de faire une boucle.

Pour chaque feuille du classeur
Traitement
Feuille siivante

Tu trouveras plein d'exemple sur ce forum.

Bat,

[aweb]

J'ai tapé ce code qui fonctionne.
La seule chose que j'aimerai rajouter pour que le fichier soit plus propore,; c'est qu'il se positionne en E2 de toutes ces feuilles.
J'ai essayé avec Ws.Range("E2").Select ou encore Ws.Range("E2").Activate mais cela ne fonctionne plus...

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
 
Sub Copiercollagespécialdesvaleurs()
'
'
 Dim Ws As Worksheet
 
  For Each Ws In Sheets
 
    Ws.Cells.Copy
    Ws.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
    Next Ws
 
End Sub

[Pierre Fauconnier]

Salut.

Tu as intérêt à travailler sur la collection Worksheets plutôt que sur Sheets, car tu types ws comme étant un worksheet. Si tu as une feuille de graphe dans ton classeur, ça va planter.

Tu ne peux activer qu'une cellule de la feuille active. Dès lors, voici un code qui pourrait convenir:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
  Dim ws As Worksheet
 
  For Each ws In Worksheets
    ws.Cells.Copy
    ws.Cells.PasteSpecial xlPasteValues
    ws.Activate
    Range("e2").Select
  Next
  Application.CutCopyMode = False
End Sub

[aweb]

Merci beaucoup Pierre

çà fonctionne parfaitement.