copir + couleur sur double clic

[logrady]

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

 

[myDearFriend!]

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 :

[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,

 

[logrady]

Re : copir + couleur sur double clic

merci, comment elargir a tout le tableau et non pas seulemet la colonne B

ludo

 

[myDearFriend!]

Re : copir + couleur sur double clic

Re,

Tout dépend de ce que tu veux faire...
Dans ton tableau, si je double-clique sur la cellule D18, c'est celle-là qui doit s'afficher en rouge et être recopiée en colonne J ?

 

[logrady]

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

 

[myDearFriend!]

Re : copir + couleur sur double clic

Dans ce cas, tu peux modifier le code comme suit :

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

 

[logrady]

Re : copir + couleur sur double clic

merci

bonne nuit

 

[logrady]

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

 

[myDearFriend!]

Re : copir + couleur sur double clic

Bonjour logrady,

J'ai simplement ajouté la ligne suivante (en gras) dans le fichier joint ci-dessous :

[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,