Discussion :

[calouana]

Bonjour à tous, j'espère que vous allez pouvoir trouver une solution a mon problème que je vous expose avec un exemple concret une feuille de loto (ce n'est qu'un exemple mais je veux m'en servir pour mon boulot et c'est ce que j'ai trouvé de plus simple.
Donc imaginons 49 cellules dans Excel 2007 (de1 à 49) j'ai trouvé le moyen de colorer ces cellules par un double clic et de les rendre à nouveau blanches avec un clic droit ce que je souhaiterais faire c'est dès que je colore une cellule son contenu aille se mettre dans une autre cellule dans un autre endroit et ainsi de suite pour les 5 autres, quand je supprimerais la couleur avec mon clic droit bien évidement les 6 cellules crées se videraient automatiquement de leur contenu.
Je ne sais pas si j'ai été clair et si cela est possible mais j'attends avec impatience vos réponses, merci d'avance. A bientôt. Et bravo pour ce forum

[Chipss]

Hmm je ne sais pas trop cmt tu gere le click sur une cellule! Mais a partir du mom ou tu changes la coumleur du background tu dois pouvoir, dans la foulée, recopier la valeur de la cellule dans une autre...

Si tu te sert de l'evenement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cela ne doit pas etre tres long à rajouter
Sinon commences a partir de là je pense...


Chipss

[calouana]

Bonjour,
Pour mettre encouleur au moyen du double clic et de remettre à l'état initial avec le clic droit j'utilise çà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:D6]) Is Nothing Then Exit Sub
Cancel = True
Target.Interior.ColorIndex = 0
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:D6]) Is Nothing Then Exit Sub
Cancel = True
Target.Interior.ColorIndex = 5
End Sub

Et je n'arrive pas à trouver comment rajouter une opération afin que dès qu'une cellule est colorée son contenu aille se mettre dans une autre cellule.

[PPz78]

Bonjour,

ceci devrait t'aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Ligne = Target.Row
    Colonne = Target.Column
    Valeur = Target.Value

Juste une petite mise en garde, quand tu auras progressé et surtout quand tu seras sur la version définitive pour ton job :
il faudra faire attention avec le clic droit car celui ci peut intervenir sur :
- un range de cellules jointives
- un range de cellules à cheval sur ta zone d'intérêt
- plusieurs cellules non jointives
Il faudra détecter et traiter ces cas aux limites.

PPz