Code sans bug mais ne donne pas de résultats
Résolu
monalisach
-
monalisach -
monalisach -
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
A voir également:
- Code sans bug mais ne donne pas de résultats
- Code ascii - Guide
- Resultats foot - Télécharger - Vie quotidienne
- Code de déverrouillage oublié - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
5 réponses
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
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
Bonjour,
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.
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.
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
Cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question