XL 2019 couleur et mise en forme conditionnelle (bis)

[bobafric]

Je suis désolé de reprendre le fil ( entretenu par Sylvanu) car je me suis aperçu tardivement qu'il n'était pas complet.
La mise en forme doit être "Règle de mise en surbrillance des cellules avec Texte qui contient" car bien entendu le fichier présenté est un exemple que je dois adapté.
je joins à nouveau le dernier fichier traité.
Merci encore pour votre patience

 

[sylvanu]

BONJOUR Bobafric,
Si j'ai bien compris, il suffit de reprendre les MFC.
Par ex pour John, remplacez la MFC par :

=NB.SI($C1;"*John*")>0

On obtient alors :

Bien sur il faudra relancer la macro pour remettre à jour les MFC.
Par contre, si deux noms sont reconnus, alors seul le dernier l'emportera, par ex :

 

[bobafric]

BONJOUR Bobafric,
Si j'ai bien compris, il suffit de reprendre les MFC.
Par ex pour John, remplacez la MFC par :

=NB.SI($C1;"*John*")>0

On obtient alors :
Regarde la pièce jointe 1159900
Bien sur il faudra relancer la macro pour remettre à jour les MFC.
Par contre, si deux noms sont reconnus, alors seul le dernier l'emportera, par ex :

Regarde la pièce jointe 1159902

Content de te revoir Sylvanu
Je ne suis pas dégourdi et je n'arrive pas à appliquer ta solution.
Je joins le fichier avec quelques modifs (exemple avec john) sur la MFC

 

[bobafric]

Content de te revoir Sylvanu
Je ne suis pas dégourdi et je n'arrive pas à appliquer ta solution.
Je joins le fichier avec quelques modifs (exemple avec john) sur la MFC

C'est bon j'y suis arrivé, j'avais fait une erreur de manip. Merci encore

 

[sylvanu]

Je ne suis pas dégourdi et je n'arrive pas à appliquer ta solution.

J'ai écrit :

remplacez la MFC par :

Donc on remplace :

=$C1="JOHN"
par
=NB.SI($C1;"*John*")>0
et non pas par
=$C1="NB.SI($C1;"*John*")>0"

Dans la PJ j'ai fait le remplacement, ce que je voulais éviter.

 

[bobafric]

J'ai écrit :

Donc on remplace :

=$C1="JOHN"
par
=NB.SI($C1;"*John*")>0
et non pas par
=$C1="NB.SI($C1;"*John*")>0"

Dans la PJ j'ai fait le remplacement, ce que je voulais éviter.

Excusez-moi pour le retard, j'ai tout compris pour le code.
Mais lorsque je relance la macro toutes les colonnes sont modifiées en largeur.
J'ai essayé de compléter la macro pour remettre les colonnes à la forme initiale, sans résultat.
Je suis nul !!

 

[sylvanu]

Mais lorsque je relance la macro toutes les colonnes sont modifiées en largeur.

Comme depuis le début puisque c'est votre macro ! et que je n'y ai pas touché. Elle fait :

wSh.Columns("A:H").PasteSpecial Paste:=xlPasteFormats

Donc recopie les formats, largeur de colonnes comprises.
Vous pouvez ajouter après cette ligne :

wSh.Cells.ColumnWidth = 20

qui figera la largeur des colonnes.

 

[bobafric]

Comme depuis le début puisque c'est votre macro ! et que je n'y ai pas touché. Elle fait :

wSh.Columns("A:H").PasteSpecial Paste:=xlPasteFormats

Donc recopie les formats, largeur de colonnes comprises.
Vous pouvez ajouter après cette ligne :

wSh.Cells.ColumnWidth = 20

qui figera la largeur des colonnes.

Merci Sylvanu on avance, le code fonctionne les colonnes ont le même format 20, et il me convient pour toutes les colonnes sauf la colonne C qui doit faire 70

 

[sylvanu]

Peut être en rajoutant :

wSh.Columns(3).ColumnWidth = 70

Et rajouter un :

Application.ScreenUpdating = false

En début de macro, ça figera l'écran et sera plus rapide et plus esthétique.

 

[bobafric]

Merci Sylvanu on avance, le code fonctionne les colonnes ont le même format 20, et il me convient pour toutes les colonnes sauf la colonne C qui doit faire 70

ça y est Sylvanu j'y suis arrivé, le code complet ci-dessous, pas trop catholique mais ça marche
Option Explicit

Sub CopyFormatCC()
Dim wSh As Worksheet, Rng As Range
Set Rng = ThisWorkbook.Worksheets("MOD").Columns("C")
Rng.Copy
For Each wSh In ThisWorkbook.Worksheets
If wSh.Name <> "MOD" Then
wSh.Columns("A:H").PasteSpecial Paste:=xlPasteFormats
wSh.Cells.ColumnWidth = 20
wSh.Columns("C:C").ColumnWidth = 70
End If
Next wSh
Set Rng = Nothing
End Sub

 

[sylvanu]

Avez vous essayé le "Application.ScreenUpdating = false", ça ne vous plait pas ?

 

[bobafric]

Avez vous essayé le "Application.ScreenUpdating = false", ça ne vous plait pas ?

Désolé mais je ne comprend pas ce que veut dire ce code, que faut il faire

 

[sylvanu]

comme dit au dessus : A mettre en début de macro.

Sub CopyFormatCC()
Dim wSh As Worksheet, Rng As Range
Application.ScreenUpdating = false
Set Rng = ThisWorkbook.Worksheets("MOD").Columns("C")
Rng.Copy
For Each wSh In ThisWorkbook.Worksheets
If wSh.Name <> "MOD" Then
wSh.Columns("A:H").PasteSpecial Paste:=xlPasteFormats
wSh.Cells.ColumnWidth = 20
wSh.Columns("C:C").ColumnWidth = 70
End If
Next wSh
Set Rng = Nothing
End Sub

 

[bobafric]

comme dit au dessus : A mettre en début de macro.

Sub CopyFormatCC()
Dim wSh As Worksheet, Rng As Range
Application.ScreenUpdating = false
Set Rng = ThisWorkbook.Worksheets("MOD").Columns("C")
Rng.Copy
For Each wSh In ThisWorkbook.Worksheets
If wSh.Name <> "MOD" Then
wSh.Columns("A:H").PasteSpecial Paste:=xlPasteFormats
wSh.Cells.ColumnWidth = 20
wSh.Columns("C:C").ColumnWidth = 70
End If
Next wSh
Set Rng = Nothing
End Sub

Impeccale Sylvanu merci pour votre patience et votre science. A bientôt peut-être