A voir également:
- Copier selection dans la première celulle non vide
- Supprimer page word vide - Guide
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
- Coeur vide - Forum Facebook
3 réponses
M-12
Messages postés
1332
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
18 février 2025
285
3 févr. 2022 à 09:54
3 févr. 2022 à 09:54
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
M-12
Messages postés
1332
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
18 février 2025
285
Modifié le 3 févr. 2022 à 10:11
Modifié le 3 févr. 2022 à 10:11
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
M-12
Messages postés
1332
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
18 février 2025
285
3 févr. 2022 à 10:45
3 févr. 2022 à 10:45
Teste ceci
https://www.cjoint.com/c/LBdjS0EaGIv
https://www.cjoint.com/c/LBdjS0EaGIv
3 févr. 2022 à 10:04