Copier selection dans la première celulle non vide
gino
-
gino -
gino -
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
A voir également:
- Copier selection dans la première celulle non vide
- Supprimer page word vide - Guide
- Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
- Roadkil's unstoppable copier - Télécharger - Récupération de données
- É majuscule copier coller - Guide
- Historique copier coller - Guide
3 réponses
Bonjour,
Teste ceci
Attention, ôte l'espace du nom de l'oglet "Synthèse"
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
gino
Bonjour, merci pour votre réponse. Excel affiche que l'indice n'appartient pas à la sélection. .Que cela signifie ?
