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
- Comment supprimer une page vide sur word - Guide
- Comment copier une vidéo youtube - Guide
- Caractere vide - Guide
- Super copier - Télécharger - Gestion de fichiers
- Formate pour taxer client frigo vide ✓ - Forum Matériel & Système
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
