Discussion :

[pilounet54]

bonjour
j'ai ceci qui fonctionne très bien mais lorsque je rencontre une cellule intérieur de couleur je souhaiterai soit remettre la même couleur soit ignore la cellule avez vous des propositions à me faire merci d'avance

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
21
Sub traiter_cellule1(pcellule As Variant)
 
                If demarrage = "non" Then
 
 
        ActiveWorkbook.ActiveSheet.Cells(ligne1, colonne1).Interior.ColorIndex = 0
 
        ActiveCell.Interior.ColorIndex = 6
 
        ligne1 = ActiveCell.Row
        colonne1 = ActiveCell.Column
 
    Else
        ligne1 = ActiveCell.Row
        colonne1 = ActiveCell.Column
 
 
        demarrage = "non"
    End If
 
End Sub

[Daniel.C]

Bonjour Patrick,

Je ne comprends pas trop ce que tu veux faire avec cette macro. Est-ce que tu peux préciser ?

[pilounet54]

bien sur !
es ce qu'il possible de savoir la couleur cliquer sur le click d'une cellule et quelle se remettre après en utilisant la macro ou d’échapper à la macro quand la cellule à l’intérieur de couleur
exemple si pcellule = couleur pas de macro

c'est toujours pas très clair, mais je fais tous ce que je peu
cordialement

[Daniel.C]

Je n'ai pas l'esprit tellement clair, en ce moment.
Voila le problème que je me suis efforcé de résoudre (sans trop savoir si ç'était ce que tu voulais...)
1. je sélecte une cellule
2. je supprime sa couleur de fond.
3. quand je sélectionne une autre cellule, je rétablis la couleur d'origine dans la cellule que je viens de quitter.
exemple :
- F4 est jaune
- je sélectionne F4
-je supprime la couleur de F4
- je sélectionne G5
- je rétablis la couleur de F4.
Dans un module standard :

Code :

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

Public Couleur As Integer, ResAdr As String

Dans le module de la feuille :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If ResAdr <> "" Then
        Range(ResAdr).Interior.ColorIndex = Couleur
        Couleur = Target.Interior.ColorIndex
        Target.Interior.ColorIndex = xlNone
    End If
    ResAdr = Target.Address
End Sub

[pilounet54]

bonsoir

et merci pour le travail il aura aucun problème pour l’intégrer je viens essayer cela fonctionne super c'est même impressionnant ++ et encore merci