Coller dans la première cellule vide d'une colonne
Angel
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaite faire une macro pour copier la ligne de A16 à E16 et coller dans la première ligne vide entre la ligne 23 et 36. J'ai essayer plusieurs fonction mais rien de fonctionnel.
Merci d'avance de votre aide.
Je souhaite faire une macro pour copier la ligne de A16 à E16 et coller dans la première ligne vide entre la ligne 23 et 36. J'ai essayer plusieurs fonction mais rien de fonctionnel.
Merci d'avance de votre aide.
A voir également:
- Coller dans la première cellule vide d'une colonne
- Déplacer une colonne excel - Guide
- Comment supprimer une page vide sur word - Guide
- Trier une colonne excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Colonne word - Guide
2 réponses
Bonjour
Cdlmnt
Option Explicit
' plage source
Const PlageACopier = "A16:E16"
' plage but
Const codeb = 1
Const lideb = 23
Const lifin = 36
Public Sub Kopier()
Dim li As Long, ok As Boolean
li = lideb
ok = False
For li = lideb To lifin
If Cells(li, codeb).Value = "" Then
ok = True
Exit For
End If
Next li
If ok Then Range(PlageACopier).Copy Cells(li, codeb)
End Sub
Cdlmnt
Bonjour
Edit: excuse moi CCM, je n'avais pas rafraichi ;o)
Option Explicit
'----------------------------
Sub Angel2()
Dim Ligvid As Byte
'Ligvid entre ligne23 et 36
Ligvid = Range("A23:A36").Find(what:="", after:=Range("A23")).Row
'copie valeur A16:E16
Cells(Ligvid, "A").Resize(1, 6) = Range("A16:F16").Value
End Sub
Edit: excuse moi CCM, je n'avais pas rafraichi ;o)