Vba : coller dans la première ligne vide
Résolu/Fermé
noe2008
Messages postés
183
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
9 novembre 2023
-
18 juil. 2019 à 14:05
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 18 juil. 2019 à 19:04
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 18 juil. 2019 à 19:04
A voir également:
- Vba : coller dans la première ligne vide
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
1 réponse
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
Modifié le 18 juil. 2019 à 18:50
Modifié le 18 juil. 2019 à 18:50
Bonjour
Tu veux copier les valeurs ou bien les formules ?
https://mon-partage.fr/f/XrI5JCHG/
Cdlmnt
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
18 juil. 2019 à 19:04