Vba : coller dans la première ligne vide

Résolu
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   -  
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   4
 
Merci infiniment ccm81
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse