Copier coller valeurs pour plusieurs feuilles
Résolu/Fermé
A voir également:
- Vba coller valeur et format
- Telecharger format factory - Télécharger - Conversion & Codecs
- Format epub - Guide
- Format apfs - Guide
- Hp format tool - Télécharger - Stockage
- Format odt - Guide
7 réponses
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
19 avril 2017 à 12:34
19 avril 2017 à 12:34
Bonjour Emy, bonjour le forum,
Ton code est incomplet. D'abord il te faut retirer l'onglet destination de la boucle. Ensuite, si tu colles toujours en A1, tu effaces les données de la feuille précédente et par conséquent, au final, tu n'auras que le dernier onglet copié... Essaie comme ça :
Ton code est incomplet. D'abord il te faut retirer l'onglet destination de la boucle. Ensuite, si tu colles toujours en A1, tu effaces les données de la feuille précédente et par conséquent, au final, tu n'auras que le dernier onglet copié... Essaie comme ça :
Sub Macro1()
Dim OD As Worksheet
Dim O As Worksheet
Dim DEST As Range
Application.ScreenUpdating = False
Set OD = Worksheets("Feuil1") 'ou Set OD=ActiveSheet (à adapter à ton cas)
For Each O In Worksheets
If Not O.Name = OD.Name Then
Set DEST = IIf(OD.Range("A1").Value = "", OD.Range("A1"), OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0))
O.UsedRange.Copy DEST
End If
Next O
OD.Select
Application.ScreenUpdating = True
End Sub
Bonjour,
J'ai testé ton code, mais ça laisse les formules (pas de copier/coller valeurs à ce que je vois)
J'ai testé ton code, mais ça laisse les formules (pas de copier/coller valeurs à ce que je vois)
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
19 avril 2017 à 15:32
19 avril 2017 à 15:32
Re,
Oui désolé. La modif :
Oui désolé. La modif :
Sub Macro1()
Dim OD As Worksheet
Dim O As Worksheet
Dim DEST As Range
Application.ScreenUpdating = False
Set OD = Worksheets("Feuil1") 'ou Set OD=ActiveSheet (à adapter à ton cas)
For Each O In Worksheets
If Not O.Name = OD.Name Then
Set DEST = IIf(OD.Range("A1").Value = "", OD.Range("A1"), OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0))
O.UsedRange.Copy
DEST.PasteSpecial (xlPasteValues)
End If
Next O
OD.Select
Application.ScreenUpdating = True
End Sub
Bonjour et merci pour tes réponses, mais cela ne fonctionne toujours pas.
Pour essayer d'expliquer, je veux créer une copie d'un classeur en écrasant les formules.
J'ai l'ai fait sur d'autres avec une partie du code mis dans le sujet, les actions sont :
Open (Le classeur a copier)
Save as (Copie)
CODE ci-dessus
Save
Close
Désolé mais étant novice en VBA des fois je me perds !
Pour essayer d'expliquer, je veux créer une copie d'un classeur en écrasant les formules.
J'ai l'ai fait sur d'autres avec une partie du code mis dans le sujet, les actions sont :
Open (Le classeur a copier)
Save as (Copie)
CODE ci-dessus
Save
Close
Désolé mais étant novice en VBA des fois je me perds !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
20 avril 2017 à 08:44
20 avril 2017 à 08:44
Bonjour Emy, bonjour le forum,
"Ne fonctionne pas" ne signifie rien !... mais comme tu sembles peu enclin à donner des explications je ne vais pas me prendre la tête pour toi...
"Ne fonctionne pas" ne signifie rien !... mais comme tu sembles peu enclin à donner des explications je ne vais pas me prendre la tête pour toi...
Comme je l'ai indiqué je suis novice, ce qui te semble être de la "mauvaise volonté" et en réalité un manque de connaissance.
Merci quand-même pour ton temps.
Merci quand-même pour ton temps.
