Excel copié coller sur une ligne vide

[invitefb1ba637]

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
-----

[invite948b37db]

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

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

[invitefb1ba637]

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.

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

[invite948b37db]

Désolé, il manquait un or :

Do while activecell.value <>"" or activell.offset(0,1).value <>"" or activell.offset(0,2).value <>""

[A voir en vidéo sur Futura]

[invitefb1ba637]

Bonjour,

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

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

[invite948b37db]

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)

[invitefb1ba637]

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

[invite948b37db]

Quelle gourde (je parle de moi) !
Do While ActiveCell.Value <> "" Or activeCell.Offset(0, 1).Value <> "" Or activeCell.Offset(0, 2).Value <> ""

[invitefb1ba637]

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

Ça marche

Merci de ton aide.

Arnaud