Collage spécial dans la première ligne vide d'une autre feuille
Résolu/Fermé
A voir également:
- Vba première ligne vide
- Coeur vide ✓ - Forum Réseaux sociaux
- Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
- Apparaitre hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Aller à la ligne excel - Guide
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 741
16 févr. 2017 à 12:25
16 févr. 2017 à 12:25
Bonjour,
Pour trouver la première ligne vide de la colonne C de la feuille "Archivage" (par exemple) :
Après, pour copier coller, pas besoin de Sélection :
S'écrit plus simplement :
Ce qui te donne un code du genre :
PS : évite d'écrire avec des moufles ;-).
Le code donné dans ton message comporte :
Pour trouver la première ligne vide de la colonne C de la feuille "Archivage" (par exemple) :
Dim maLigne As Long With Sheets("Archivage") If .Range("C1") <> "" Then maLigne = .Range("C" & Rows.Count).End(xlUp).Row + 1 Else maLigne = 1 End If End With
Après, pour copier coller, pas besoin de Sélection :
Sheets ("listing").select Range ("b3:e32").select Application.CutCooyMode = False Sélection.Copy
S'écrit plus simplement :
Sheets("listing").Range("B3:E32").Copy
Ce qui te donne un code du genre :
Dim maLigne As Long With Sheets("Archivage") If .Range("A1") <> "" Then maLigne = .Range("A" & Rows.Count).End(xlUp).Row + 1 Else maLigne = 1 End If Sheets("listing").Range("B3:E32").Copy .Range("A" & maLigne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=False End With
PS : évite d'écrire avec des moufles ;-).
Le code donné dans ton message comporte :
- des espaces inutiles
- Sheets ("listing")
- Range ("b3:e32")
- Operation: =False
- des accents inutiles : Sélection
- des fautes de frappe :
- pastespecial => manque les majuscules
- Paste=xlPastValues ==> manque les : et un e : Paste:=xlPasteValues