pcellule As Variant

Version imprimable

pcellule As Variant

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:

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

05/12/2013, 12h41
Daniel.C

Bonjour Patrick,

Je ne comprends pas trop ce que tu veux faire avec cette macro. Est-ce que tu peux préciser ?
05/12/2013, 13h35
pilounet54

explication

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

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:

Public Couleur As Integer, ResAdr As String

Dans le module de la feuille :
Code:

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

05/12/2013, 19h50
pilounet54

target et couleur

bonsoir

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