Vba : coller dans la première ligne vide [Résolu]

Messages postés
119
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
18 juillet 2019
- - Dernière réponse : noe2008
Messages postés
119
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
18 juillet 2019
- 18 juil. 2019 à 19:04
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
Afficher la suite 

1 réponse

Messages postés
9121
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
23 septembre 2019
1628
0
Merci
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
noe2008
Messages postés
119
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
18 juillet 2019
3 -
Merci infiniment ccm81
Commenter la réponse de ccm81