Sujet Précédent Sujet Suivant

Copier à la premiere ligne vide d'une plage

Résolu/Fermé
Patrick50 - 21 oct. 2015 à 17:43
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 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

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 310
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
0
Patrick50
21 oct. 2015 à 23:45
Bonjour michel_m

Cela marche très bien.

Merci
0
Utilisateur anonyme
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.
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
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...
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > Utilisateur anonyme
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
0
Utilisateur anonyme
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
0

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc
Paria -
2008G.C -

60 réponses
le frigo ne marche pas....
Nemo6456 -
Templier Nocturne -

1 réponse
Boucle sur la première diapositive d'une présentation
ND83 -
ndubau -

3 réponses
Masque diapositives : superposition image et forme
ASwhl -
m@rina -

3 réponses
Formaté mais pas de connexion Internet ?
VissErale -
VissErale -

4 réponses