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
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
BONJOUR Bobafric,
Si j'ai bien compris, il suffit de reprendre les MFC.
Par ex pour John, remplacez la MFC par :
VB:
=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 :
BONJOUR Bobafric,
Si j'ai bien compris, il suffit de reprendre les MFC.
Par ex pour John, remplacez la MFC par :
VB:
=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 :
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
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
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 !!
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
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
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
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