Macro Copie plage cellules sur autre feuille

Question

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.

Configuration: Windows Vista / Firefox 4.0.1

ccm81 · Answer

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

cyr301 · Answer

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.

Macro Copie plage cellules sur autre feuille

2 réponses

Discussions similaires

Newsletters