XL 2019 texte et bordure bouton vba

[frederio]

Bonjour à tous
Tu vous connais comment faire ?
Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci

la feuille (Belgique)

Pour appliquer à notre texte l'une de blanc et une bordure à la cellule active avec blanc bouton vba

sur "AM20:AV21"

Pour appliquer à notre texte l'une de blanc et une bordure à la cellule active avec blanc bouton vba sur " D12+F12:I12+K12" (Suite la journée 1- 30) base texte et bordure blanc

Retour noir

Pour appliquer à notre texte l'une de noir et une bordure à la cellule active avec noir bouton vba

sur "AM20:AV21"

Pour appliquer à notre texte l'une de noir et une bordure à la cellule active avec noir bouton vba sur " D12+F12:I12+K12" (Suite la journée 1- 30) base texte et bordure noir

Reste couleur RGB (198, 224, 180)
(Suite la journée 1- 30)

 

[AtTheOne]

Bonjour à toutes & à tous, Bonjour @frederio
Une petite question préliminaire :
Ne pourrais-tu pas rédiger tes message dans ta langue maternelle et utiliser un traducteur en ligne pour les publier ?

Avec ce que j'ai compris ...
Code

Sub MasquageExtra()
    
     Blanc = RGB(255, 255, 255)
     Noir = RGB(0, 0, 0)
     Dim Rg As Range, Rg2 As Range
     With ThisWorkbook.Worksheets("belgique")
          Set Rg = .Range("AM20:AV21")
          With Rg
               .Borders.Color = Blanc
               .Borders(xlEdgeTop).Color = Noir
               .Interior.Color = Blanc
               .Font.Color = Blanc
          End With
          
          Set Rg = .Range("D12:K12")
          Set Rg2 = .Range("F12:I12")
          For i = 34 To 375 Step 11
               Set Rg = Union(Rg, Rg.Offset(11))
               Set Rg2 = Union(Rg2, Rg2.Offset(11))
          Next i
          
          With Rg
               .Interior.Color = Blanc
               .Font.Color = Blanc
          End With
          With Rg2
               .Borders.Color = Blanc
               .Borders(xlEdgeTop).Color = Noir
          End With
     End With
End Sub
Sub AffichageExtra()

     Blanc = RGB(255, 255, 255)
     Noir = RGB(0, 0, 0)
     Vert1 = RGB(226, 239, 218)
     Vert2 = RGB(198, 224, 180)
    
     Dim Rg As Range, Rg2 As Range, Rg3 As Range
     With ThisWorkbook.Worksheets("belgique")
          Set Rg = .Range("AM20:AV21")
          With Rg
               .Borders.Color = Noir
               .Interior.Color = Blanc
               .Font.Color = Noir
          End With
          
          Set Rg = .Range("D12:K12")
          Set Rg2 = .Range("F12:I12")
          Set Rg3 = .Range("D12,K12")
          For i = 34 To 375 Step 11
               Set Rg = Union(Rg, Rg.Offset(11))
               Set Rg2 = Union(Rg2, Rg2.Offset(11))
               Set Rg3 = Union(Rg3, Rg3.Offset(11))
          Next i
          With Rg2
               .Interior.Color = Vert2
               .Borders.Color = Noir
               .Font.Color = Noir
          End With
          
          With Rg3
               .Interior.Color = Vert2
               .Font.Color = Noir
          End With
     End With

End Sub

Voir pièce jointe
À bientôt

 

[frederio]

désole j ai oublie montre image

 

[AtTheOne]

Re
Je ne comprends pas ce que tu veux en ajoutant cette image,
Explique-toi
Et pourquoi n'utilises-tu pas un traducteur en ligne ?
À bientôt

 

[frederio]

je vais l' explique montre vidéos

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

 

[frederio]

mon fichier

 

[AtTheOne]

mon fichier

Je déjeune et je regarde ensuite
A +

 

[frederio]

Je suis sourd en langue des signes

Désole Je suis d’écrire moyen français

 

[AtTheOne]

Je suis sourd en langue des signes

Désole Je suis d’écrire moyen français

Pas de soucis, à tout de suite, je monte à l'étage me connecter sur mon pc

 

[AtTheOne]

Re
Voir la nouvelle version dans le fichier joint
À bientôt

 

[frederio]

merci beaucoup

 

[job75]

Bonsoir frederio, AtTheOne,

On peut créer 2 Mises en forme conditionnelles (MFC) et les supprimer :

Sub Masquer()
Application.ScreenUpdating = False
Afficher
With [D:K]
    .FormatConditions.Add xlExpression, Formula1:="=($F1=""A"")+($F1=""B"")"
    .FormatConditions(1).Interior.Color = vbWhite
    .FormatConditions(1).Font.Color = vbWhite
    .FormatConditions(1).Borders(xlEdgeLeft).Color = vbWhite
    .FormatConditions(1).Borders(xlEdgeBottom).Color = vbWhite
    .FormatConditions(1).Borders(xlEdgeRight).Color = vbWhite
End With
With [AM:AV]
    .FormatConditions.Add xlExpression, Formula1:="=($AN1=""A"")+($AN1=""B"")"
    .FormatConditions(1).Interior.Color = vbWhite
    .FormatConditions(1).Font.Color = vbWhite
    .FormatConditions(1).Borders(xlEdgeLeft).Color = vbWhite
    .FormatConditions(1).Borders(xlEdgeBottom).Color = vbWhite
    .FormatConditions(1).Borders(xlEdgeRight).Color = vbWhite
End With
End Sub

Sub Afficher()
On Error Resume Next
[D:K,AM:AV].FormatConditions.Delete
End Sub

A+

 

[frederio]

bonjour job 75, AtTheOne. merci beaucoup

masquer - D333 - K375
afficher - D333 - K375

 

[job75]

Bah dans D333:K375 il n'y a ni "A" ni "B", ça ne sert à rien de masquer.

 

[frederio]

oui c'est tout cache D333:K375 masquer