Bonjour à tous, je cale un peu sur une macro que j'ai écrite comme suit :
Sub test()
Dim lig As Integer, col As Integer
For lig = 2 To 200
For col = 4 To 56
If Cells(lig, col).Value + Cells(lig, (col - 1)).Value >= 70 Then
MsgBox "Attention, Cycle de 70 heures dépassé à la cellule " & Cells(lig, col).Address
End If
Next col
Next lig
End Sub
Le probleme est qu'arrivé à la ligne if, j'ai un message d'erreur incompatibilité de type.
1 : est ce que ma formule est bonne avec le +
2. dois je mettre en integer sachant que les valeur de mes cellulles sont en décimale.
Merci pour votre aide je dois rendre ça pour cet après midi
Sub test()
Dim lig As Integer, col As Integer
For lig = 2 To 200
For col = 4 To 56
If Cells(lig, col).Value + Cells(lig, (col - 1)).Value >= 70 Then
MsgBox "Attention, Cycle de 70 heures dépassé à la cellule " & Cells(lig, col).Address
End If
Next col
Next lig
End Sub
Le probleme est qu'arrivé à la ligne if, j'ai un message d'erreur incompatibilité de type.
1 : est ce que ma formule est bonne avec le +
2. dois je mettre en integer sachant que les valeur de mes cellulles sont en décimale.
Merci pour votre aide je dois rendre ça pour cet après midi