erreur d'execution 6 dépassement de capacité

  • Initiateur de la discussion Initiateur de la discussion solgti
  • 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 !

solgti

XLDnaute Junior
Bonjour j'ai trouvé plusieurs discussion concernant mon problème, mais je n'ai pas trouvé la réponse
Je veux utiliser la valeur d'une cellule "POURCHARGE" et l'utiliser dans un calcul.
La fonction trouve la valeur (je l'affiche avec MsgBox), mais plante au calcul avec le message:
erreur d'execution 6 dépassement de capacité
Le code est:

Code:
Sub PlanifPrevue()
    Dim ProdDuJour As Integer
    Dim Capacite As Integer
    Dim QteRestante As Integer
    Dim AFaire As Integer
    Dim PourCharge As Long
    Dim Cellule As String
    ProdDuJour = ActiveCell.Value
    Cellule = Cells(ActiveCell.Row, 4).Value
    PourCharge = Worksheets("CelluleV3").Columns(2).Find(what:=Cellule, LookAt:=xlWhole).Offset(0, 9).Value
    MsgBox PourCharge
    Capacite = Cells(ActiveCell.Row, 5).Value * PourCharge
    QteRestante = Cells(ActiveCell.Row, 3).Value
    If ProdDuJour < Capacite + 1 Then
        If (Capacite - ProdDuJour) < QteRestante Then
        AFaire = (Capacite - ProdDuJour)
        Else: AFaire = QteRestante
        End If
    End If
'    MsgBox "Jour: " & Weekday(Cells(7, ActiveCell.Column).Value)
    Worksheets("Planifiée").Cells(ActiveCell.Row, ActiveCell.Column).Value = AFaire
End Sub

Est-ce que quelqu'un aurait une explication SVP?
Merci
 
Re : erreur d'execution 6 dépassement de capacité

Bonjour
A priori une variable mal définie
capacité = pourcharge*un truc
pourcharge est défini en long mais capacité en integer
tout dépend des valeurs possibles pour tes variables. Pour vérifier si le pb vient de la commence par toutes les déclarer as variant
 
- 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
4
Affichages
177
Réponses
4
Affichages
548
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
162
Réponses
2
Affichages
153
Retour