Bonjour à toute l'équipe,
Je reviens à la rescousse.
Ma priorité MFC par Macro ne marche pas dans les 2 solutions.
Dan m'a donné l'information en mettant le nom de la Macro.
Dans le MFC la cellule doit être "La formule est" ou la formulr est égale?
Dans un cas comme dans l'autre faut-il mettre le signe = avant?
Au départ ma formule marchait bien et actuellement j'ai un BUG dans ma formule à force de manipuler
Je vous joint ma formule :
Sub MiseEnCouleur()
Dim ligne As Integer
Dim colonne As Integer
'Boucle du tableau Hemodialyse
For ligne = 5 To 51 Step 2
For colonne = 29 To 89 Step 2
Cells(ligne, colonne).Select
If Selection.Text <> "" Then
If Selection.Text = "A." Or Selection.Text = "B." Then
Selection.Style = "AJ"
Else
Selection.Style = Selection.Text
End If
Else
Selection.Style = "vide"
End If
Next colonne
Next ligne
'Boucle tableau Nephro
For ligne = 57 To 79 Step 2
For colonne = 29 To 89 Step 2
Cells(ligne, colonne).Select
If Selection.Text <> "" Then
If Selection.Text = "N" Then
Selection.Style = "Nuit"
Else
Selection.Style = Selection.Text
End If
Else
Selection.Style = "vide"
End If
Next colonne
Next ligne
'Boucle des noms tableau Nephro
colonne = 28
For ligne = 57 To 79 Step 2
Cells(ligne, colonne - 10).Select
Selection.Style = "Orange"
Select Case Selection.Value
Case 2, 5, 8, 16 "A CET ENDROIT IL BUG"
Cells(ligne, colonne).Select
Selection.Style = "Orange"
Case 33
Selection.Style = "vide"
End Select
Next ligne
'Boucle des noms Hemodialyse
colonne = 28
For ligne = 5 To 51 Step 2
Cells(ligne, colonne - 10).Select
Select Case Selection.Value
Case 2, 5, 8, 16
Cells(ligne, colonne).Select
Selection.Style = "Orange"
Case 33
Selection.Style = "vide"
End Select
Next ligne
End Sub
La solution pour déBUGuer c'est quoi SVP.
Merci d'avance
Noël