Copier à la premiere ligne vide d'une plage

Résolu

Patrick50 -
cs_Le Pivert Messages postés 8437 Statut Contributeur - 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

Afficher la suite

1 réponse

Réponse 1 / 1
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
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
1. Patrick50
  
  Bonjour michel_m
  
  Cela marche très bien.
  
  Merci
  
  0
2. Utilisateur anonyme
  
  EDIT : Ajout du LANGAGE dans les balises de code.
  Explications disponibles ICI
  
  Merci d'y penser dans tes prochains messages.
  
  0
3. michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
  
  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
4. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > 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
5. 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

Copier à la premiere ligne vide d'une plage

1 réponse

Discussions similaires

Newsletters