Copier selection dans la première celulle non vide
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.
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
3 réponses
-
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 -
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 -
Teste ceci
https://www.cjoint.com/c/LBdjS0EaGIv
