erreur d'exécution "9" vba sur plage

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion piskely
  • 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
P

piskely

XLDnaute Junior
Bonjour à tous,
j'ai besoin d'un coup de main pour finaliser mon projet.
Il s'agit de la plage ("C5:C60") qui contient les rencontres aau format (equipeA vs. equipeB)
et la plage ("D5:60") qui contient les résultats au format (scoreA-scoreB).
Si toute la plage est remplie, il n y a aucun problème mais s'il y a une cellule de la plage qui est vide: j'ai ce message d'erreur (Erreur d'exécution "9").
je vous mets le code et les niveaux où ça bloc.
Merci d'avance.

VB: 
Sub classement()

Dim i As Integer
Dim j As Integer
Dim equipeA As String
Dim equipeB As String
Dim resultat As String
Dim scoreA As Integer
Dim scoreB As Integer

' Remise à zéro du tableau
Range("I5:Q12").Value = 0

' Boucle pour parcourir toutes les rencontres
For i = 5 To 60

' Récupération des noms des équipes et du résultat
    equipeA = Split(Range("C" & i).Value, " vs. ")(0)    '<=== si une seule cellule matchs (C) est vide
    equipeB = Split(Range("C" & i).Value, " vs. ")(1)
    resultat = Range("D" & i).Value
    scoreA = Split(resultat, "-")(0)    '<=== si une seule cellule scores (D) est vide
    scoreB = Split(resultat, "-")(1)

    ' Boucle pour parcourir toutes les équipes
    For j = 5 To 12
    
        ' Mise à jour des données pour l'équipe A
        If Range("H" & j).Value = equipeA Then
            Range("I" & j).Value = Range("I" & j).Value + 1
            If scoreA > scoreB Then
                Range("J" & j).Value = Range("J" & j).Value + 1
                Range("L" & j).Value = Range("L" & j).Value + 2
            ElseIf scoreA < scoreB Then
                Range("K" & j).Value = Range("K" & j).Value + 1
                If scoreA = 0 And scoreB = 20 Then
                    Range("L" & j).Value = Range("L" & j).Value + 0
                    Range("P" & j).Value = Range("P" & j).Value + 1
                Else
                    Range("L" & j).Value = Range("L" & j).Value + 1
                End If
            End If
            Range("M" & j).Value = Range("M" & j).Value + scoreA
            Range("N" & j).Value = Range("N" & j).Value + scoreB
            Range("O" & j).Value = (Range("M" & j).Value - Range("N" & j).Value)
            Range("Q" & j).Value = (Range("M" & j).Value - Range("N" & j).Value) / Range("I" & j).Value
        End If

        ' Mise à jour des données pour l'équipe B
        If Range("H" & j).Value = equipeB Then
            Range("I" & j).Value = Range("I" & j).Value + 1
            If scoreB > scoreA Then
                Range("J" & j).Value = Range("J" & j).Value + 1
                Range("L" & j).Value = Range("L" & j).Value + 2
            ElseIf scoreB < scoreA Then
                Range("K" & j).Value = Range("K" & j).Value + 1
                If scoreB = 0 And scoreA = 20 Then
                    Range("L" & j).Value = Range("L" & j).Value + 0
                    Range("P" & j).Value = Range("P" & j).Value + 1
                Else
                    Range("L" & j).Value = Range("L" & j).Value + 1
                End If
            End If
            Range("M" & j).Value = Range("M" & j).Value + scoreB
            Range("N" & j).Value = Range("N" & j).Value + scoreA
        Range("O" & j).Value = (Range("M" & j).Value - Range("N" & j).Value)
        Range("Q" & j).Value = (Range("M" & j).Value - Range("N" & j).Value) / Range("I" & j).Value
        End If
    Next j
Next i

'Tri du classement
Range("L5:Q12").Sort Key1:=Range("L5:L12"), Order1:=xlDescending, _
key2:=Range("Q5:Q12"), order2:=xlDescending, Header:=xlNo

End Sub
 
Solution
P
En faite la fonction Split ne va pas pouvoir traiter une chaîne vide et causera une erreur d'exécution. Il fallait avant tout vérifier si la cellule est vide avant d'utiliser la fonction Split.

Merci beaucoup à tous 🙂

VB: 
Sub classement()

Dim i As Integer
Dim j As Integer
Dim equipeA As String
Dim equipeB As String
Dim resultat As String
Dim scoreA As Integer
Dim scoreB As Integer

' Remise à zéro du tableau
Range("I5:Q12").Value = 0

' Boucle pour parcourir toutes les rencontres
For i = 5 To 60
   
    ' Vérifier si la cellule C contient une valeur
    If Not IsEmpty(Range("C" & i).Value) Then
       
        ' Récupération des noms des équipes et du résultat
        equipeA = Split(Range("C" & i).Value, " vs. ")(0)
        equipeB...
Trier par date Trier par votes
Bonjour, le calcul bloque car VBA ne peut pas évaluer la formule
Code: 
equipeA = Split(Range("C" & i).Value, " vs. ")(0)
et toutes celles du même type lorsque Range("C" & i).Value est vide.
Essayez ceci :
VB: 
Sub classement()

Dim i As Integer
Dim j As Integer
Dim equipeA As String
Dim equipeB As String
Dim resultat As String
Dim scoreA As Integer
Dim scoreB As Integer

' Remise à zéro du tableau
Range("I5:Q12").Value = 0

' Boucle pour parcourir toutes les rencontres
For i = 5 To 60

' Récupération des noms des équipes et du résultat
    equipeA = IIf(IsError(Split(Range("C" & i).Value, " vs. ")(0)), "match incomplet", Split(Range("C" & i).Value, " vs. ")(0))  '<=== si une seule cellule matchs (C) est vide
    equipeB = IIf(IsError(Split(Range("C" & i).Value, " vs. ")(1)), "match incomplet", Split(Range("C" & i).Value, " vs. ")(1))
    resultat = Range("D" & i).Value
    scoreA = IIf(IsError(Split(resultat, "-")(0)), "score incomplet", Split(resultat, "-")(0))  '<=== si une seule cellule scores (D) est vide
    scoreB = IIf(IsError(Split(resultat, "-")(1)), "score incomplet", Split(resultat, "-")(1))

    ' Boucle pour parcourir toutes les équipes
    For j = 5 To 12
    
        ' Mise à jour des données pour l'équipe A
        If Range("H" & j).Value = equipeA Then
            Range("I" & j).Value = Range("I" & j).Value + 1
            If scoreA > scoreB Then
                Range("J" & j).Value = Range("J" & j).Value + 1
                Range("L" & j).Value = Range("L" & j).Value + 2
            ElseIf scoreA < scoreB Then
                Range("K" & j).Value = Range("K" & j).Value + 1
                If scoreA = 0 And scoreB = 20 Then
                    Range("L" & j).Value = Range("L" & j).Value + 0
                    Range("P" & j).Value = Range("P" & j).Value + 1
                Else
                    Range("L" & j).Value = Range("L" & j).Value + 1
                End If
            End If
            Range("M" & j).Value = Range("M" & j).Value + scoreA
            Range("N" & j).Value = Range("N" & j).Value + scoreB
            Range("O" & j).Value = (Range("M" & j).Value - Range("N" & j).Value)
            Range("Q" & j).Value = (Range("M" & j).Value - Range("N" & j).Value) / Range("I" & j).Value
        End If

        ' Mise à jour des données pour l'équipe B
        If Range("H" & j).Value = equipeB Then
            Range("I" & j).Value = Range("I" & j).Value + 1
            If scoreB > scoreA Then
                Range("J" & j).Value = Range("J" & j).Value + 1
                Range("L" & j).Value = Range("L" & j).Value + 2
            ElseIf scoreB < scoreA Then
                Range("K" & j).Value = Range("K" & j).Value + 1
                If scoreB = 0 And scoreA = 20 Then
                    Range("L" & j).Value = Range("L" & j).Value + 0
                    Range("P" & j).Value = Range("P" & j).Value + 1
                Else
                    Range("L" & j).Value = Range("L" & j).Value + 1
                End If
            End If
            Range("M" & j).Value = Range("M" & j).Value + scoreB
            Range("N" & j).Value = Range("N" & j).Value + scoreA
        Range("O" & j).Value = (Range("M" & j).Value - Range("N" & j).Value)
        Range("Q" & j).Value = (Range("M" & j).Value - Range("N" & j).Value) / Range("I" & j).Value
        End If
    Next j
Next i

'Tri du classement
Range("L5:Q12").Sort Key1:=Range("L5:L12"), Order1:=xlDescending, _
key2:=Range("Q5:Q12"), order2:=xlDescending, Header:=xlNo

End Sub
Cordialement,
 
Vote positif 0 Vote négatif
Gégé-45550 à dit:
Bonjour, le calcul bloque car VBA ne peut pas évaluer la formule
Code: 
equipeA = Split(Range("C" & i).Value, " vs. ")(0)
et toutes celles du même type lorsque Range("C" & i).Value est vide.
Essayez ceci :
VB: 
Sub classement()

Dim i As Integer
Dim j As Integer
Dim equipeA As String
Dim equipeB As String
Dim resultat As String
Dim scoreA As Integer
Dim scoreB As Integer

' Remise à zéro du tableau
Range("I5:Q12").Value = 0

' Boucle pour parcourir toutes les rencontres
For i = 5 To 60

' Récupération des noms des équipes et du résultat
    equipeA = IIf(IsError(Split(Range("C" & i).Value, " vs. ")(0)), "match incomplet", Split(Range("C" & i).Value, " vs. ")(0))  '<=== si une seule cellule matchs (C) est vide
    equipeB = IIf(IsError(Split(Range("C" & i).Value, " vs. ")(1)), "match incomplet", Split(Range("C" & i).Value, " vs. ")(1))
    resultat = Range("D" & i).Value
    scoreA = IIf(IsError(Split(resultat, "-")(0)), "score incomplet", Split(resultat, "-")(0))  '<=== si une seule cellule scores (D) est vide
    scoreB = IIf(IsError(Split(resultat, "-")(1)), "score incomplet", Split(resultat, "-")(1))

    ' Boucle pour parcourir toutes les équipes
    For j = 5 To 12
  
        ' Mise à jour des données pour l'équipe A
        If Range("H" & j).Value = equipeA Then
            Range("I" & j).Value = Range("I" & j).Value + 1
            If scoreA > scoreB Then
                Range("J" & j).Value = Range("J" & j).Value + 1
                Range("L" & j).Value = Range("L" & j).Value + 2
            ElseIf scoreA < scoreB Then
                Range("K" & j).Value = Range("K" & j).Value + 1
                If scoreA = 0 And scoreB = 20 Then
                    Range("L" & j).Value = Range("L" & j).Value + 0
                    Range("P" & j).Value = Range("P" & j).Value + 1
                Else
                    Range("L" & j).Value = Range("L" & j).Value + 1
                End If
            End If
            Range("M" & j).Value = Range("M" & j).Value + scoreA
            Range("N" & j).Value = Range("N" & j).Value + scoreB
            Range("O" & j).Value = (Range("M" & j).Value - Range("N" & j).Value)
            Range("Q" & j).Value = (Range("M" & j).Value - Range("N" & j).Value) / Range("I" & j).Value
        End If

        ' Mise à jour des données pour l'équipe B
        If Range("H" & j).Value = equipeB Then
            Range("I" & j).Value = Range("I" & j).Value + 1
            If scoreB > scoreA Then
                Range("J" & j).Value = Range("J" & j).Value + 1
                Range("L" & j).Value = Range("L" & j).Value + 2
            ElseIf scoreB < scoreA Then
                Range("K" & j).Value = Range("K" & j).Value + 1
                If scoreB = 0 And scoreA = 20 Then
                    Range("L" & j).Value = Range("L" & j).Value + 0
                    Range("P" & j).Value = Range("P" & j).Value + 1
                Else
                    Range("L" & j).Value = Range("L" & j).Value + 1
                End If
            End If
            Range("M" & j).Value = Range("M" & j).Value + scoreB
            Range("N" & j).Value = Range("N" & j).Value + scoreA
        Range("O" & j).Value = (Range("M" & j).Value - Range("N" & j).Value)
        Range("Q" & j).Value = (Range("M" & j).Value - Range("N" & j).Value) / Range("I" & j).Value
        End If
    Next j
Next i

'Tri du classement
Range("L5:Q12").Sort Key1:=Range("L5:L12"), Order1:=xlDescending, _
key2:=Range("Q5:Q12"), order2:=xlDescending, Header:=xlNo

End Sub
Cordialement,
Cliquez pour agrandir...
Bonjour Gégé,
Merci d'avoir pris le temps pour regarder et répondre à ma sollicitation.
Malheureusement ça ne passe pas, il affiche le même message d'erreur.

Je mets le fichier pour faciliter l'analyse.
Merci encore
 

Pièces jointes

Vote positif 0 Vote négatif
En faite la fonction Split ne va pas pouvoir traiter une chaîne vide et causera une erreur d'exécution. Il fallait avant tout vérifier si la cellule est vide avant d'utiliser la fonction Split.

Merci beaucoup à tous 🙂

VB: 
Sub classement()

Dim i As Integer
Dim j As Integer
Dim equipeA As String
Dim equipeB As String
Dim resultat As String
Dim scoreA As Integer
Dim scoreB As Integer

' Remise à zéro du tableau
Range("I5:Q12").Value = 0

' Boucle pour parcourir toutes les rencontres
For i = 5 To 60
   
    ' Vérifier si la cellule C contient une valeur
    If Not IsEmpty(Range("C" & i).Value) Then
       
        ' Récupération des noms des équipes et du résultat
        equipeA = Split(Range("C" & i).Value, " vs. ")(0)
        equipeB = Split(Range("C" & i).Value, " vs. ")(1)
    Else
        ' Si la cellule C est vide, passer à l'itération suivante
        Exit For
    End If
    If Not IsEmpty(Range("D" & i).Value) Then
        resultat = Range("D" & i).Value
        scoreA = Split(resultat, "-")(0)
        scoreB = Split(resultat, "-")(1)
    Else
        ' Si la cellule D est vide, passer à l'itération suivante
        Exit For
    End If


    ' Boucle pour parcourir toutes les équipes
    For j = 5 To 12
   
        ' Mise à jour des données pour l'équipe A
        If Range("H" & j).Value = equipeA Then
            Range("I" & j).Value = Range("I" & j).Value + 1
            If scoreA > scoreB Then
                Range("J" & j).Value = Range("J" & j).Value + 1
                Range("L" & j).Value = Range("L" & j).Value + 2
            ElseIf scoreA < scoreB Then
                Range("K" & j).Value = Range("K" & j).Value + 1
                If scoreA = 0 And scoreB = 20 Then
                    Range("L" & j).Value = Range("L" & j).Value + 0
                    Range("P" & j).Value = Range("P" & j).Value + 1
                Else
                    Range("L" & j).Value = Range("L" & j).Value + 1
                End If
            End If
            Range("M" & j).Value = Range("M" & j).Value + scoreA
            Range("N" & j).Value = Range("N" & j).Value + scoreB
            Range("O" & j).Value = (Range("M" & j).Value - Range("N" & j).Value)
            Range("Q" & j).Value = (Range("M" & j).Value - Range("N" & j).Value) / Range("I" & j).Value
        End If

        ' Mise à jour des données pour l'équipe B
        If Range("H" & j).Value = equipeB Then
            Range("I" & j).Value = Range("I" & j).Value + 1
            If scoreB > scoreA Then
                Range("J" & j).Value = Range("J" & j).Value + 1
                Range("L" & j).Value = Range("L" & j).Value + 2
            ElseIf scoreB < scoreA Then
                Range("K" & j).Value = Range("K" & j).Value + 1
                If scoreB = 0 And scoreA = 20 Then
                    Range("L" & j).Value = Range("L" & j).Value + 0
                    Range("P" & j).Value = Range("P" & j).Value + 1
                Else
                    Range("L" & j).Value = Range("L" & j).Value + 1
                End If
            End If
            Range("M" & j).Value = Range("M" & j).Value + scoreB
            Range("N" & j).Value = Range("N" & j).Value + scoreA
        Range("O" & j).Value = (Range("M" & j).Value - Range("N" & j).Value)
        Range("Q" & j).Value = (Range("M" & j).Value - Range("N" & j).Value) / Range("I" & j).Value
        End If
    Next j
Next i

'Tri du classement
Range("L5:Q12").Sort Key1:=Range("L5:L12"), Order1:=xlDescending, _
key2:=Range("Q5:Q12"), order2:=xlDescending, Header:=xlNo
 
Vote positif 0 Vote négatif
Solution
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

F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
571
kiki29
kiki29
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
269
jp26200
J
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
699
TooFatBoy
TooFatBoy
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
954
tnion
T
lestoiles1
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
329
lestoiles1
lestoiles1
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
240
nabilexcel2007
N
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
611
Piment
P
P
  • Question Question
XL 2019 VBA Erreur d'exécution "9" dans une plage de tableau
Réponses
2
Affichages
549
piskely
P
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
505
un internaute
U
A
  • Résolu(e)
XL 2019 Remplacer un mot et ajouter une couleur
Réponses
7
Affichages
512
Attila451
A
pascal21
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
265
job75
job75
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
802
GClaire
G
PORCHER
  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
217
PORCHER
PORCHER
Nicolas JACQUIN
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
N
  • Question Question
Listbox click
Réponses
10
Affichages
524
ChTi160
ChTi160
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
370
CDALE
C
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
419
patricko-13
P
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
647
thunder23
thunder23
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
Retour