Discussion :

[Peerl]

En effet, c'est un soucis. Je suppose que la cellule bleue devrait changer de valeur. Mais doit-elle redevenir jaune ?

Comme j'essaie d'apprendre en même temps je voulais savoir si ce genre de connexion est faisable.

Moi dans mon exemple ça me va, comme ça quand je vois du jaune je ne touche pas et je sais que c'est de la modification automatique et ça permet de filtrer ainsi.
mais si on veut aller plus loin: si elle doit redevenir en jaune c'est uniquement pour montrer que c'est de la modification automatique suite à une modification ailleurs.

[tototiti2008]

Mais doit-elle redevenir jaune ?

Choix : Oui/Non
???

[Peerl]

Choix : Oui/Non
???

Oui

[tototiti2008]

Re,

à tester

[Peerl]

ça fonctionne parfaitement !!

Tu peux m'indiquer la ligne que t'as ajouté STP

[tototiti2008]

J'ai enlevé le test sur la couleur bleue

Code :

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

If .Cells(i, Col).Interior.Color <> RGB(100, 100, 255) Then

et l'ai remplacé par un test sur la ligne, pour ne pas modifier la cellule changée par l'utilisateur

Code :

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

If i <> Lig Then

[Peerl]

D'accord je note

Sujet résolu

Une dernière question :
Quand je met dans module

Code :

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

Private Sub Workbook_Change(ByVal Target As Range)

ça fonctionne pas

[tototiti2008]

Re,

Ce code événementiel ne peut se placer que dans le code d'une feuille, pas dans un module

[Peerl]

D'accord je comprends mieux

Merci Pour ton aide TOTO

Le soucis c'est que dans certains feuilles y'a déjà un worksheet_change..

[tototiti2008]

Oui, c'est embêtant, tu ne peux pas en avoir deux...
Tu peux me poster un existant ?

[Peerl]

J'ai intégré le code dans le worksheet existant et apparemment après avoir tester ça fonctionne. Je peux rester sur cette solution? qu'est ce qui est le mieux ?

[tototiti2008]

ça dépend beaucoup du code qu'il y avait, pas de réponse toute faite

[Peerl]

ça dépend beaucoup du code qu'il y avait, pas de réponse toute faite

y a ça dans le worksheet_change et j'ai rajouter le code juste après

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
17
18
19
20
 Dim col1 As Integer, colmax As Integer, ligneNoms As Integer, ligneDe1 As Integer
 
    col1 = 6               
    colmax = 53           
    ligneNoms = 3         
    ligneDs1 = 5           
 
    If Target.Count > 1 Then Exit Sub
 
    If Target.Row = ligneDe1 And Target.Column > col1 - 1 And Target.Column < colmax + 1 And Me.Cells(ligneDe1, 1) = 1 Then
        Call maj_couleurs_solde
    End If
 
    If Target.Row = ligneNoms And Target.Column > col1 - 1 And Target.Column < colmax + 1 Then
        Call maj_couleurs_tableau
    End If
 
 If Target.Row = ligneDe1 + 1 And Target.Column = 2 Then
        Call recup_commentaires_product
    End If

[tototiti2008]

Il vaut mieux mettre mon code avant, à cause de

Code :

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

If Target.Count > 1 Then Exit Sub

[Peerl]

Re bonjour,

J'ai une question supplémentaire à ce sujet, j'ai ajouter un bouton qui envoie des données des cellules bleu dans un autre fichier, une fois l'envoie terminer est ce que c'est possible de changer la couleur de ces cellules afin de comprendre qu'il ya eu un envoie de ces cellules ???
Comment je fais pour relier les deux méthodes : envoie dans module et worksheet_change dans la feuille concernée ?

Merci