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

copir + couleur sur double clic

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion logrady
  • 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
L

logrady

Guest
je souhaite sur un double clic ds une cellule copie la cellule ds une autre puis mettre l originale en rouge
merci de votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : copir + couleur sur double clic

Bonsoir logrady,

Ci-joint ton fichier adapté à la demande.

Une simple procédure évènementielle dans le module de code de ta Feuil1 :
Code: 
[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Worksheet_BeforeDoubleClick([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range, Cancel [COLOR=NAVY]As Boolean[/COLOR])
    [COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target, Range("B3:B65536")) [COLOR=NAVY]Is Nothing Then[/COLOR]
        Cancel = [COLOR=NAVY]True[/COLOR]
        Target.Interior.ColorIndex = 3
        Target.Offset(0, 8).Value = Target.Value
    [COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]
Cordialement,
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : copir + couleur sur double clic

oui en effet toutes cellule de a3 à G24 sur double (1 seule cellule par ligne) clic doit etre copie ds colonne j et l'originale en rouge ds ton exeple D18 est copie en J18 et D18 en rouge
 
Vote positif 0 Vote négatif
Re : copir + couleur sur double clic

Dans ce cas, tu peux modifier le code comme suit :
Code: 
[SIZE=2][COLOR=NAVY]Private Sub[/COLOR] Worksheet_BeforeDoubleClick([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range, Cancel [COLOR=NAVY]As Boolean[/COLOR])
    [COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target, [B]Range("A3:G65536")[/B]) [COLOR=NAVY]Is Nothing Then[/COLOR]
        Cancel = [COLOR=NAVY]True[/COLOR]
        Target.Interior.ColorIndex = 3
        [B]Target.EntireRow.Range("J1").Value = Target.Value
[/B]    [COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]
Bonne fin de soirée.
 
Vote positif 0 Vote négatif
Re : copir + couleur sur double clic

bonjour,

pour faire suite à mon pb je voudrais lorsque l on double clic sur une case la valeur s'affiche en AE cela fonctionne pas de pb,mais lorsque je tape sur une autre valeur de la meme ligne il faudrait que la cellule rouge precedente redevienne normale

merci

ps ce petit script es pour m aider ds mes devis merci
 
Vote positif 0 Vote négatif
Re : copir + couleur sur double clic

Bonjour logrady,

J'ai simplement ajouté la ligne suivante (en gras) dans le fichier joint ci-dessous :
Code: 
[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Worksheet_BeforeDoubleClick([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range, Cancel [COLOR=NAVY]As Boolean[/COLOR])
    [COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target, Range("A3:G65536")) [COLOR=NAVY]Is Nothing Then[/COLOR]
        Cancel = [COLOR=NAVY]True[/COLOR]
[B]        Target.EntireRow.Interior.ColorIndex = xlNone
[/B]        Target.Interior.ColorIndex = 3
        Target.EntireRow.Range("J1").Value = Target.Value
    [COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]
Cordialement,
 

Pièces jointes

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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2016 Boucle sur plusieurs plages pour les Trier
Réponses
3
Affichages
102
Nicolas JACQUIN
  • Question Question
XL 2021 VBA - Quelle fenêtre (non Excel) était active juste avant
2
Réponses
22
Affichages
631
patricktoulon
C
  • Question Question
XL 2019 Clic cellule
Réponses
5
Affichages
196
Caller
C
P
  • Résolu(e)
Microsoft 365 macro qui permet de basculer entre 2 valeurs composées de formules de type "Formula local"
2
Réponses
15
Affichages
552
cathodique
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
303
TooFatBoy
  • Résolu(e)
XL 2019 [suivi de glycémie] convertir directement une valeur dans une cellule même, possible ?
Réponses
14
Affichages
311
anthoYS
W
  • Résolu(e)
XL 2019 Colorer la partie d'entêtes d'un pavé de cellules selon clic-doit sur une cellule interne
Réponses
5
Affichages
558
Nicolas JACQUIN
G
  • Question Question
Autres excel vba cellule aléatoires non vides
Réponses
3
Affichages
197
danielco
D
S
  • Question Question
XL 2021 Visibilité filtre automatique
2
Réponses
16
Affichages
540
sellig 29
S
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
766
SAMUAL_2023
S
U
  • Question Question
Autres Je vais tenter d'expliquer ce que je veux
Réponses
11
Affichages
491
un internaute
U
C
  • Résolu(e)
XL 2016 Propriété pour déterminer si la sélection correspond à une plage de cellules
Réponses
2
Affichages
267
crocrocro
C
J
  • Question Question
Autres Protection de données
Réponses
6
Affichages
313
TooFatBoy
P
  • Question Question
Microsoft 365 Exécution d'une formule en VBA
Réponses
9
Affichages
264
sylvanu
E
  • Question Question
Microsoft 365 couleur et ligne
Réponses
6
Affichages
292
cathodique
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
435
sylvanu
B
  • Résolu(e)
Microsoft 365 Calcule durée moyenne : Formule et TCD
Réponses
6
Affichages
316
BSF
B
U
  • Question Question
Autres [RÉSOLU] Macro qui bug et je ne sais pas la corriger!!!
Réponses
7
Affichages
449
un internaute
U
  • Résolu(e)
XL 2021 demander à l'utilisateur de selectionner un onglet
Réponses
8
Affichages
589
job75
U
  • Question Question
Autres je n'arrive pas à récupérer mon userform pour l'afficher
Réponses
3
Affichages
221
un internaute
U
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…