XL 2019 texte et bordure bouton vba

frederio · 11 Juillet 2025

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)

frederio · 30 Juillet 2025

FR
Bonjour à tous

Autre qui connais comment faire ?

NL
Hallo allemaal

Weet iemand anders hoe dit moet?

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

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

AtTheOne · 30 Juillet 2025

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.

frederio · 30 Juillet 2025

FR
Tu faire Télécharger le fichier aller voir https://www.transfernow.net/dl/20250730pjucBsgX

NL

Je download het bestand en gaat kijken https://www.transfernow.net/dl/20250730pjucBsgX

AtTheOne · 30 Juillet 2025

Re,
J'ai repris le code de la macro "Afficher"

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

Fusionne les cellules de "Journée 1" (cellules F3:I3)
Excécute la macro "Afficher"

À Bientôt

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

Cellen samenvoegen vanaf "Dag 1" (cellen F3:I3)
Voert de macro "Weergeven" uit

Tot snel

frederio · 1 Août 2025

bonjour. enfin c est parfait ! merci beaucoup

Goedemorgen. Eindelijk is het perfect! Heel erg bedankt

AtTheOne · 1 Août 2025

frederio à dit:
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

frederio · 1 Août 2025

c est petite problème montre de video
Het is een klein probleem, bekijk de video

AtTheOne · 1 Août 2025

frederio à dit:
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.

frederio · 1 Août 2025

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

frederio · 2 Août 2025

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".

frederio · 4 Août 2025

FR
J’ai attendu rien à voir depuis 2 jours et besoin travailler avance pour Excel

NL
Ik wacht al 2 dagen op niks en moet alvast aan de slag met Excel.

AtTheOne · 4 Août 2025

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.

Effectuez une recherche sur Excel Downloads...

XL 2019 texte et bordure bouton vba

frederio

XLDnaute Impliqué

Pièces jointes

frederio

XLDnaute Impliqué

AtTheOne

XLDnaute Accro

Pièces jointes

frederio

XLDnaute Impliqué

AtTheOne

XLDnaute Accro

frederio

XLDnaute Impliqué

AtTheOne

XLDnaute Accro

frederio

XLDnaute Impliqué

Pièces jointes

AtTheOne

XLDnaute Accro

frederio

XLDnaute Impliqué

frederio

XLDnaute Impliqué

frederio

XLDnaute Impliqué

AtTheOne

XLDnaute Accro

Discussions similaires

Nous accordons de l'importance à votre vie privée