Copier selection dans la première celulle non vide Fermé

Question

Bonjour, 

Je souhaiterais pouvoir copier une sélection dans la première ligne vide d'un tableau. J'ai écris le code suivant : 

Sub Synthèse()
'
' Synthèse Macro
'
Dim c As Long
c = 1

    Range("C51:E51,G51:H51").Select
    Selection.Copy

    With Sheets("Synthèse ")
        Do Until IsEmpty(.Cells(c, "B"))
        c = c + 1
        Loop
        Cells(c, B).PasteValue

    End With
    
      
End Sub

Et rien ne se passe.. pas non plus d’erreur. Voyez-vous ou est le problème svp ? 

Merci par avance. 

Configuration: Windows / Firefox 96.0

M-12 · Answer

Bonjour,
Teste ceci
Attention, ôte l'espace du nom de l'oglet "Synthèse"
Sub Synthèse()
Dim c As Long
c = 1
Range("C51:E51,G51:H51").Copy
  With Sheets("Synthèse")
    Do Until IsEmpty(.Cells(c, "B"))
      c = c + 1
    Loop
    .Cells(c, 2).PasteSpecial Paste:=xlPasteValues
  End With
End Sub

M-12 · Answer

As-tu le même nom de l'onglet "Synthèse"  sans espace et avec le respect des minuscules et majuscule

ou

Place ton fichier sans données confidentielles, cela ira plus vite

M-12 · Answer

Teste ceci
https://www.cjoint.com/c/LBdjS0EaGIv

Copier selection dans la première celulle non vide

3 réponses

Discussions similaires

Newsletters