Macro Copie plage cellules sur autre feuille
Fermé
cyr301
Messages postés
11
Date d'inscription
lundi 5 octobre 2009
Statut
Membre
Dernière intervention
25 décembre 2011
-
11 mai 2011 à 19:48
cyr301 Messages postés 11 Date d'inscription lundi 5 octobre 2009 Statut Membre Dernière intervention 25 décembre 2011 - 28 mai 2011 à 11:39
cyr301 Messages postés 11 Date d'inscription lundi 5 octobre 2009 Statut Membre Dernière intervention 25 décembre 2011 - 28 mai 2011 à 11:39
A voir également:
- Macro Copie plage cellules sur autre feuille
- Lien copie - Forum Android
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Macro logiciel - Télécharger - Organisation
- Copie cachée - Guide
- Lien copié - Forum Android
2 réponses
ccm81
Messages postés
10562
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 mars 2023
2 339
11 mai 2011 à 21:02
11 mai 2011 à 21:02
bonsoir
le plus simple est de donner un nom par exemple PlageSomme à la plage D101:F101
puis la macro
de cette façon, si tu inseres des lignes avant la ligne 101 PlageSomme suivra
bonne suite
le plus simple est de donner un nom par exemple PlageSomme à la plage D101:F101
puis la macro
Public Sub copie()
Dim k As Long
Sheets(2).Cells(7, 3).Value = Sheets(1).Range("PlageSomme").Cells(1, 1).Value
For k = 3 To 9
Sheets(2).Cells(7, 1 + k).Value = Sheets(1).Range("PlageSomme").Cells(1, k).Value
Next k
End Sub
de cette façon, si tu inseres des lignes avant la ligne 101 PlageSomme suivra
bonne suite
cyr301
Messages postés
11
Date d'inscription
lundi 5 octobre 2009
Statut
Membre
Dernière intervention
25 décembre 2011
28 mai 2011 à 11:39
28 mai 2011 à 11:39
Bonjour,
Grâce à votre aide et à un petit peu de recherche personnelle, j'ai trouvé ce que je cherchais.
Voici le code:
Merci beaucoup.
Cyr301.
Grâce à votre aide et à un petit peu de recherche personnelle, j'ai trouvé ce que je cherchais.
Voici le code:
Sub Matin()
' Matin Macro
' Copie les valeurs nutritionnelles dans les repères du matin.
Sheets("Calories et nutriments").Select
Range("F65536").End(xlUp).Select
Range(ActiveCell, ActiveCell.Offset(0, 6)).Copy
Sheets("Repères Journée").Activate
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Merci beaucoup.
Cyr301.