Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise en forme conditionnelle avec formule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion C@thy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

C@thy

XLDnaute Barbatruc
Bonjour le fofo,

j'ai réussi à faire une mfc qui me repère les lignes dont la colonne E contient plusieurs fois une chaine de caractères (nommée chaine) dans la même cellule. Je colore en jaune la colonne B, jusque là c'est parfait... (exemple joint)

mais, C@thy étant toujours C@thy (on ne change pas les rayures du zèbre...🙄), il m'en faut encore un peu plus😱,
à savoir que j'aimerais mettre aussi en jaune les autres valeurs de la colonne B qui sont égales à la valeur mise en jaune quelle que soit la valeur de la colonne A... (donc tous les codes identiques en B à celui peint en jaune)...

Est-ce possible???

Question subsidiaire, liée :

il va me falloir refaire cette opération pour plusieurs chaines de caractères différentes, ne vaut-il pas mieux écrire une ch'tite macro qui demanderait la chaîne à chaque fois???*

Un très grand Merci pour votre aide.

Bises​
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : ise en forme conditionnelle avec formule

Coucou C@thy,

C@thy à dit:
Peut-être, mais je ne l'aurais pas trouvé...
Cliquez pour agrandir...

Je suis sûr que si, mais il fallait que tu prennes le temps de bien comprendre tout ce que fait la macro.

En passant un petit complément qui supprime les espaces inutiles :

Code: 
dest(, 3 + i) = Application.Trim(Left(code & s(i), 32))
Application.Trim c'est SUPPRESPACE.

A+
 
Vote positif 0 Vote négatif
Re : ise en forme conditionnelle avec formule

Un très grand MERCIiiiiiii à toi, j'ai juste mis 26 àla place de 32 et 20 comme longueur de grade et c'est parfait...

J'attends de voir ce qu'en diront les utilisateurs (qui comme moi en veulent toujours plus...)

Bizz

C@thy
 
Vote positif 0 Vote négatif
Re : ise en forme conditionnelle avec formule

Aïe aïe aïe...
je savais bien que ça allait se compliquer...
ça plaît beaucoup à l'utilisateur, mais... il en veut encore plus (évidemment!)

du coup il va falloir changer le
dest(, 3 + i) = Application.Trim(Left(Code & s(i), 26))


qui pourtant me plaisait bien...

Afin d’améliorer la lisibilité de la cellule, il faut insérer des blancs.
  • Si le 7[SUP]ème[/SUP] caractère de la zone globale de 32 caractères vaut « 1 »
    • Il s’agit d’une zone dite « montant »
    • Insérer un blanc devant les positions : 7, 8, 9, 13, 15, 17
[TABLE="class: cms_table, width: 605"]
[TR]
[TD]Pos 1 à 6[/TD]
[TD]Pos 7[/TD]
[TD]Pos 8[/TD]
[TD]Pos 9 à 12[/TD]
[TD]Pos 13 à 14[/TD]
[TD]Pos 15 à 16[/TD]
[TD]Pos 17 à 24[/TD]
[TD]Pos 25 à 32[/TD]
[/TR]
[TR]
[TD]200604[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]0218[/TD]
[TD]50[/TD]
[TD]JD[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

  • Si le 7[SUP]ème[/SUP] caractère de la zone globale de 32 caractères vaut « 2 »
    • Il s’agit d’une zone dite « libellé »
    • Insérer un blanc devant les positions : 7, 8, 9
[TABLE="class: cms_table"]
[TR]
[TD]Pos 1 à 6[/TD]
[TD]Pos 7[/TD]
[TD]Pos 8 à 32[/TD]
[/TR]
[TR]
[TD]200604[/TD]
[TD]2[/TD]
[TD]TROP-PERCU MA: 4,20[/TD]
[/TR]
[/TABLE]


La virgule doit être positionnée pour obtenir un montant à 2 décimales
Tableau de correspondance :
[TABLE="class: cms_table"]
[TR]
[TD]Caractère initial[/TD]
[TD]Caractère converti[/TD]
[TD]Caractère initial[/TD]
[TD]Caractère converti[/TD]
[/TR]
[TR]
[TD]é[/TD]
[TD]+ 0 [/TD]
[TD]è[/TD]
[TD]- 0[/TD]
[/TR]
[TR]
[TD]A[/TD]
[TD]+ 1[/TD]
[TD]J[/TD]
[TD]- 1[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD]+ 2[/TD]
[TD]K[/TD]
[TD]- 2[/TD]
[/TR]
[TR]
[TD]C[/TD]
[TD]+ 3[/TD]
[TD]L[/TD]
[TD]- 3[/TD]
[/TR]
[TR]
[TD]D[/TD]
[TD]+ 4[/TD]
[TD]M[/TD]
[TD]- 4[/TD]
[/TR]
[TR]
[TD]E[/TD]
[TD]+ 5[/TD]
[TD]N[/TD]
[TD]- 5[/TD]
[/TR]
[TR]
[TD]F[/TD]
[TD]+ 6[/TD]
[TD]O[/TD]
[TD]- 6[/TD]
[/TR]
[TR]
[TD]G[/TD]
[TD]+ 7[/TD]
[TD]P[/TD]
[TD]- 7[/TD]
[/TR]
[TR]
[TD]H[/TD]
[TD]+ 8[/TD]
[TD]Q[/TD]
[TD]- 8[/TD]
[/TR]
[TR]
[TD]I[/TD]
[TD]+ 9[/TD]
[TD]R[/TD]
[TD]- 9[/TD]
[/TR]
[TR]
[TD]}[/TD]
[TD]- 0[/TD]
[TD]{[/TD]
[TD]+ 0[/TD]
[/TR]
[/TABLE]


exemple : « 0001943B » devient « +194,32 » Le B signifie + devant et 2 à la fin...
Attention : pour la zone « 0001254P » il faut restituer « -125,47 » : le P signifie - devant et 7 à la fin!...

C'est possible par macro, ça?

sinon je rajoute des colonnes entre chaque et je le fais par formule...

Si c'est trop compliqué, j'ai remarqué un point commun : un espace devant les positions 7,8 et 9, on peut peut-être se limiter à ça et donc ne pas tester si le 7ème car. est 1 ou 2... (ça devient un peu une usine à gaz, non?🙄)

Merci et bises

C@thy
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle avec formule

Bonjour C@thy,

Plusieurs choses pas claires, mais de toute façon j'ai horreur des usines à gaz alors je passe la main.

Tu vas bien trouver quelqu'un pour te faire ça.

A+
 
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle avec formule

Re,

Pour l'insertion des espaces tu peux utiliser cette fonction VBA :

Code: 
Function InsertEspace(t As String)
Dim a, i As Integer
Select Case Mid(t, 7, 1)
  Case 1: a = Array(7, 8, 9, 13, 15, 17)
  Case 2: a = Array(7, 8, 9)
  Case Else: InsertEspace = t: Exit Function
End Select
For i = Len(t) To 1 Step -1
  If IsNumeric(Application.Match(i, a, 0)) Then _
    t = Application.Replace(t, i, 0, " ") 'fonction REMPLACER
Next
InsertEspace = t
End Function
Dans la macro tu l'appelles comme ceci :

Code: 
dest(, 3 + i) = InsertEspace(Left(code & s(i), 32))
Mais tout ça me paraît bizarre car dans le fichier que tu as joint il y a déjà plein d'espaces...

A+
 
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle avec formule

A mon avis, si tu veux que quelqu'un reprenne la main, il faudra envoyer le dernier fichier en date pour être sûr de repartir sur les bonnes bases et non sur un fichie rprécédent. 😉


Deux questions, juste par curiosité :

1- Es-tu sûre qu'il n'y a pas moyen d'exporter les données un peu différemment vers le fichier .txt, histoire d'essayer de simplifier le travail dans Excel ?

2- Au début j'ai cru comprendre que la mise en couleur était juste là pour attirer l'attention de la personne travaillant sur le fichier, mais que tout le boulot était ensuite fait manuellement par cette personne. Mais maintenant que c'est la macro qui fait tout, la mise en couleur est-elle toujours utile (peut-être pour simplifier une éventuelle vérification manuelle) ?



[edit]
Bon ben c'est cool, apparemment l'ami Job75 continu tout de même à t'aider. 🙂
[/edit]

++
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle avec formule

Merci vous deux qui ne m'abandonnez pas. Ces utilisateurs sont vraiment impossibles.

Oui Gérard, c'est vrai il y a plein d'espaces partout où on ne les souhaite pas, mais comme par hasard il n'y en a pas au milieu des zones de 32 car...et c'est justement là où ils en voudraient... va comprendre, Charles!

C'est vrai j'avais bien pensé à reprendre l'import mais en fait la zone de 32 doit rester complète et non séparée en colonnes.

La macro de job fait du bon boulot... et Gérard aussi!... C'est cool..

oui la couleur jaune c'est pour les repérer du 1er coup, très utile, mais ça n'empêche pas le reste du traitement très utile aussi.

Encore Merci.

Pour le reste, c'est d'une complexité à s'arracher tous les cheveux...
22 cas possibles, rien que ça! Le fichier .txt est un peu pourri au départ.
Il contient les infos mais qu il faut décoder... sans dec!!! Cest un truc de ouf...surtout avec le système des + et des -. Faut être tordu pour inventer un truc pareil... (je savais qu'ils étaient tordus, mais à ce point je n'imaginais pas!...

Bonne soiréche...

C@thy
 
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle avec formule

Ce n'est pas du joli code comme celui de Job75 mais, si besoin, je te propose ce fichier, basé sur le dernier fichier posté précédemment dans ce fil de discussion.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle avec formule

Un très très grand merci à tous deux.

Marcel32, je ne peux pas aller chercher ton fichier, on a des firewalls partout...

Gérard, c'est supernickel chrome, comme d'hab... de la belle ouvrage...

Bises

C@thy
 
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle avec formule

Bonjour C@thy, Marcel32,

Je reviens avec une solution plus simple et surtout plus rapide :

Code: 
Function InsertEspace(t As String)
Dim a, L As Integer, i As Integer
Select Case Mid(t, 7, 1)
  Case 1: a = Array(7, 8, 9, 13, 15, 17)
  Case 2: a = Array(7, 8, 9)
  Case Else: InsertEspace = t: Exit Function
End Select
L = Len(t)
For i = UBound(a) To 0 Step -1
  If a(i) <= L Then t = Application.Replace(t, a(i), 0, " ") 'fonction REMPLACER
Next
InsertEspace = t
End Function
Seulement les tableaux a doivent être classés par valeurs croissantes.

Bonne journée et A+
 
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle avec formule

Super Gérard.

De mon côté j'ai avancé sur le sujet : avec une table de correspondance j'arrive à transformer la lettre de fin de bloc de 32 car. en +1 ou -7 par ex., il reste à mettre une virgule avant les 2 derniers chiffres et mettre le + ou le - devant le chiffre...

Je suis en train de bosser sur une petite macro à part qui ferait ça et qu'on lancerait après avoir fait le traitement principal, qui fonctionne très très bien, grâce à toi!... Je pensais le faire par formules mais on a jusqu'à 8 colonnes de données...

Merci à toi, c'est parfait!!

Bises

C@thy
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Résolu(e)
XL 2021 Mise en forme conditionnelle
Réponses
2
Affichages
159
chrislecycliste
C
R
  • Question Question
Microsoft 365 mise en forme conditionnelle
Réponses
2
Affichages
108
ridzo
R
A
  • Question Question
XL 2016 MFC avec plusieurs conditions
2
Réponses
25
Affichages
634
ALVE
A
L
  • Résolu(e)
XL 2019 mise en forme conditionnelle
Réponses
6
Affichages
156
litchoutsou
L
T
  • Résolu(e)
XL 2019 Afficher un mot dans une colonne paramétrée en liste déroulante
Réponses
4
Affichages
175
telemarrk
T
F
  • Question Question
XL pour MAC Mise en forme conditionnelle
Réponses
6
Affichages
164
flea
F
C
  • Résolu(e)
XL 2016 mise en forme conditionnelle dans tableau
Réponses
3
Affichages
113
Colette29
C
J
  • Question Question
XL 2013 mise en forme conditionnelle contenant plusieurs mots
2
Réponses
16
Affichages
507
jo657
J
A
  • Question Question
XL 2016 Mise en forme conditionnelle et valeur égale à 0...
Réponses
5
Affichages
176
sylvanu
T
  • Question Question
Microsoft 365 Mise en forme conditionnelle
Réponses
5
Affichages
258
TooFatBoy
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
288
vgendron
B
  • Question Question
Microsoft 365 Excel - Mise en forme conditionnelle
Réponses
6
Affichages
393
Benouze
B
T
  • Résolu(e)
XL 2010 Mise en forme conditionnelle
Réponses
4
Affichages
201
tchi456
T
J
  • Question Question
XL 2010 mise en forme conditionnelle
2
Réponses
19
Affichages
1 K
Jacflddu49
J
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
286
mimednejma
M
E
  • Résolu(e)
XL 2016 Verrouiller page avec accès "filtre" + "mise en page personnalisée"
Réponses
9
Affichages
287
Phil69970
A
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
5
Affichages
474
wDog66
W
  • Question Question
XL 2016 Mise en forme conditionnelle des cellules
Réponses
2
Affichages
323
mapomme
M
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur feuille entière
2
Réponses
24
Affichages
388
sylvanu
J
  • Question Question
XL 2013 Problème planning : mise en forme conditionnelle report période sur tableau
Réponses
5
Affichages
281
JHA
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…