Copier à la premiere ligne vide d'une plage

Résolu/Fermé

Patrick50 - 21 oct. 2015 à 17:43
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 1 nov. 2015 à 21:43

Bonjour,

Je dois copier la plage "AE1:AL1" à la première ligne vide de la plage "AA50:AH1000". La première ligne vide n'étant pas toujours la même, pour faciliter l'opération je souhaiterais la faire se réaliser par une macro.

Merci

A voir également:

Copier à la premiere ligne vide d'une plage
Aller à la ligne excel - Guide
Copier une vidéo youtube - Guide
Ligne occupée - Forum SFR
Hors ligne instagram - Guide
Vente en ligne particulier - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par Whismeril le 1/11/2015 à 09:54

Bonjour

essaies

Option Explicit
'----------------------------------
Sub copier_lignevide()
Dim tampon, ligvid As Integer

    Application.ScreenUpdating = False
    tampon = Range("AE1:AL1")
    On Error Resume Next
        ligvid = Range("AA50:AH1000").Find(what:="*", searchdirection:=xlPrevious).Row + 1
        If Err.Number > 0 Then: ligvid = 50
    On Error GoTo 0
    Range("AA" & ligvid).Resize(1, 8) = tampon
End Sub

Michel

Patrick50
21 oct. 2015 à 23:45

Bonjour michel_m

Cela marche très bien.

Merci

Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 931
1 nov. 2015 à 09:55

EDIT : Ajout du LANGAGE dans les balises de code.
Explications disponibles ICI

Merci d'y penser dans tes prochains messages.

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
1 nov. 2015 à 11:00

AWhismeril
DE QUOI TU TE MELES ?
Il n'y a AUCUNE OBLIGATION d'utiliser ce système sinon pourquoi avoir les balises code ?
Qui + est 9 jours après la clôture du message...

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024
1 nov. 2015 à 11:42

Bonjour,

a propos des balises de code depuis un certain temps, quand tu as tapé du texte et que tu veux ajouter du code avec les balises, les balises se placent devant le texte que tu as tapé au lieu de se placer a la suite de ce texte.

Il faudrait le signaler parmi les bug.

Je ne fais plus car nous ne sommes pas écouté au niveau des admin. Prenons l'exemple de la dépose de programmes sur VB.NET, qui est perturbé depuis quelque temps.

@+ Le Pivert

Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 931
1 nov. 2015 à 15:37

Bonjour,

@Michel, non il n'est pas obligatoire de préciser le langage dans les balises, mais c'est plus lisible surtout quand le site ne trouve pas tout seul de quel langage il s'agit et c'était le cas/

sans langage

Option Explicit
'----------------------------------
Sub copier_lignevide()
Dim tampon, ligvid As Integer

    Application.ScreenUpdating = False
    tampon = Range("AE1:AL1")
    On Error Resume Next
        ligvid = Range("AA50:AH1000").Find(what:="*", searchdirection:=xlPrevious).Row + 1
        If Err.Number > 0 Then: ligvid = 50
    On Error GoTo 0
    Range("AA" & ligvid).Resize(1, 8) = tampon
End Sub

avec

Option Explicit
'----------------------------------
Sub copier_lignevide()
Dim tampon, ligvid As Integer

    Application.ScreenUpdating = False
    tampon = Range("AE1:AL1")
    On Error Resume Next
        ligvid = Range("AA50:AH1000").Find(what:="*", searchdirection:=xlPrevious).Row + 1
        If Err.Number > 0 Then: ligvid = 50
    On Error GoTo 0
    Range("AA" & ligvid).Resize(1, 8) = tampon
End Sub

Pour les 9 jours, il y a eu une alerte sur ce post, donc je suis passé voir.

@Le Pivert
Oui ce bug arrive avec de vieilles versions d'IE, si tu as un autre navigateur, on fera remonter

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Comment faire le symbole coeur vide/coeur blanc

le frigo ne marche pas....

Dessiner avec son clavier et avec des lettres

Masque diapositives : superposition image et forme

Discussions similaires

Newsletters