Incompatibilité de type
Résolu
DGVDR
Messages postés
164
Statut
Membre
-
G_33 -
G_33 -
Bonjour,
Petit problème de pose de variable (je pense) dont je ne trouve pas la solution,
Mon code :
C'est ma variable n qui pose problème, cette variable reçoit la différence entre deux dates.
Si michel_m passe par là, tu remarqueras que j'utilises ton code, encore une fois merci.
Merci,
DGVDR
Petit problème de pose de variable (je pense) dont je ne trouve pas la solution,
Mon code :
Sub MTBF()
Dim l As Integer 'variable recherche d'intervention'
Dim m As Integer ' variable machines'
Dim n As Long 'variable incrémentante'
Dim Nbre As Integer 'Nombre de fois qu'on a une intervention
With Worksheets("Enregistrements interventions")
For m = 5 To 20
Machine = Worksheets("Global").Range("V" & m)
Nbre = Worksheets("Enregistrements interventions").Application.CountIf(.Range("C5:C300"), Machine)
For l = 5 To 500
If Worksheets("Enregistrements interventions").Range("C" & l) = Machine And Worksheets("Enregistrements interventions").Range("C" & l + 1) = Machine Then
n = Worksheets("Enregistrements interventions").Range("C" & l + 1) - Worksheets("Enregistrements interventions").Range("C" & l)
ElseIf Worksheets("Enregistrements interventions").Range("C" & l) = Machine And Worksheets("Enregistrements interventions").Range("C" & l + 1) <> Machine Then
End If
Next
Worksheets("Global").Range("W" & m) = n / (Nbre - 1)
Next
End With
End Sub
C'est ma variable n qui pose problème, cette variable reçoit la différence entre deux dates.
Si michel_m passe par là, tu remarqueras que j'utilises ton code, encore une fois merci.
Merci,
DGVDR
A voir également:
- Incompatibilité de type
- Clear type - Guide
- Type de ram - Guide
- Comment changer le type de fichier - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Faiblesse type spectre ✓ - Forum Jeux vidéo
6 réponses
Bonjour
La question est peut-être bête, mais les cellules concernées contiennent-elles bien toutes les 2 des valeurs numériques ?
La question est peut-être bête, mais les cellules concernées contiennent-elles bien toutes les 2 des valeurs numériques ?
Bonjour,
quel est exactement le problème (message d'erreur, résultat obtenu ne correspondant pas à un résultat souhaité...) ?
Cordialement.
quel est exactement le problème (message d'erreur, résultat obtenu ne correspondant pas à un résultat souhaité...) ?
Cordialement.
Bonjour à vous
Merci à vous deux pour ces réponses,
le problème persiste même avec une déclaration en "Date"
j'obtiens une erreur d'éxécution '13' : Incompatibilité de type.
Des idées?
DGVDR
Merci à vous deux pour ces réponses,
le problème persiste même avec une déclaration en "Date"
j'obtiens une erreur d'éxécution '13' : Incompatibilité de type.
Des idées?
DGVDR
Merci G_33 pour cette nouvelle réponse,
Cependant le problème persiste.
Il semble que c'est vraiment la ligne :
n = Worksheets("Enregistrements interventions").Range("C" & l + 1) - Worksheets("Enregistrements interventions").Range("C" & l)
Qui pose problème par une" incompatibilité de type."
Cependant le problème persiste.
Il semble que c'est vraiment la ligne :
n = Worksheets("Enregistrements interventions").Range("C" & l + 1) - Worksheets("Enregistrements interventions").Range("C" & l)
Qui pose problème par une" incompatibilité de type."
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
G_33,
Merci de nouveau pour cette réponse,
non je n'ai pas d'espace.
Merci de nouveau pour cette réponse,
non je n'ai pas d'espace.
je ne vois pas trop
mais essaie ça
Dim madate As Date
Dim madate_2 As Date
debut de ton code
If Worksheets("Enregistrements interventions").Range("C" & l) = Machine And Worksheets("Enregistrements interventions").Range("C" & l + 1) = Machine Then
madate = CDate(Worksheets("Enregistrements interventions").Range("C" & l))
madate_2 = CDate(Worksheets("Enregistrements interventions").Range("C" & l + 1))
n = madate_2 - madate
suite de ton code
mais essaie ça
Dim madate As Date
Dim madate_2 As Date
debut de ton code
If Worksheets("Enregistrements interventions").Range("C" & l) = Machine And Worksheets("Enregistrements interventions").Range("C" & l + 1) = Machine Then
madate = CDate(Worksheets("Enregistrements interventions").Range("C" & l))
madate_2 = CDate(Worksheets("Enregistrements interventions").Range("C" & l + 1))
n = madate_2 - madate
suite de ton code