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]

Re,
Il faut mettre les formules dans les plages D4 : D12 et K4 : K14 (Sans ces formules la première journée est considérée comme une journée vide) !
Ainsi que les bons formats sur toute la plage de la première journée (D3:K13) car elle sert de modèle pour les journées vides.
De formules moeten worden ingevoerd in de bereiken D4 : D12 en K4 : K14 (zonder deze formules wordt de eerste dag als een lege dag beschouwd)!
Evenals de juiste formaten voor het volledige bereik van de eerste dag (D3 : K13), aangezien dit als sjabloon dient voor lege dagen.

Est-ce-que les traductions t'aident ?
Helpen vertalingen u?

À bientôt
Tot snel

 

[frederio]

Les plages D4 : D12 et K4:K12 (vide)

 

[AtTheOne]

re
Est-ce-que les traductions t'aident ?
Helpen vertalingen u?

 

[frederio]

vide D4: D12 et K4:K12

Reste numéro D15: D375 et K15:K375

 

[AtTheOne]

Est-ce-que les traductions t'aident ?
Helpen vertalingen u?

 

[frederio]

mon video

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

 

[AtTheOne]

Est-ce-que les traductions t'aident ?
Helpen vertalingen u?

?????

 

[bsalv]

@frederio , ik ben nederlandstalig, dus leg je probleem even in je eigen woorden uit, dan zorg ik voor een vertaling

Je propose de fournir une traduction NL->FR

 

[AtTheOne]

Je propose de fournir une traduction NL->FR

Oui mais @frederio ne répond pas à cette question.
J'attends d'avoir une réponse pour continuer sur ce fil.
À bientôt

 

[frederio]

FR

Je faire idée

VBA Police des Cellules – Modifier la couleur

("D4 : D12 ; K4:K12 ")

Vert = RGB(198, 224, 180)

NL
Ik heb een idee

VBA-cellettertype – Kleur wijzigen

("D4: D12; K4:K12")

Groente = RGB(198, 224, 180)

 

[AtTheOne]

Re,
En fait il suffit dans la partie qui masque les journées vides de commencer à la 12ème ligne de la plage [D3:K376] :

...
     'Masquer les journées vides
     For i = 12 To 374 Step 11
          If rg.Cells(i + 1, 1) = "" Then
               With rg.Rows(i).Resize(11)
                    .Interior.Color = Blanc
                    .Font.Color = Blanc
                    .Borders.LineStyle = xlNone
               End With
          End If
     Next i
...

Le code complet de la sub :

Sub Masquer()
     Dim WSh As Worksheet, rg As Range, Ligne As Range, Blanc As Long, Noir As Long, Vert1 As Long, Vert2 As Long, i As Long
    
     Blanc = RGB(255, 255, 255)
     Noir = RGB(0, 0, 0)
     Vert1 = RGB(226, 239, 218)
     Vert2 = RGB(198, 224, 180)
    
     Set WSh = Sh_Belgique
    
     'Tableau de classement
     Set rg = WSh.[AM4:BE21]
     Application.ScreenUpdating = False
     For Each Ligne In rg.Rows
          With Ligne
               If Len(.Cells(2) & "") = 1 Then
                    .Borders(xlInsideVertical).LineStyle = xlNone
                    .Borders(xlEdgeLeft).LineStyle = xlNone
                    .Borders(xlEdgeRight).LineStyle = xlNone
                    .Borders(xlEdgeBottom).LineStyle = xlNone
                    .Interior.Pattern = xlNone
                    .Font.Color = Blanc
               End If
          End With
     Next Ligne
    
     'Résultats des journées
     Set rg = WSh.[D3:K376]
     'Masquer les équipes non renseignées (nom = 1 lettre)
     With rg
          For i = 1 To 374
               If Len(.Cells(i, 3) & "") = 1 Then
                    With .Rows(i)
                         .Borders(xlInsideVertical).LineStyle = xlNone
                         .Borders(xlEdgeLeft).LineStyle = xlNone
                         .Borders(xlEdgeRight).LineStyle = xlNone
                         .Borders(xlEdgeBottom).LineStyle = xlNone
                         .Interior.Pattern = xlNone
                         .Font.Color = Blanc
                    End With
               End If
          Next i
     End With
     'Masquer les journées vides
     For i = 12 To 374 Step 11
          If rg.Cells(i + 1, 1) = "" Then
               With rg.Rows(i).Resize(11)
                    .Interior.Color = Blanc
                    .Font.Color = Blanc
                    .Borders.LineStyle = xlNone
               End With
          End If
     Next i
     Application.ScreenUpdating = True
    
End Sub

Voir le fichier joint

À bientôt

 

[frederio]

FR

Pourquoi changer gauche (annuler fustionner cellules)

NL

Waarom naar links veranderen (cellen samenvoegen)

FR
Je préfère center

VBA centrer fustionner cellules (de la journée 1 à la journée 34)

NL

Ik geef de voorkeur aan centrum

VBA-centraal samenvoegen van cellen (van dag 1 tot dag 34)

 

[AtTheOne]

Bonjour @frederio
Tu ne m'as toujours pas dis si la traduction t'aidait ou non ! 😡

Bref, pour le petit bug, faire la même correction que celle du post#41 mais dans la Sub Afficher.
Je ne sais pas pourquoi mais quand on fait le collage spécial format sur la même plage que la plage copiée le fusionnement des cellules saute !

Je te laisse faire

 

[frederio]

Waarom naar links veranderen (cellen samenvoegen)

Ik geef de voorkeur aan centrum

VBA-centraal samenvoegen van cellen (van dag 1 tot dag 34)

 

[AtTheOne]

re
Je ne sais pas pourquoi mais quand on fait le collage spécial format sur la même plage que la plage copiée le fusionnement des cellules saute !
Pour ce petit bug faire la même correction que celle du post#41 mais dans la Sub Afficher.
C'est à dire commencer la boucle à 12
Ik weet niet waarom, maar als je de speciale opmaak plakt op hetzelfde bereik als het gekopieerde bereik, mislukt het samenvoegen van cellen!
Los dit kleine probleem op dezelfde manier op als in bericht #41, maar dan in de subweergave.
Dat wil zeggen, begin de lus bij 12.

    ...
 'Afficher les journées vides
     Set Modèle = rg.Resize(11)
     For i = 12 To 374 Step 11
          If rg.Cells(i + 1, 1) = "" Then
               Modèle.Copy
               rg.Rows(i).Resize(374 - i + 1).PasteSpecial Paste:=xlPasteFormats
               Application.CutCopyMode = False
               Exit For
          End If
     Next i
...

À bientôt