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
- Comment copier une vidéo youtube - Guide
- Caractere vide - Guide
- Super copier - Télécharger - Gestion de fichiers
- Coeur vide copier-coller - Forum Facebook
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 ?
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
ou
Place ton fichier sans données confidentielles, cela ira plus vite