Répondre à la discussion
Affichage des résultats 1 à 9 sur 9

Excel copié coller sur une ligne vide

  1. #1
    marsu79

    Excel copié coller sur une ligne vide

    Bonjour,

    Apres plusieurs recherche sans succès, je viens vers vous pour avoir de l'aide pour une macro Excel.
    Je veux copier en feuille "Calcul" les cellules G5;I5 et coller uniquement la valeur en B10;D10 et si la ligne est occupé coller en B11 et si occupé en B12 etc....

    Pour le copier collé j'y arrive, mais pour le décalage de la ligne si occupé je galère. J'ai essayé différentes formules dont celle ci :

    Sheets("Calcul").Rows(1).Copy Sheets("Calcul").Cells(Rows.Co unt, 1).End(xlUp)

    Mais ca ne marche pas

    Merci de votre aide

    Arnaud

    -----


  2. Publicité
  3. #2
    cherbe

    Re : Excel copié coller sur une ligne vide

    Bonjour
    Il faut d'abord sélectionner la cellule B10.
    puis descendre d'une ligne chaque fois que les colonnes sont occupées :

    Code:
    Range("B10").Select
    Do while activecell.value <>"" or activell.offset(0,1).value <>"" activell.offset(0,2).value <>""
          activecell.offset(1.0).select
    loop
    ' mettre ici le code pour coller
    Pour avoir de l'argent devant soi, il faut en mettre de côté ! (proverbe lorrain)

  4. #3
    marsu79

    Re : Excel copié coller sur une ligne vide

    Bonjour,

    Merci de ta réponse, mais cela ne marche pas. J'ai recopier comme indiqué ce qui donne ceci dans la macro compléte.
    Code:
    Sub copieproduits()
    '
    ' copieproduits Macro
    
        Range("A1:C1").Select
        Selection.Copy
        Range("B10").Select
    Do while activecell.value <>"" or activell.offset(0,1).value <>"" activell.offset(0,2).value <>""
          ActiveCell.Offset(1#).Select
    Loop
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End Sub
    Mais j'ai un message d'erreur : "Erreur de syntaxe... Erreur de compilation" sur la ligne : "Do while........
    Merci pour votre aide

    Arnaud
    Dernière modification par JPL ; 26/01/2018 à 15h37. Motif: Ajout de la balise Code (#) pour garder l'indentation

  5. #4
    cherbe

    Re : Excel copié coller sur une ligne vide

    Désolé, il manquait un or :
    Code:
    Do while activecell.value <>"" or activell.offset(0,1).value <>"" or activell.offset(0,2).value <>""
    Pour avoir de l'argent devant soi, il faut en mettre de côté ! (proverbe lorrain)

  6. #5
    marsu79

    Re : Excel copié coller sur une ligne vide

    Bonjour,

    Merci de ta correction Cherbe, mais cela ne marche toujours pas
    Voici la formule dans son ensemble.

    Code:
    Sub copieproduits()
    ' copieproduits Macro
    
        Range("G5:I5").Select
        Selection.Copy
        Range("B10").Select
    Do While ActiveCell.Value <> "" Or activell.Offset(0, 1).Value <> "" Or activell.Offset(0, 2).Value <> ""
          ActiveCell.Offset(1#).Select
    Loop
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End Sub
    Lors de l'exécution il y à un message: " Erreur d’exécution 424; objet requis"

    Cordialement
    Arnaud
    Dernière modification par JPL ; 29/01/2018 à 13h49. Motif: Ajout de la balise Code (#) pour garder l'indentation

  7. #6
    cherbe

    Re : Excel copié coller sur une ligne vide

    Citation Envoyé par marsu79 Voir le message
    Lors de l'exécution il y à un message: " Erreur d’exécution 424; objet requis"
    Arnaud
    Cette erreur est générée par quelle ligne de code ?
    Par le collage spécial ?
    Sinon, dans ton code, il y a une erreur dans ActiveCell.Offset(1#).Select
    qui devrait être : ActiveCell.Offset(1,0).Select
    (ma version n'était pas bonne non plus, j'avais remplacé la virgule par un point)
    Pour avoir de l'argent devant soi, il faut en mettre de côté ! (proverbe lorrain)

  8. #7
    marsu79

    Re : Excel copié coller sur une ligne vide

    Bonjour, Cherbe

    Merci de ta précision

    Erreur généré sur la ligne : "do while activeCell........."

    J'ai rectifié le ActiveCell.Offset(1#).Select par ActiveCell.Offset(1, 0).Select

    Toujour meme erreur.

    Cordialement

    Arnaud

  9. #8
    cherbe

    Re : Excel copié coller sur une ligne vide

    Quelle gourde (je parle de moi) !
    Do While ActiveCell.Value <> "" Or activeCell.Offset(0, 1).Value <> "" Or activeCell.Offset(0, 2).Value <> ""
    Pour avoir de l'argent devant soi, il faut en mettre de côté ! (proverbe lorrain)

  10. #9
    marsu79

    Re : Excel copié coller sur une ligne vide

    , mais non mais non tu me dira je suis pas mieux j'aurai pue le voir aussi

    Ça marche

    Merci de ton aide.

    Arnaud

Discussions similaires

  1. coller une image à une cellule sur excel
    Par Tiagra dans le forum Logiciel - Software - Open Source
    Réponses: 2
    Dernier message: 18/04/2017, 16h28
  2. Copie de donnée excel vers un autre excel
    Par alt 10 001 dans le forum Logiciel - Software - Open Source
    Réponses: 6
    Dernier message: 16/03/2017, 09h23
  3. VBA Excel - Masquer ligne vide de x cellule à x cellule
    Par Keffi17 dans le forum Programmation et langages, Algorithmique
    Réponses: 11
    Dernier message: 08/09/2015, 10h14
  4. Deux piles pour le copie coller
    Par evrardo dans le forum Logiciel - Software - Open Source
    Réponses: 26
    Dernier message: 13/01/2014, 19h22
  5. excel calcul formule et copier coller
    Par vertepriaries dans le forum Logiciel - Software - Open Source
    Réponses: 2
    Dernier message: 01/09/2009, 17h45