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

Signaler
Messages postés
155
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
25 octobre 2020
-
Messages postés
155
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
25 octobre 2020
-
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

1 réponse

Messages postés
9582
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
30 octobre 2020
1 929
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
Messages postés
155
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
25 octobre 2020
3
Merci infiniment ccm81