Couleur Police si Texte Barré

[MuscatMimi]

Bonsoir

Je valide des données dans une Feuil
Plage (A6:M23)depuis des Tbx situées dans un Usf
(je barre ou non le texte pour chaque Tbx via une Macro)
Une fois ces données Validées dans la feuille,j'aimerai arriver a faire
ceci
Si texte validé, est " Barré" alors Couleur "Bleu"dans la feuille
Si Texte validé non "Barré" Couleur "Rouge"dans la Feuille

Espérant avoir bien expliqué
merci a tous par avance
Cordialement

 

[Histoire orale]

Re : Couleur Police si Texte Barré

Ce n’est pas très bien expliqué mais on comprend…
On ne peut affecter une mise en forme conditionnelle (SI…) qu’à une valeur.
Ainsi on peut écrire :
SI telle cellule a telle valeur, ALORS, lui donner telle mise en forme.
Mais on ne peut pas écrire :
SI telle cellule à telle mise en forme, alors lui donner telle autre mise en forme.
Le mieux pour vous, je crois, est d’ajouter à gauche (ou à droite) de chacune de vos colonnes, une nouvelle colonne, qui pourra avoir une largeur nulle. Votre macro devra valider vos cellules non pas en les barrant mais en attribuant une valeur (par exemple 1) dans la cellule voisine.
Il sera alors facile de créer une formule disant que SI la cellule voisine à une valeur 0 (ou si elle est vide) alors celle-ci sera bleue et SI la valeur est égale à 1 (ou si elle contient une valeur), alors elle sera rouge.

 

[MuscatMimi]

Re : Couleur Police si Texte Barré

Bonsoir Histoire orale

merci de ta contribution,mais ce que tu dis je le sais
J'aimerais arriver a ce que je désire par une autre formule
alors ,j'attends d'autres propsitions suivant ma demande
enfin,si c'est réalisable

bonne soirée

 

[Banzai64]

Re : Couleur Police si Texte Barré

Bonjour

lors de l'enregistrement des données testes à ce moment

Private Sub CommandButton2_Click()
With Range("A1")
  .Value = Me.TextBox1
  .Interior.ColorIndex = IIf(Me.TextBox1.Font.Strikethrough = True, 41, 3)
End With
End Sub

 

[MuscatMimi]

Re : Couleur Police si Texte Barré

Bonsoir Banzai et le Forum

Merci de ton aide,
Mais comme je n'ai que peut de réponses,c'est que
ce que je souhaite réaliser, doit être infaisable
bon week-end
et merci encore Banzai, det'être penché sur ma demande
Cordialement

 

[Staple1600]

Re : Couleur Police si Texte Barré

Bonsoir à tous

vaucluse immo
Pendant que ...

j'attends d'autres propsitions suivant ma demande

Nous attendons un fichier exemple (avec ton code VBA)

Ce serait plus simple pour effectuer des tests non ?

PS: le code de Banzai64 fonctionne non?
(version légèrement raccourcie)

Private Sub CommandButton1_Click()
With Range("A1")
  .Value = TextBox1
  .Font.ColorIndex = IIf(TextBox1.Font.Strikethrough, 41, 3)
End With
End Sub

 

[MuscatMimi]

Re : Couleur Police si Texte Barré

Bonjour Staple,et le Forum

Oups milles excuses,j'ai omis de mettre le Fichier

OUI le Code de Banzai fonctionne trés bien
Le voici

J'ajouterai ,car j'ai pas pensé a le noter dans le premier message,qu'il faut
que je puisse, aprés saisie,de pouvoir Modifier ces Données
en créant un Btn Modifiéer Données

Bon Dimanche

 

[Banzai64]

Re : Couleur Police si Texte Barré

Bonjour

Regardes si ce tout début correspond à tes attentes
Juste la partie sauvegarde barré ou pas

Echéancier.zip

Bonne journée

 

[MuscatMimi]

Re : Couleur Police si Texte Barré

Bonjour Banzai

merci de t'intérresser a mon soucis
Dans ce que tu a fais,si tu Valide une Tbx Bleu Barré(Tbx2)
ça valide biendans la Cellule en Bleu Barré
mais
si a nouveau tu Valide une autre Tbx, (Tbx 3 par exemple)ça remet a la couleur Rouge
la Cellule précédement Barrée Bleu


en plus
Mais,il manque quelque chose
C'est de pouvoir afficher dans les 13 Tbx les Données a l'identique
que celles affichées sur chaque ligne,,de la Feuil "2010"
je ne sais pas si cela est vraiment réalisable

a plus
Cordialement

 

[Banzai64]

Re : Couleur Police si Texte Barré

Bonjour

Désolé si je pars de travers

Regarde ce que j'ai fait et je te laisse juger

Echéancier V002.Zip

 

[MuscatMimi]

Re : Couleur Police si Texte Barré

Bonsoir Banzai

Et bééééééééééééééééééé,bravo, tu est un génie

Je ne serais jamais arrivé a cela,pourtant ça fait des jours que j'y suis

Comme ce n'est pas un sujet souvent abordé, sur ce Forum
Je vais y placer ce Fichier
aprés t'avoir identifié dans le Code;normal de citer l'auteur

Je te souhaite une bonne soirée
et te dis a bientôt

j'espére que n'a pas trop de neige dans ta région

Cordialement

 

[MuscatMimi]

Re : Couleur Police si Texte Barré

Bonsoir
Voici le Fichier ça peut servir pour d'autres personne
Sur Ci-Joint les Fichier ne reste pas longtemps dispo

Grand merci a Banzai,pour son Travail sur ce Fichier

Bonne soirée