Discussion :

[aguill20]

Bonjour a tous,
je souhaite obtenir en code le passage d'une cellule d'un tableau a un autre
je m'explique, lorsque je fais clic droit sur une des cases de ma plage(mon tableau) elles passent en rouge (pour moi cela signifie qu'on ne s'en occupe pas
lorsque la case n'est pas en rouge j'aimerais automatiquement que l'interieur de la cellule soit recopier a la meme place mais sur le tableau d'a coté..
en gros je souhaite utiliser les resultats mais seulement des cellules cochées..
j'espere avoir reussi a me faire comprendre je vous fournit ci joint mon fichier excel
merci d'avance..

[Menhir]

je vous fournit ci joint mon fichier excel

Comme beaucoup de participants à ce forum, je n'ouvre pas les pièces jointes.
https://www.developpez.net/forums/d8...s-discussions/
Et ton explication manque d'éléments pour qu'on puisse comprendre ton problème sans voir ton fichier.

Tu devrais faire une copie d'écran de tes données et copier ton code avec des balises (voir l'icone #).

[aguill20]

je comprend oui, voici mon code qui me permet de passer par un clic droit d'une cellule normale a rouge et vice versa:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Set plage = Range("Consignes2")
If Intersect(Target, plage) Is Nothing Then Exit Sub
Cancel = True
If Target.Interior.ColorIndex = xlNone Then
    Target.Interior.ColorIndex = 3
    Target.Font.ThemeColor = xlThemeColorAccent1
        Target.Font.TintAndShade = 0
Else
    Target.Interior.ColorIndex = xlNone
    Target.Font.ColorIndex = xlAutomatic
        Target.Font.TintAndShade = 0
End If
 
End Sub

et voici un copie d'écran de mon tableau

[aguill20]

en faite je souhaite que le tableau de gauche soit réécrit sur celui de droite quand la cellule n'est plus rouge, j'aimerais que lorsque la cellule est rouge il n'affiche rien sur l'autre tableau..

[Menhir]

Dans le If, ajouter :

Code :

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

Target.Offset(0, 10).Value = Target.value

[aguill20]

merci c'est exactement ceci que je voulais, savez vous si je peux effacer l'interieur de la cellule lorsque je re-clic sur cette derniere (passage d'une cellule rouge a normale) ?

[Menhir]

savez vous si je peux effacer l'interieur de la cellule lorsque je re-clic sur cette derniere (passage d'une cellule rouge a normale) ?

Creuse-toi un tout petit peu la tête en analysant le code de mon message précédent et je suis sûr que tu parviendras à le faire par toi-même.