Code sans bug mais ne donne pas de résultats
Résolu
Bonjour,
mon code ne fais pas de beugue mais au meme temps ne fonctionne pas j'arrive pas à voir l'erreur dans ces lignes
Dim i As Integer
For i = 2 To 265
If Cells(i, 14) < 30 Then
Cells(i, 15) = 1
ElseIf Cells(i, 15) < 60 And Cells(i, 15) >= 31 Then
Cells(i, 15) = 2
ElseIf Cells(i, 15) < 90 And Cells(i, 15) >= 61 Then
Cells(i, 15) = 3
3
Else
Exit Sub
End If
Next
merci de votre aide
mon code ne fais pas de beugue mais au meme temps ne fonctionne pas j'arrive pas à voir l'erreur dans ces lignes
Dim i As Integer
For i = 2 To 265
If Cells(i, 14) < 30 Then
Cells(i, 15) = 1
ElseIf Cells(i, 15) < 60 And Cells(i, 15) >= 31 Then
Cells(i, 15) = 2
ElseIf Cells(i, 15) < 90 And Cells(i, 15) >= 61 Then
Cells(i, 15) = 3
3
Else
Exit Sub
End If
Next
merci de votre aide
5 réponses
-
C'est bon merci beaucoup j'avais pas modifier tout le code maintenant ça fonctionne très bien .
Merci de votre aide . -
Je suis désolée, je pense que j'ai marqué que c'était résolu par erreur en fait ma macro n'affiche toujours rien
Cordialement -
bonjour,
ça ne marche tjrs pas
CRDLT -
ContributeurBonjour,
tu commences ton premier test sur N1, puis les Else se font sur la cellule O1.
C'est pour ça que ça ne fonctionne pas.
Cordialement.
-
Bonjour
Ce ne serait pas simplement :
ElseIf Cells(i, 14) < 60 And Cells(i, 14) >= 31 Then
Cells(i, 15) = 2
ElseIf Cells(i, 14) < 90 And Cells(i, 14) >= 61 Then
Cells(i, 15) = 3
?
Cdlmnt
