XL 2019 texte et bordure bouton vba

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

frederio

XLDnaute Impliqué
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"
2025-07-11_15-45-12.jpg


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
2025-07-11_15-45-12.jpg


Retour noir

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

sur "AM20:AV21"
2025-07-11_15-46-50.jpg


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
2025-07-11_15-46-50.jpg


Reste couleur RGB (198, 224, 180)
(Suite la journée 1- 30)
2025-07-11_15-46-50.jpg
 

Pièces jointes

Dernière édition:
Bonjour à toutes & à tous, bonjour @frederio .

Je ne comprends pas, je t'ai donné la solution au post#45 en te laissant le soin de l'intégrer dans la macro "Afficher"
Après la modification de la macro il suffisait juste d'appliquer le bon format au titre de la 1ère journée et de cliquer sur le bouton "Texte & Bordures"
Tu ne l'as pas fait.
Je te joins le fichier corrigé par mes soins, mai quand même tu aurais pu faire cette modification toi-même !
Voir le fichier joint.

À bientôt

Hallo allemaal, hallo @frederio.

Ik snap het niet. Ik heb je de oplossing gegeven in bericht #45, en het is aan jou om die te integreren in de macro "Weergave".
Nadat je de macro had aangepast, hoefde je alleen nog maar de juiste opmaak toe te passen op de titel van de eerste dag en op de knop "Tekst & Randen" te klikken.
Dat heb je niet gedaan.
Ik voeg het bestand bij dat ik heb gecorrigeerd, maar je had deze wijziging zelf kunnen aanbrengen!
Zie het bijgevoegde bestand.

Tot ziens.
 

Pièces jointes

Re,
J'ai repris le code de la macro "Afficher"
  1. Remplace le code de la macro "Afficher" par celui ci :
    VB:
    Sub Afficher()
         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 = JUPILER_PRO_LEAGUE
     
         Application.ScreenUpdating = False
     
         'Tableau de classement
         Set rg = WSh.[AM4:BE21]
         For Each Ligne In rg.Rows
              With Ligne
                   If Len(.Cells(2) & "") = 1 Then
                        With .Resize(1, 10)
                             .Borders.LineStyle = xlContinuous
                             .Interior.Pattern = xlNone
                             .Font.Color = Noir
                        End With
                        With .Cells(12).Resize(, 2)
                             .Borders.LineStyle = xlDot
                             .Borders(xlInsideVertical).LineStyle = xlNone
                             .Font.Color = Noir
                        End With
                        With .Cells(15).Resize(, 5)
                             .Borders.LineStyle = xlDot
                             .Font.Color = Noir
                        End With
                   End If
              End With
         Next Ligne
     
         'Résultats des journées
         Set rg = WSh.[D3:K376]
         'Afficher les équipes non renseignées (nom = 1 lettre)
         With rg.Offset(1).Resize(10)
              For i = 1 To 10
                   If Len(.Cells(i, 3) & "") = 1 Then
                        With Union(.Cells(i, 1), .Cells(i, 8))
                             .Font.Color = Noir
                             .Interior.Color = Vert2
                        End With
                        With .Cells(i, 3).Resize(, 4)
                             .Font.Color = Noir
                             .Interior.Color = IIf(i Mod 2 = 0, Vert2, Vert1)
                             .Borders(xlInsideVertical).LineStyle = xlContinuous
                             .Borders(xlEdgeLeft).LineStyle = xlContinuous
                             .Borders(xlEdgeRight).LineStyle = xlContinuous
                             .Borders(xlEdgeBottom).LineStyle = xlContinuous
                        End With
                   End If
              Next i
         End With
     
         'Afficher les journées vides
         Set Modèle = rg.Resize(11)
         Modèle.Copy
         rg.Offset(11).Resize(rg.Rows.Count - 11).PasteSpecial Paste:=xlPasteFormats
         Application.CutCopyMode = False
         Application.Goto WSh.[A1]
         Application.ScreenUpdating = True
     
    End Sub

  2. Fusionne les cellules de "Journée 1" (cellules F3:I3)

  3. Excécute la macro "Afficher"
À Bientôt

  1. Vervang de code van de macro "Weergeven" door deze:
    Code:
    Sub Afficher()
      
         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 = JUPILER_PRO_LEAGUE
      
         Application.ScreenUpdating = False
      
         'Tableau de classement
         Set rg = WSh.[AM4:BE21]
         For Each Ligne In rg.Rows
              With Ligne
                   If Len(.Cells(2) & "") = 1 Then
                        With .Resize(1, 10)
                             .Borders.LineStyle = xlContinuous
                             .Interior.Pattern = xlNone
                             .Font.Color = Noir
                        End With
                        With .Cells(12).Resize(, 2)
                             .Borders.LineStyle = xlDot
                             .Borders(xlInsideVertical).LineStyle = xlNone
                             .Font.Color = Noir
                        End With
                        With .Cells(15).Resize(, 5)
                             .Borders.LineStyle = xlDot
                             .Font.Color = Noir
                        End With
                   End If
              End With
         Next Ligne
      
         'Résultats des journées
         Set rg = WSh.[D3:K376]
         'Afficher les équipes non renseignées (nom = 1 lettre)
         With rg.Offset(1).Resize(10)
              For i = 1 To 10
                   If Len(.Cells(i, 3) & "") = 1 Then
                        With Union(.Cells(i, 1), .Cells(i, 8))
                             .Font.Color = Noir
                             .Interior.Color = Vert2
                        End With
                        With .Cells(i, 3).Resize(, 4)
                             .Font.Color = Noir
                             .Interior.Color = IIf(i Mod 2 = 0, Vert2, Vert1)
                             .Borders(xlInsideVertical).LineStyle = xlContinuous
                             .Borders(xlEdgeLeft).LineStyle = xlContinuous
                             .Borders(xlEdgeRight).LineStyle = xlContinuous
                             .Borders(xlEdgeBottom).LineStyle = xlContinuous
                        End With
                   End If
              Next i
         End With
      
         'Afficher les journées vides
         Set Modèle = rg.Resize(11)
         Modèle.Copy
         rg.Offset(11).Resize(rg.Rows.Count - 11).PasteSpecial Paste:=xlPasteFormats
         Application.CutCopyMode = False
         Application.Goto WSh.[A1]
         Application.ScreenUpdating = True
      
    End Sub


  2. Cellen samenvoegen vanaf "Dag 1" (cellen F3:I3)
  3. Voert de macro "Weergeven" uit
Tot snel
 
bonjour. enfin c est parfait ! merci beaucoup


Goedemorgen. Eindelijk is het perfect! Heel erg bedankt
Merci pour le retour, le français de ton message est très bon !
Pense à marquer le post#49 comme solution pour clore ce fil. (Voir ma signature)
Bedankt voor je feedback! Je bericht is erg goed Frans!
Vergeet niet bericht #49 te markeren als oplossing om deze thread te sluiten. (Zie mijn handtekening.)

À bientôt Tot snel
 
c est petite problème montre de 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.

Het is een klein probleem, bekijk de 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.
 

Pièces jointes

c est petite problème montre de 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.

Het is een klein probleem, bekijk de 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.
Re,
Pour moi ce n'est plus le sujet du fil,
Ouvre un nouveau fil s'il te plaît, en expliquant bien ce que tu veux,
La vidéo n'est pas suffisante.
À bientôt
Voor mij is dit niet langer het onderwerp van dit topic.
Begin alsjeblieft een nieuw topic, waarin je duidelijk uitlegt wat je wilt.
De video is niet genoeg.
Tot snel.
 
1 la feuille " SASION " bouton supprimer une ligne

2 la feuille " JUPILER PRO LEAGUE " bouton Effacer

3 voir sur https://www.mondefootball.fr/toutes_les_jeux/bel-pro-league-2025-2026/

4 Faire copie Domicile équipes et extérieur équipes

5 La feuille " SAISON " coller Domicile équipes sur K3 et extérieur équipes sur N3

6 voir sur https://www.mondefootball.fr/calendrier/bel-pro-league-2025-2026-spieltag/2/

7 faire copie " EQUIPES "

8 la feuille " EQUIPES " coller sur F6

9 la feuille " JUPILER PRO LEAGUE " et " EQUIPES " supprimer A et B

10 la feuille " JUPILER PRO LEAGUE " bouton Masquer



Comment faire plus rapide automatiquement ?

1 la feuille " JUPILER PRO LEAGUE " F4 et I4 faire cellules 2 la feuille " SAISON " sur K3 et N3

2 la feuille " SAISON " L3 et M3 faire cellules 2 la feuille " JUPILER PRO LEAGUE " sur G4 et H4
 
1. Klik op het tabblad "SEIZOEN" en verwijder een rij.

2. Klik op het tabblad "JUPILER PRO LEAGUE" en verwijder de rij.

3. Zie https://www.mondefootball.fr/toutes_les_jeux/bel-pro-league-2025-2026/

4. Kopieer de thuis- en uitteams.

5. Plak het tabblad "SEIZOEN" met de thuisteams op K3 en de uitteams op N3.

6. Zie https://www.mondefootball.fr/calendrier/bel-pro-league-2025-2026-spieltag/2/

7. Kopieer het tabblad "TEAMS" en plak het met F6.

9. Verwijder A en B van de tabbladen "JUPILER PRO LEAGUE" en "TEAMS".

10. Klik op het werkblad "JUPILER PRO LEAGUE" en verberg de rij.

Hoe kan ik dingen automatisch sneller laten verlopen?

1. Maak cellen aan voor de werkbladen F4 en I4 van "JUPILER PRO LEAGUE". 2. Maak cellen aan voor de werkbladen K3 en N3 van "SEIZOEN".

2. Maak cellen aan voor de werkbladen L3 en M3 van "SEIZOEN". 2. Maak cellen aan voor de werkbladen G4 en H4 van "JUPILER PRO LEAGUE".
 
Bonjour à toutes et à tous, bonjour @frederio
Pour ma part, je ne répondrai plus à cette discussion. Comme je te l'ai dis au post#53 le sujet à changé et il faut que tu ouvre une autre discussion avec ce nouveau sujet. Tu auras plus de chance de trouver une solution.
Je note quand même la nette amélioration de la rédaction de tes message.
À bientôt

Hallo allemaal, hallo @frederio
Ik reageer niet meer op deze discussie. Zoals ik je in
bericht #53 al vertelde, is het onderwerp veranderd en zou je een nieuwe discussie moeten beginnen met dit nieuwe onderwerp. Dan heb je meer kans om een oplossing te vinden.
Ik merk nog steeds een duidelijke verbetering in de formulering van je berichten.
Tot ziens.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
675
N
Réponses
19
Affichages
3 K
Retour