/ / Matches de football possibles dans Excel VBA

Matches de football possibles dans Excel VBA

Ci-dessous, nous examinerons un programme en Excel VBA qui montre un aperçu avant impression de tous les matchs de football possibles à partir d'une liste d'équipes.

Situation:

Matches de football possibles dans Excel VBA

1. Tout d'abord, nous déclarons un objet Range et quatre variables. Nous appelons l'objet Range rng. Une variable de chaîne que nous appelons matchname et trois variables entières que nous appelons compteur, i et j.

Dim rng As Range, matchname As String, counter As Integer, i As Integer, j As Integer

2. Nous initialisons rng avec les noms des équipes. Nous utilisons CurrentRegion car nous ne connaissons pas à l’avance les limites exactes de la plage (nous voulons que ce programme fonctionne pour 3 équipes mais également pour 12 équipes). Nous initialisons le compteur avec la valeur 0.

Set rng = Range("A1").CurrentRegion
counter = 0

3. Nous écrivons tous les matchs de football possibles dans la colonne C. Premièrement, nous viderons la colonne C.

Worksheets(1).Columns(3) = ""

4. Nous commençons une double boucle.

For i = 1 To rng.Count
    For j = i + 1 To rng.Count

5. Nous écrivons un matchname dans la variable matchname.

matchname = rng.Cells(i).Value & " vs " & rng.Cells(j).Value

Par exemple, pour i = 1 et j = 2, Excel VBA écrit le nom du match Kickers vs Shooters. Pour i = 1 et j = 3, Excel VBA écrit le nom du match Kickers vs Little Giants, etc.

6. Nous écrivons le matchname dans la colonne C.

Cells(counter + 1, 3).Value = matchname

7. Le compteur enregistre le nombre de noms de correspondance écrits dans la colonne C. Excel VBA incrémente le compteur de 1 chaque fois qu'il écrit un nom de correspondance dans la colonne C. Pour cela, ajoutez la ligne de code suivante:

counter = counter + 1

8. N’oubliez pas de fermer les deux boucles.

    Next j
Next i

9. Nous montrons un aperçu avant impression de tous les matchs de football possibles.

ActiveSheet.Columns(3).PrintPreview

10. Testez le programme.

Une partie du résultat:

Résultat possible des matches de football

Remarque: la colonne C est manuellement centrée pour obtenir ce résultat.

Lisez aussi: