Macro Copie plage cellules sur autre feuille
Bonjour,
Je possède un tableau Excel avec des cellules sommes en fin de tableau (cellules en D101 et de F101 à L101).
Je souhaiterai que la macro sélectionne ce deux plages de cellules et ne copie que les valeurs (pas la mise en forme) sur une autre feuille du classeur de C7 à J7.
Il faut savoir que les cellules somme de la première feuille ne sont pas fixes car je rajoute parfois des lignes par insertion dans mon tableau.
Pouvez-vous m'aider?
Merci d'avance.
Cyr301.
Je possède un tableau Excel avec des cellules sommes en fin de tableau (cellules en D101 et de F101 à L101).
Je souhaiterai que la macro sélectionne ce deux plages de cellules et ne copie que les valeurs (pas la mise en forme) sur une autre feuille du classeur de C7 à J7.
Il faut savoir que les cellules somme de la première feuille ne sont pas fixes car je rajoute parfois des lignes par insertion dans mon tableau.
Pouvez-vous m'aider?
Merci d'avance.
Cyr301.
2 réponses
-
bonsoir
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 -
Bonjour,
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.
