vba : coller dans la première ligne vide Résolu/Fermé

Question

Bonjour, 
Je cherche une macro pour copier les valeurs de la plage  : C2:P2 de  la feuille "trans" dans la première plage vide d' un autre tableau C27:P90  de la feuille "congé"
je tiens à préciser   que les valeurs de la plage  : C2:P2  de  la feuille "trans"sont des formules

Cordialement 


Configuration: Windows / Chrome 75.0.3770.142

ccm81 · Answer

Bonjour

Tu veux copier les valeurs ou bien les formules ?

Option Explicit

Const FT = "trans"
Const plageFT = "C2:P2"

Const FC = "congé"
Const lidebFC = 27
Const codebFC = 3

Public Sub CopieValeurs()
Dim lifinFC As Long
lifinFC = lidebFC
Do
  lifinFC = lifinFC + 1
Loop Until Sheets(FC).Cells(lifinFC, codebFC).Value = ""
Sheets(FT).Range(plageFT).Copy
Sheets(FC).Select
Sheets(FC).Cells(lifinFC, codebFC).Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

Public Sub CopieFormules()
Dim lifinFC As Long
lifinFC = lidebFC
Do
  lifinFC = lifinFC + 1
Loop Until Sheets(FC).Cells(lifinFC, codebFC).Value = ""
Sheets(FT).Range(plageFT).Copy Sheets(FC).Cells(lifinFC, codebFC)
End Sub

https://mon-partage.fr/f/XrI5JCHG/

Cdlmnt

Vba : coller dans la première ligne vide

1 réponse

Discussions similaires