Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier/collage spécial format sur clic droit

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pascal21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

pascal21

XLDnaute Barbatruc
bonjour à tous
je cherche comment réaliser un copier collage spécial format avec un clic droit
le 1er clic droit prend le format de la cellule et le 2eme clic droit donnerait le format copié à une sélection de cellules
exemple
je copie la cellule a1, sa couleur de fond est jaune grace à un clic droit
je sélectionne, par exemple b1:g1 et grace à un 2eme clic droit je fait un collage spécial format dans cette sélection
j'ai essayé avec un clic droit pour copier et un double-clic pour coller mais ça ne fonctionne pas
Code: 
Sub Macro2()With ActiveCell
    Application.CutCopyMode = False
    
        End With
End Sub
Sub macro1()
With ActiveCell
   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        End With
End Sub
j'ai une erreur sur la macro1
si le meiux est d'utiliser le double clic, je suis partant aussi
merci de votre aide
 
Trier par date Trier par votes
Re : copier/collage spécial format sur clic droit

Bonjour Pascal

Et pourquoi pas Ctrl+c pour copier et Ctrl+f associé à ta macro Collage format.

En général, se passer de la souris au maximum, cela peut faire gagner beaucoup de temps 🙂.
 
Vote positif 0 Vote négatif
Re : copier/collage spécial format sur clic droit

MJ13 à dit:
Bonjour Pascal

Et pourquoi pas Ctrl+c pour copier et Ctrl+f associé à ta macro Collage format.

En général, se passer de la souris au maximum, cela peut faire gagner beaucoup de temps 🙂.
Cliquez pour agrandir...
bonjour MJ13
peut-être parce que je n'utilise jamais ces raccourcis🙂
je vais essayer
merci
 
Vote positif 0 Vote négatif
Re : copier/collage spécial format sur clic droit

re
avec les raccourcis Ctrl c et Ctrl w ça fonctionne bien mais pas avec Ctrl f qui appelle la boite de dialogue "chercher et remplacer"
je regarde ton claseur
 
Vote positif 0 Vote négatif
Re : copier/collage spécial format sur clic droit

j'ai trouvé ce code qui me permettrait de compter les cellules de m^me couleur à l'intérieur d'une même colonne
mais ça compte aussi les cellules ne contenant pas de couleur
j'ai essayé avec If ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex = ""
Code: 
Function CountByColor(InputRange As Range, ColorRange As Range) As LongDim cl As Range, TempCount As Long, ColorIndex As Integer
'If ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex = "" Then
'Exit Function
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempCount = 0
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex = ColorIndex Then TempCount = TempCount + 1
Next cl
Set cl = Nothing
CountByColor = TempCount
'End If
End Function
mais ça ne fonctionne pas
je met cette formule personnalisée dans la cellule qui doit compter le nombre de cellules de même couleur
par exemple en c5
si la cellule c5 ne contient pas de couleur j'ai le chiffre 16 qui s'affiche
ça me compte les cellules non colorées de la zone c16:c31
alors que j'aimerais que ça soit 0
Code: 
=countbycolor(C$16:C$31;C5)
merci de votre aide
 
Vote positif 0 Vote négatif
Re : copier/collage spécial format sur clic droit

bonsoir
ne le prends pas mal mais j'étais certain que l'on me dirais cela
si j'avais ouvert un autre fil on aurait dit qu'il aurait fallu resté sur le même fil😉
bon entre-temps j'ai regardé à droite et à gauche mais je n'ai rien trouvé sur le comptage des cellules uniquement colorées
que faut-il rajouter à ce code (voir plus haut) pour que
si la cellule n'est pas colorée alors exit function
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
156
anthoYS
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
210
Nicolas JACQUIN
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
100
anthoYS
  • Résolu(e)
Autres Collage spécial. Ajout d'une courbe sur un graphique existant.
Réponses
7
Affichages
244
CISCO
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
194
anthoYS
J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
117
Magic_Doctor
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
238
TooFatBoy
H
  • Question Question
XL 2013 Saisie sécurisée numéros de téléphone et ajout fonction clic droit de la souris
2
Réponses
21
Affichages
1 K
Helios77
H
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
516
AtTheOne
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
639
SAMUAL_2023
S
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
525
Lu76Fer
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
222
un internaute
U
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
309
juju91
J
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
524
chinel
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
P
  • Question Question
Microsoft 365 rétablir le clic droit sur les onglets malgré ThisWorkbook.Saved = True
Réponses
2
Affichages
841
Lu76Fer
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
887
Phil69970
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
493
spike29
S
  • Résolu(e)
XL 2021 Bloquer la sélection des autres onglets sous condition (sans les masquer)
Réponses
2
Affichages
638
Usine à gaz
A
  • Question Question
Microsoft 365 Slicer - supprimer le menu contextuel ou la possibilité de supprimer le filtre
Réponses
1
Affichages
773
xUpsilon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…