Copier à la premiere ligne vide d'une plage

Résolu
Patrick50 -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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:

1 réponse

Réponse 1 / 1
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
0
Patrick50
 
Bonjour michel_m

Cela marche très bien.

Merci
0
Utilisateur anonyme
 
EDIT : Ajout du LANGAGE dans les balises de code.
Explications disponibles ICI

Merci d'y penser dans tes prochains messages.
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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...
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729 > Utilisateur anonyme
 
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
0
Utilisateur anonyme
 
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
0

Discussions similaires

le frigo ne marche pas....
Nemo6456 -
Templier Nocturne -

1 réponse
dessin avec symbole clavier
JSS -
Adraen -

79 réponses
Internat nourriture
shaun37 -
griggo -

4 réponses
Retrouver l'image originale après avoir fait des modifications ?
Raven -
Asta972155 -

10 réponses