Récupération couleur Texte(Font)

Bonjour a tous et toutes, forum bonjour,

J'ai dans la cellule (A3) un mot (Hello) écrit en rouge, ceci est un exemple la couleur et la cellule peut changer bien sur.

Je souhaiterai svp en VBA avec un double clic et utiliser l'instruction "Application.InputBox"

récupérer le mot "Hello" avec sa couleur (Font Rouge)

et le recopier dans une autre cellule de mon choix.

Application.InputBox("Choisissez la cellule Source", Type:=8)

Application.InputBox("Choisissez la cellule Cible", Type:=8)

Merci a vous pour votre aide, vu l'heure bon app a tous.

Cdlt Ray

Bonjour eliot

un fichier peut-être ?

Cordia5

Bonjour eliot raymond, bonjour le forum,

Je n'ai pas fait avec

Application.InputBox...

, je suis passé par un userform (plus simple pour moi)

A tester, si j'ai bien compris la demande :

Il suffit de double-cliquer sur la cellule contenant le texte, et d'inscrire dans l'USF la cellule de destination (ex : B2 -> 2 en colonne et 2 en ligne).

Cordialement,

Re,

Finalement, j'ai un petit peu cherché pour utiliser Application.InputBox

Code à tester :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     Set myRs = Application.InputBox(prompt:="Source", Type:=8)
     Set myRc = Application.InputBox(prompt:="Cible", Type:=8)
     myRc.Value = myRs
     myRc.Font.Color = myRs.Font.Color
End Sub

Cordialement,

Salut IronBoule,

Merci pour la réponse,

Mais hélas ca ne fonctionne pas, premier code avec usf erreur 13

Puis avec code input, il ne se passe rien

pas d'affichage du premier input

Merci de ton aide

bonne après midi

Cdlt Ray

Bizarre, je n'ai pas rencontré d'erreur quand j'ai essayé avec l'USF.

Pour le code, il marche bien chez moi aussi :

Dans ce fichier, un double-clic fait apparaître l'inputBox.

Bon après-midi,

Salut IronBoule,

Merci pour ta réponse, c'est gentil a toi.

Voila j'ai légèrement modifier ton code en supprimant l'USF dont je n'ai pas besoin.

Le code (pour le Texte) ci-dessous fonctionne comme souhaiter, merci

Pourrait tu, si tu a le temps, svp me faire la même chose pour récupérer (la couleur d'interior).

Mais sous forme de deux macros différentes qui fonctionnerai avec au double clic.

Macro-1 test_texte()

Macro-2 test_interior()

Merci pour ton aide, bonne après midi a toi.

Cdlt Ray

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim myRs As Variant, myRc As Variant

On Error Resume Next

Set myRs = Application.InputBox(prompt:="Source", Type:=8)

Set myRc = Application.InputBox(prompt:="Cible", Type:=8)

myRc.Value = myRs

myRc.Font.Color = myRs.Font.Color

End Sub

Salut a tous

C'est bon, j'ai trouver comment faire, merci a vous et bon W-end.

Ray