Macro VBA coller à la ligne dans une cellule spécifique
Bonjour,
Novice en VBA, j'essaye de réaliser une macro pour copier les résultats de la ligne L92 à O92 de ma feuille "Bilan" vers une feuille Résultat en C4 à F4.
Sauf que les résultats de la ligne L92 à O92 change régulièrement et je voudrais a chaque fois que j'appuie sur le bouton de la macro que les résultats viennent à la suite, à la ligne donc en D4 to F4 de la feuille "résultat"
j'ai tenté ça :
Range("L92:O92").Select
Selection.Copy
Sheets("Resultat ").Select
Range("C4").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
j'ai aussi joint mon fichier Excel
Merci d'avance pour votre aide
Bonjour,
Essaie ce code:
Sub Màj()
Dim Derl%
Derl = Range("C" & Rows.Count).End(xlUp).Row + 1
Range("C" & Derl).Resize(1, 4) = Sheets("Bilan").Range("L92:O92").Value
End SubCdt
Merci !!!
ca marche, par contre mon bouton ne fonctionne que sur la feuille "résultat" et pas la première "Bilan" C'est normal ?
si tu veux mettre un bouton sur chaque feuille, il faut nommer les feuilles avant les range
Attention je me suis fait piéger tu as une espace au bout du nom "Resultat "
Sub Màj()
Dim Derl%
With Sheets("Resultat ")
Derl = .Range("C" & Rows.Count).End(xlUp).Row + 1
.Range("C" & Derl).Resize(1, 4) = Sheets("Bilan").Range("L92:O92").Value
End With
End SubBonne soirée