Discussion :

[soffy]

Bonjour

Mon but est d'éditer autant de feuilles séparées que de personnes (AS, CC etc...)
avec les initiales ressorties en rouge sur chaque feuille correspondante.
Toutes les initiales sont dans la feuille RX de E6 à E25.
Comment puis-je écrire une procédure condensée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub PlanningRX()
'
' PlanningRX Macro
' Macro enregistrée le 06/06/2007 par SG
'
Sheets("PLANNING").Select
Sheets("PLANNING").Copy After:=Sheets("PLANNING")
Range("C5:W39").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""AS"""
Selection.FormatConditions(1).Font.ColorIndex = 3
 
Sheets("PLANNING").Select
Sheets("PLANNING").Copy After:=Sheets("PLANNING")
Range("C5:W39").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""CC"""
Selection.FormatConditions(1).Font.ColorIndex = 3
End Sub

Merci de vos réponses

Sophie

[droggo]

Foa,

Les initiales sont un mauvais plan pour distinguer des personnes, les collisions sont fréquentes.

[dadavyvy]

Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub PlanningRX()
    Dim cell As Range, sh As Worksheet
    On Error Resume Next ' au cas ou le nom existe deja
    For Each cell In Sheets("PLANNING").Range("E6:E25").Cells
        Sheets("PLANNING").Copy After:=Sheets("PLANNING")
        Set sh = Sheets(Sheets("PLANNING").Index + 1)
        sh.Name = cell.Value
        With sh.Range(cell.Address)
            .Font.Color = RGB(255, 0, 0)
            .Font.Bold = True
        End With
    Next cell
    Set cell = Nothing
    Set Sh = Nothing
End Sub

[soffy]

Pour eviter cela elles sont saisies à partir d'un USF ce qui standardise les données. Et puis j'ai pas le choix c'est comme cela que mes patrons le veulent.

[soffy]

Merci Dadavyvy

J'ai testé ça marche super

Sophie