XL 2019 texte vide et bordure bouton masquer vba

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion frederio
  • Date de début Date de début

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 !

S'inscrire
frederio

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

ex : la feuille " JUPILER PRO LEAGUE " et " EQUIPES " supprimer A et B = vide

comment faire caché bordure bouton masquer


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 = vide

10 la feuille " JUPILER PRO LEAGUE " bouton Masquer
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

Dernière édition:
Trier par date Trier par votes
Je préfère mieux

nouveau feuille "Attaques-Défenses"
2025-11-29_00-06-27.jpg
 
Vote positif 0 Vote négatif
Bonjour à toutes & à tous
Bonjour @frederio
Eh bien si tu n'aimes pas, tu peux modifier le vba et ne pas mettre le zéro ni la chaîne "vw" quand la progression est nulle ! Et si je me suis trompé (c'est possible, je ne peux pas vérifier car je suis sur mon téléphone), inverses les termes de la soustraction.
Je suis sûr que tu vas y arriver...
À bientôt sur une autre discussion
Hallo allemaal
Hallo @frederio
Wel, als je het niet leuk vindt, kun je de VBA aanpassen en de nul en de tekenreeks "vw" weglaten wanneer de voortgang nul is! En als ik me heb vergist in de berekening (dat is mogelijk, ik kan het niet controleren omdat ik op mijn telefoon zit), draai dan de termen van de aftrekking om.”
Ik ben er zeker van dat het je zal lukken…
Tot binnenkort, in een andere discussie
 
Dernière édition:
Vote positif 0 Vote négatif
Re,
Pour le classement des attaques et défenses essaie quelque chose plutôt que de demander sans rien tenter !
À bientôt, sur une autre discussion
Hoi,
Voor de rangschikking van de aanvallen en verdedigingen, probeer liever iets in plaats van niets te proberen en meteen te vragen!”
Tot binnenkort
 
Vote positif 0 Vote négatif
Bonjour à toutes & à tous,
Bonjour @frederio,

Pourquoi t'obstines-tu à prolonger cette discussion plutôt que d'en ouvrir une autre ? On en est au post #95 !
frederio à dit:
nouveau feuille "Attaques-Défenses"
Cliquez pour agrandir...
Le sujet est quand même bien éloigné du sujet initial : "texte vide et bordure bouton masquer vba",


Pour le nouveau calendrier :
frederio à dit:
Ajouter la date et l'heure
Cliquez pour agrandir...
On n'a pas les heures des matchs déjà joués et cette présentation est complètement différente de celle du calendrier précédent :
Ouvre donc une nouvelle discussion en précisant bien ce que tu veux :
  • nouvelle feuille dans le classeur "Suivi des championnats 8 pays européens..." ou classeur séparé.
  • pourquoi un bouton "Afficher-Masquer", le calendrier doit être mis à jour à la fin de chaque nouvelle journée pour enregistrer les résultats de cette journée
  • ...
Pour le classement des Attaques et des Défenses :
Je te réponds quand même car j'avais commencé.
J'ai donc créé une macro qui recalcule ces 2 classements en fonction du choix fait dans la combobox "En Général", "À Domicile", "À l'Extérieur",
1764514657556.png

le code est ci-dessous :

VB: 
Sub Meilleure_Attaque_Défense()

     Dim Dc As Object, NbEq As Byte
     Const AGéné = 1, ADom = 2, AExt = 3, DGéné = 4, DDom = 5, DExt = 6
     Set Dc = CreateObject("Scripting.Dictionary")
    
     tb_Eq = [ts_Equipes].Value
     If IsEmpty(tb_Eq) Then Exit Sub
     If WorksheetFunction.CountA(tb_Eq) = 0 Then Exit Sub
    
     NbEq = UBound(tb_Eq, 1)
     ReDim tb_Eq_A_D(1 To NbEq, 1 To 6)
     'Initialisation du dictionnaire
     For i = 1 To NbEq
          Dc(tb_Eq(i, 1)) = i
     Next
     DernièreJournée = CByte(Right([Titre_Classement].Cells(1, 1).Value, 2))
     Nb_Lgn = (NbEq / 2) * DernièreJournée
     tb_Résult = [ts_Calendrier].Resize(Nb_Lgn, 4).Offset(0, 2)
    
     For i = 1 To Nb_Lgn
          tb_Eq_A_D(Dc(tb_Résult(i, 1)), AGéné) = tb_Eq_A_D(Dc(tb_Résult(i, 1)), AGéné) + tb_Résult(i, 2)
          tb_Eq_A_D(Dc(tb_Résult(i, 1)), ADom) = tb_Eq_A_D(Dc(tb_Résult(i, 1)), ADom) + tb_Résult(i, 2)
          tb_Eq_A_D(Dc(tb_Résult(i, 1)), DGéné) = tb_Eq_A_D(Dc(tb_Résult(i, 1)), DGéné) + tb_Résult(i, 3)
          tb_Eq_A_D(Dc(tb_Résult(i, 1)), DDom) = tb_Eq_A_D(Dc(tb_Résult(i, 1)), DDom) + tb_Résult(i, 3)
          
          tb_Eq_A_D(Dc(tb_Résult(i, 4)), AGéné) = tb_Eq_A_D(Dc(tb_Résult(i, 4)), AGéné) + tb_Résult(i, 3)
          tb_Eq_A_D(Dc(tb_Résult(i, 4)), AExt) = tb_Eq_A_D(Dc(tb_Résult(i, 4)), AExt) + tb_Résult(i, 3)
          tb_Eq_A_D(Dc(tb_Résult(i, 4)), DGéné) = tb_Eq_A_D(Dc(tb_Résult(i, 4)), DGéné) + tb_Résult(i, 2)
          tb_Eq_A_D(Dc(tb_Résult(i, 4)), DExt) = tb_Eq_A_D(Dc(tb_Résult(i, 4)), DExt) + tb_Résult(i, 2)
     Next
     tbAttaque = [ts_Meilleure_Attaque]
     TbDéfense = [ts_Meilleure_Défense]
     Select Case sh_Suivi.CBx_Chx_Lieu.Value
          Case "En Général"
               For Each clef In Dc.keys
                    Idx = Dc(clef)
                    tbAttaque(Idx, 1) = "=RANK([@Buts],[Buts])"
                    tbAttaque(Idx, 2) = clef
                    tbAttaque(Idx, 3) = tb_Eq_A_D(Idx, AGéné)
                    TbDéfense(Idx, 1) = "=RANK([@Buts],[Buts],1)"
                    TbDéfense(Idx, 2) = clef
                    TbDéfense(Idx, 3) = tb_Eq_A_D(Idx, DGéné)
               Next
          Case "À Domicile"
               For Each clef In Dc.keys
                    Idx = Dc(clef)
                    tbAttaque(Idx, 1) = "=RANK([@Buts],[Buts])"
                    tbAttaque(Idx, 2) = clef
                    tbAttaque(Idx, 3) = tb_Eq_A_D(Idx, ADom)
                    TbDéfense(Idx, 1) = "=RANK([@Buts],[Buts],1)"
                    TbDéfense(Idx, 2) = clef
                    TbDéfense(Idx, 3) = tb_Eq_A_D(Idx, DDom)
               Next
          Case "À l'Extérieur"
               For Each clef In Dc.keys
                    Idx = Dc(clef)
                    tbAttaque(Idx, 1) = "=RANK([@Buts],[Buts])"
                    tbAttaque(Idx, 2) = clef
                    tbAttaque(Idx, 3) = tb_Eq_A_D(Idx, AExt)
                    TbDéfense(Idx, 1) = "=RANK([@Buts],[Buts],1)"
                    TbDéfense(Idx, 2) = clef
                    TbDéfense(Idx, 3) = tb_Eq_A_D(Idx, DExt)
               Next
          Case Else
     End Select
     With [ts_Meilleure_Attaque]
          .ListObject.Resize .ListObject.Range.Resize(NbEq + 1)
          .Formula = tbAttaque
          .Value = .Value
          With .ListObject.Sort
               .SortFields.Clear
               .SortFields.Add Key:=[ts_Meilleure_Attaque[Rang]], SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
               .Header = xlYes
               .Apply
          End With
     End With
     With [ts_Meilleure_Défense]
          .Formula = TbDéfense
          .Value = .Value
          With .ListObject.Sort
               .SortFields.Clear
               .SortFields.Add Key:=[ts_Meilleure_Défense[Rang]], SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
               .Header = xlYes
               .Apply
          End With
     End With
End Sub

J'ai également ajouté des fonctionnalité de navigation dans la feuille "Suivi Championnat :
1764514324407.png

Code :
VB: 
Sub Naviguer()

     Choix = ""
     On Error Resume Next
     Choix = Application.Caller
     On Error GoTo 0
     Select Case Choix
          Case "Home_G", "Home_R", "Home_F"
               Set cible = [Titre_Saison]
          Case "Classement"
               Set cible = [Titre_Classement]
          Case "Progression"
               Set cible = [Titre_Progression]
          Case "Résumé"
               Set cible = [Titre_Résumé]
          Case "Attaque-Défense"
               Set cible = [Titre_Attaque]
          Case Else
               Exit Sub
     End Select
     Application.Goto cible.Cells(1).Offset(2, -1), True
     Application.Goto cible.Cells(1).Offset(2, 0), False
    
End Sub

Maintenant, s'il te plait, CLOS CETTE DISCUSSION et ouvres-en une autre pour les demandes à venir même si elles concernent le même classeur.
Vois le fichier joint,
À bientôt
Hallo allemaal,
Hallo @frederio,

Waarom blijf je erop staan om deze discussie voort te zetten in plaats van een nieuwe te openen? We zitten al aan bericht #95!
frederio à dit:
nouveau feuille "Attaques-Défenses"
Cliquez pour agrandir...
Het onderwerp ligt toch behoorlijk ver van het oorspronkelijke onderwerp: “lege tekst en knoprand verbergen vba”.


Voor de nieuwe kalender:
frederio à dit:
Ajouter la date et l'heure
Cliquez pour agrandir...
We hebben de tijden van de reeds gespeelde wedstrijden niet, en deze presentatie is helemaal anders dan die van de vorige kalender.
Open dus een nieuwe discussie en geef duidelijk aan wat je wilt:
  • nieuw blad in de werkmap “Suivi des championnats 8 pays européens…” of een aparte werkmap
  • waarom een knop “Weergeven–Verbergen”? De kalender moet aan het einde van elke nieuwe speeldag worden bijgewerkt om de resultaten van die speeldag op te slaan
  • …

Wat betreft de ranglijst van Aanvallen en Verdedigingen:
Ik antwoord je toch, want ik was al begonnen.
Ik heb dus een macro gemaakt die deze twee ranglijsten opnieuw berekent op basis van de keuze in de combobox: “In het algemeen”, “Thuis”, “Uit”.
1764514657556.png
de code staat hieronder :

VB: 
Sub Meilleure_Attaque_Défense()

     Dim Dc As Object, NbEq As Byte
     Const AGéné = 1, ADom = 2, AExt = 3, DGéné = 4, DDom = 5, DExt = 6
     Set Dc = CreateObject("Scripting.Dictionary")
    
     tb_Eq = [ts_Equipes].Value
     If IsEmpty(tb_Eq) Then Exit Sub
     If WorksheetFunction.CountA(tb_Eq) = 0 Then Exit Sub
    
     NbEq = UBound(tb_Eq, 1)
     ReDim tb_Eq_A_D(1 To NbEq, 1 To 6)
     'Initialisation du dictionnaire
     For i = 1 To NbEq
          Dc(tb_Eq(i, 1)) = i
     Next
     DernièreJournée = CByte(Right([Titre_Classement].Cells(1, 1).Value, 2))
     Nb_Lgn = (NbEq / 2) * DernièreJournée
     tb_Résult = [ts_Calendrier].Resize(Nb_Lgn, 4).Offset(0, 2)
    
     For i = 1 To Nb_Lgn
          tb_Eq_A_D(Dc(tb_Résult(i, 1)), AGéné) = tb_Eq_A_D(Dc(tb_Résult(i, 1)), AGéné) + tb_Résult(i, 2)
          tb_Eq_A_D(Dc(tb_Résult(i, 1)), ADom) = tb_Eq_A_D(Dc(tb_Résult(i, 1)), ADom) + tb_Résult(i, 2)
          tb_Eq_A_D(Dc(tb_Résult(i, 1)), DGéné) = tb_Eq_A_D(Dc(tb_Résult(i, 1)), DGéné) + tb_Résult(i, 3)
          tb_Eq_A_D(Dc(tb_Résult(i, 1)), DDom) = tb_Eq_A_D(Dc(tb_Résult(i, 1)), DDom) + tb_Résult(i, 3)
          
          tb_Eq_A_D(Dc(tb_Résult(i, 4)), AGéné) = tb_Eq_A_D(Dc(tb_Résult(i, 4)), AGéné) + tb_Résult(i, 3)
          tb_Eq_A_D(Dc(tb_Résult(i, 4)), AExt) = tb_Eq_A_D(Dc(tb_Résult(i, 4)), AExt) + tb_Résult(i, 3)
          tb_Eq_A_D(Dc(tb_Résult(i, 4)), DGéné) = tb_Eq_A_D(Dc(tb_Résult(i, 4)), DGéné) + tb_Résult(i, 2)
          tb_Eq_A_D(Dc(tb_Résult(i, 4)), DExt) = tb_Eq_A_D(Dc(tb_Résult(i, 4)), DExt) + tb_Résult(i, 2)
     Next
     tbAttaque = [ts_Meilleure_Attaque]
     TbDéfense = [ts_Meilleure_Défense]
     Select Case sh_Suivi.CBx_Chx_Lieu.Value
          Case "En Général"
               For Each clef In Dc.keys
                    Idx = Dc(clef)
                    tbAttaque(Idx, 1) = "=RANK([@Buts],[Buts])"
                    tbAttaque(Idx, 2) = clef
                    tbAttaque(Idx, 3) = tb_Eq_A_D(Idx, AGéné)
                    TbDéfense(Idx, 1) = "=RANK([@Buts],[Buts],1)"
                    TbDéfense(Idx, 2) = clef
                    TbDéfense(Idx, 3) = tb_Eq_A_D(Idx, DGéné)
               Next
          Case "À Domicile"
               For Each clef In Dc.keys
                    Idx = Dc(clef)
                    tbAttaque(Idx, 1) = "=RANK([@Buts],[Buts])"
                    tbAttaque(Idx, 2) = clef
                    tbAttaque(Idx, 3) = tb_Eq_A_D(Idx, ADom)
                    TbDéfense(Idx, 1) = "=RANK([@Buts],[Buts],1)"
                    TbDéfense(Idx, 2) = clef
                    TbDéfense(Idx, 3) = tb_Eq_A_D(Idx, DDom)
               Next
          Case "À l'Extérieur"
               For Each clef In Dc.keys
                    Idx = Dc(clef)
                    tbAttaque(Idx, 1) = "=RANK([@Buts],[Buts])"
                    tbAttaque(Idx, 2) = clef
                    tbAttaque(Idx, 3) = tb_Eq_A_D(Idx, AExt)
                    TbDéfense(Idx, 1) = "=RANK([@Buts],[Buts],1)"
                    TbDéfense(Idx, 2) = clef
                    TbDéfense(Idx, 3) = tb_Eq_A_D(Idx, DExt)
               Next
          Case Else
     End Select
     With [ts_Meilleure_Attaque]
          .ListObject.Resize .ListObject.Range.Resize(NbEq + 1)
          .Formula = tbAttaque
          .Value = .Value
          With .ListObject.Sort
               .SortFields.Clear
               .SortFields.Add Key:=[ts_Meilleure_Attaque[Rang]], SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
               .Header = xlYes
               .Apply
          End With
     End With
     With [ts_Meilleure_Défense]
          .Formula = TbDéfense
          .Value = .Value
          With .ListObject.Sort
               .SortFields.Clear
               .SortFields.Add Key:=[ts_Meilleure_Défense[Rang]], SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
               .Header = xlYes
               .Apply
          End With
     End With
End Sub
Ik heb ook navigatiefuncties toegevoegd in het blad “Suivi Championnat”:
1764514324407.png
Code :
VB: 
Sub Naviguer()

     Choix = ""
     On Error Resume Next
     Choix = Application.Caller
     On Error GoTo 0
     Select Case Choix
          Case "Home_G", "Home_R", "Home_F"
               Set cible = [Titre_Saison]
          Case "Classement"
               Set cible = [Titre_Classement]
          Case "Progression"
               Set cible = [Titre_Progression]
          Case "Résumé"
               Set cible = [Titre_Résumé]
          Case "Attaque-Défense"
               Set cible = [Titre_Attaque]
          Case Else
               Exit Sub
     End Select
     Application.Goto cible.Cells(1).Offset(2, -1), True
     Application.Goto cible.Cells(1).Offset(2, 0), False
    
End Sub
SLUIT NU ALSJEBLIEFT DEZE DISCUSSIE en open een nieuwe voor de komende vragen, ook als ze dezelfde werkmap betreffen.
Zie het bijgevoegde bestand,
SLUIT DEZE DISCUSSIE
Tot binnenkort
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir à toutes & à tous,
Bonsoir @frederio
Décidément tu ne veux pas quitter cette discussion !
Et tu es toujours aussi peu explicite dans tes demandes !
Pour les flèches bleues horizontales, elles expriment la stabilité dans le classement.
Pour ne pas les afficher regarde le format des nombres de ce tableau, tu devrais trouver tout seul, ce n'est pas compliqué.

Pour les matchs non encore joués de la journée en cours, je regarde pour ne pas mettre de "N" mais laisser la case vide dans le tableau résumé des 5 dernières journées. Ça sera pour plus tard.

Quant à ta vidéo, elle n'est pas visible sur mon téléphone.

À bientôt.
Goedenavond allemaal,
Goedenavond @frederio

Je wilt deze discussie duidelijk niet verlaten!
En je bent nog steeds even onduidelijk in je verzoeken!

Wat de horizontale blauwe pijlen betreft, zij geven de stabiliteit in de rangschikking aan.
Om ze niet weer te geven, kijk je best naar het getalformaat van deze tabel; je zou dit zelf moeten kunnen vinden, het is niet ingewikkeld.

Voor de wedstrijden die nog niet gespeeld zijn op de huidige speeldag, kijk ik om geen "N" te zetten maar het vakje leeg te laten in de overzichtstabel van de laatste 5 speeldagen. Dat komt later.

Wat je video betreft, die is niet zichtbaar op mijn telefoon.

Tot binnenkort.
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

frederio
  • Question Question
XL 2019 football automatiquement avec les macros vba code
Réponses
2
Affichages
333
frederio
frederio
frederio
  • Question Question
XL 2019 automatiquement les données de internet - EXCEL VBA
Réponses
3
Affichages
276
frederio
frederio
frederio
  • Question Question
XL 2019 texte et bordure bouton vba
2 3 4
Réponses
56
Affichages
2 K
AtTheOne
AtTheOne
frederio
  • Question Question
XL 2019 Le Résultat rechercher match aller / retour dans UserForm
Réponses
5
Affichages
214
frederio
frederio
frederio
  • Question Question
XL 2019 automatiquement le Equipes et les résultats de football sur des macros VBA
Réponses
5
Affichages
297
frederio
frederio
frederio
  • Question Question
XL 2019 Le bouton copie/coller vba
Réponses
2
Affichages
221
frederio
frederio
frederio
  • Question Question
XL 2019 SIERREUR(et ;"")
Réponses
3
Affichages
703
fanch55
fanch55
frederio
  • Question Question
XL 2019 SIERREUR(et ;"")
Réponses
8
Affichages
758
AtTheOne
AtTheOne
frederio
  • Question Question
XL 2019 C'est Problème SIERREUR(et ;"")
Réponses
5
Affichages
503
fanch55
fanch55
frederio
  • Question Question
XL 2019 Comment faire enlever
Réponses
3
Affichages
631
frederio
frederio
DAVID-44-
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
326
DAVID-44-
DAVID-44-
frederio
  • Question Question
XL 2019 direct plus rapide
Réponses
5
Affichages
722
frederio
frederio
frederio
  • Question Question
XL 2019 copier coller vba
2
Réponses
15
Affichages
2 K
job75
job75
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
877
Nel'
N
frederio
  • Question Question
XL 2019 TOTAL DE BUTS et NOMBRE DE JOURNEE
Réponses
8
Affichages
868
frederio
frederio
frederio
  • Question Question
XL 2019 Méthodes et Techniques forum paris sportifs
Réponses
1
Affichages
898
Compte Supprimé 979
C
frederio
  • Question Question
XL 2019 image photo
Réponses
3
Affichages
922
frederio
frederio
frederio
  • Question Question
XL 2019 image logo
Réponses
0
Affichages
800
frederio
frederio
frederio
  • Question Question
XL 2019 vba supprimer une ligne
Réponses
2
Affichages
711
frederio
frederio
C
  • Question Question
XL 2016 VBA - Insertion de lignes automatique sous condition et copier formats et formules dans la nouvelle ligne
Réponses
10
Affichages
2 K
clochette
C
Retour