couleurs de cellules visibles ou pas

[alma]

je souhaite avoir en fonction de 4 tableaux ne voir apparaitre en fonctions de choix qu'un seul tableau avec une couleur defini
pour etre simple je joint un fichier expliquant mes souhaits
merci pour ll'aide

 

[Staple1600]

Re : couleurs de cellules visibles ou pas

Bonjour à tous

Alma:
Avant tout chose, tu ne souhaites pas nous dire bonjour par hasard ? 😉 (ou Bonsoir vu l'heure)

 

[JHA]

Re : couleurs de cellules visibles ou pas

Bonsoir à tous,

Regardes la MFC du tableau jaune, si OK, fais le même pour les autres

JHA

 

[Jiheme]

Re : couleurs de cellules visibles ou pas

Bonjour Staple, JHA, Alma

Aussi en MFC, j'ai été + long car j'ai fais les 4, je sais je suis trop bon...

Il n'empêche que Staple à raison!
A+

 

[Staple1600]

Re : couleurs de cellules visibles ou pas

Re, Bonsoir Jiheme, JHA

Puisque j'ai fais joujou dans VBE, je poste (tant pis pour le bonjour manquant 😉 )
(j'avais zappé la MFC par fainéantise 😉 )

Sub masquer()
Dim couleurs(), cel(), x
couleurs = Array(6, 43, 33, 3)
cel = Array("A10:D20", "F10:I20", "K10:N20", "P10:S20")
v = Range("e2") - 1
Select Case v
Case 0
With Union(Range(cel(1)), Range(cel(2)), Range(cel(3)))
.Interior.ColorIndex = 2: .Font.ColorIndex = 2: .Borders.LineStyle = xlNone
End With
Case 1
With Union(Range(cel(0)), Range(cel(2)), Range(cel(3)))
.Interior.ColorIndex = 2: .Font.ColorIndex = 2: .Borders.LineStyle = xlNone
End With
With Range(cel(1))
.Interior.ColorIndex = couleurs(1): .Font.ColorIndex = -4105
.Borders.LineStyle = 1: .Borders.Weight = xlThick
End With
Case 2
With Union(Range(cel(0)), Range(cel(1)), Range(cel(3)))
.Interior.ColorIndex = 2: .Font.ColorIndex = 2: .Borders.LineStyle = xlNone
End With
With Range(cel(2))
MsgBox .Address
.Interior.ColorIndex = couleurs(2) : .Font.ColorIndex = -4105
.Borders.LineStyle = 1: .Borders.Weight = xlThick
End With
Case 3
With Union(Range(cel(0)), Range(cel(1)), Range(cel(2)))
.Interior.ColorIndex = 2: .Font.ColorIndex = 2: .Borders.LineStyle = xlNone
End With
With Range(cel(3))
.Interior.ColorIndex = couleurs(3): .Font.ColorIndex = -4105
.Borders.LineStyle = 1: .Borders.Weight = xlThick
End With
End Select
End Sub

Sub raz()
Dim i
Dim couleurs(), cel()
couleurs = Array(6, 43, 33, 3)
cel = Array("A10:D20", "F10:I20", "K10:N20", "P10:S20")
For i = 0 To 3
With Range(cel(i))
.Interior.ColorIndex = couleurs(i) 'xlAutomatic
.Font.ColorIndex = xlAutomatic 'couleurs(2)
.Borders.LineStyle = 1
.Borders.Weight = xlThick
End With
Next i
End Sub

 

[alma]

Re : couleurs de cellules visibles ou pas

bj
desole de ne pas avoir dis bonjour , j'etais peu etre trop pris pour avoir une solution mais déjà je vous remercie de vos post et je vais voir desuite plus en détails
A+

 

[alma]

Re : couleurs de cellules visibles ou pas

bonjour bonjour (j'en profite)
j'ai bien regarde les fichiers mais comment les transposer dans mon fichier excel original quand le recopie les formules dans MFC j'ai tjrs a faire la chose suivante gerer les regle et designer la feuille actuelle de plus cela ne marche pas je dois mal m'y prendre c'est déjà bien complique je vais voir plus tard pour le VDA a+ merci

 

[alma]

Re : couleurs de cellules visibles ou pas

bonsoir j"ai reussi a finaliser le fichier merci pour votre aide
a+

 

[alma]

Re : couleurs de cellules visibles ou pas

bonjour, stape1600 dans ton fichier VDA lje l'ai copie pour en faire une macro pas de soucis sauf que lorsque je fais choix 1 ou 2,3,4 ca marche pas ou j'ai peut etre oublié qq chose merci

 

[Staple1600]

Re : couleurs de cellules visibles ou pas

Bonsoir à tous

alma
Tu mets bien ton chiffre en E2? (voir copie d'écran ci-dessous qui montre que cela marche 😉 )
Et ensuite tu dois lancer la macro masquer (à chaque changement de chiffre)
Si tu veux de l'automatisme, il faut appeler ma macro masque dans une procédure évènementielle.
A METTRE dans le code de la feuille où sont les tableaux.
NB: Il y avait une un petit bug dans la macro masquer (désormais corrigé: un / à la place de 🙂
Recopie la macro masquer (que je viens d'éditer) et testes de nouveau 😉

Private Sub CommandButton1_Click()
Call raz
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$2" Then
Call masquer
End If
End Sub

 

[alma]

Re : couleurs de cellules visibles ou pas

bonjour
j y arrive pas en VBA car je sais pas mettre la cellule E2 avec ta fleche basse et le bouton raz sinon la macro apparemment est bien installé manque que les boutons

 

[Staple1600]

Re : couleurs de cellules visibles ou pas

Bonsoir à tous

alma
Pour la flèche faire ceci:
Sélectionner E2 puis aller dans le menu Données/Validation
Et dans Liste, saisir : 1;2;3;4
Ensuite quand tu iras en E2, tu verras la flèche et tu pourras choisir: 1,2,3 ou 4
et ce faisant la macro masquer fera son office 😉
EDITION: Ajout copie d'écran

 

[alma]

Re : couleurs de cellules visibles ou pas

bonjour
ok merci a tous

 

[alma]

Re : couleurs de cellules visibles ou pas

bonjour
pouvez vous encore resoudre mes pb
les pièces jointes sont un fichiers excel et des photos de courbes
merciRegarde la pièce jointe TESTmise een condition.xlsx

 

[Dugenou]

Re : couleurs de cellules visibles ou pas

Bonjour,
je te conseille de créer une nouvelle discussion pour ce probleme. Et de nous donner quelques explications.
Quel est l'objectif ? : retracer la courbe ?