copier/collage spécial format sur clic droit

[pascal21]

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

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

 

[MJ13]

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 🙂.

 

[pascal21]

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 🙂.

bonjour MJ13
peut-être parce que je n'utilise jamais ces raccourcis🙂
je vais essayer
merci

 

[MJ13]

Re : copier/collage spécial format sur clic droit

Re

Sinon, comme ceci avec Double click pour copier et click droit pour coller le format.

 

[pascal21]

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

 

[pascal21]

Re : copier/collage spécial format sur clic droit

j'ai finalement adopté ton code du classeur et je l'ai ai mis sur deux boutons
merci

 

[pascal21]

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 = ""

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

=countbycolor(C$16:C$31;C5)

merci de votre aide

 

[pascal21]

Re : copier/collage spécial format sur clic droit

pour faire remonter
merci

 

[MJ13]

Re : copier/collage spécial format sur clic droit

Re

Pourtant, tu dois savoir, depuis le temps, que sur XLD, il vaut mieux avoir 1 discussion = 1 sujet.

 

[pascal21]

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