Donner une une couleur, une valeur à une cellule en fonction d'une autre???

[memene]

Bonjour à tous,

Pour résoudre mon problème, je sais qu'il me faut un code VBA mais je ne maîtrise pas. Je vous expose donc mon cas.

Sur ma feuille, je souhaiterai que lorsque je double-clique sur une cellule, elle se colorie en rouge. La cellule située aussitôt à sa droite se colorie également en rouge et une autre cellule prend alors la valeur de la 2ème cellule rouge.

Prenons mon exemple:
si je double-clique sur A34, cette cellule devient rouge ainsi que sa voisine à droite B34.
Je souhaiterai alors que le contenu (un nombre) de B34 se recopie alors automatiquement en G30 puisqu'elle est rouge.
Si je double-clique sur E39, E39 devient rouge ainsi que F39. A34 et B34 redeviennent blanc et G30 prend alors la valeur de F39.
Etc.

Je vous mets en PJ mon document. (Les données que je vous donne plus haut sont celles réelles de mon doc).
Dernière remarque: les cellules sur lesquelles je souhaite double-cliquer sont: A34:A40 et C34:C40 et E34:E40 et G34:G40 (colonnes intitulées "distance en tours")

Merci pour vos réponses.

Memene

 

[Pierrot93]

Re : Donner une une couleur, une valeur à une cellule en fonction d'une autre???

Bonjour,

pas ouvert ton fichier, pas 2007 sous le coude, mais regarde le code ci dessous à placer dans le module de la feuille concernée. click droit sur l'onglet => visualiser le code et tu colles :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A34:A40,C34:C40,E34:E40,G34:G40")) Is Nothing Then
    Range("A34:H40").Interior.ColorIndex = xlColorIndexNone
    Target.Resize(1, 2).Interior.ColorIndex = 3
    Range("G30").Value = Target.Offset(0, 1).Value
    Cancel = True
End If
End Sub

bon après midi
@+

 

[memene]

Re : Donner une une couleur, une valeur à une cellule en fonction d'une autre???

Re,

Merci pour ton message mais çela ne fonctionne pas.
Quand je double-clique, message d'erreur qui me renvoie sur un débogage en soulignant le problème de la ligne suivante du code :

Range("A34:G40").Interior.ColorIndex = xlColorIndexNone

mais je n'en sais pas plus.
Si tu as une autre solution, merci d'avance.

Memene

 

[Pierrot93]

Re : Donner une une couleur, une valeur à une cellule en fonction d'une autre???

Re,

pas de souci chez moi... tu n'a pas de cellules fusionnées par hasard ?? ceci expliquerait cela...

 

[Pierrot93]

Re : Donner une une couleur, une valeur à une cellule en fonction d'une autre???

Re,

essaye en remplacant :

Range("A34:H40").Interior.ColorIndex = xlColorIndexNone

par :

Range("A34:H40").Interior.ColorIndex = xlNone

peut être que sous 2007 cela ne passe pas...

 

[memene]

Re : Donner une une couleur, une valeur à une cellule en fonction d'une autre???

Merci encore, mais ça ne marche toujours pas...et pas de cellules fusionnées non plus. Tant pis à moins que tu es une autre proposition.
A+

 

[Pierrot93]

Re : Donner une une couleur, une valeur à une cellule en fonction d'une autre???

Re,

regarde ce classeur, fonctionne sous 2003

bonnne soirée

 

[memene]

Re : Donner une une couleur, une valeur à une cellule en fonction d'une autre???

Super! Merci Pierrot93...ça marche!!!!!

A+
Memene