Incompatibilité de type
Résolu
DGVDR
Messages postés
158
Date d'inscription
Statut
Membre
Dernière intervention
-
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
- Click-n-type - Télécharger - Vie quotidienne
- Type de partition secteur de démarrage principal ✓ - Forum Disque dur / SSD
- Types de souris informatique - Guide
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 ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
