Code sans bug mais ne donne pas de résultats

Résolu/Fermé

monalisach - 19 févr. 2013 à 16:17
monalisach - 19 févr. 2013 à 17:12

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

A voir également:

Code sans bug mais ne donne pas de résultats
Bug yahoo mail - Accueil - Mail
Code ascii de a - Guide
Débloquer carte sim sans code puk - Guide
Code de déverrouillage oublié - Guide
Code activation windows 10 - Guide

5 réponses

Réponse 1 / 5

via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
19 févr. 2013 à 16:30

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

Réponse 2 / 5

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
19 févr. 2013 à 16:31

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.

Réponse 3 / 5

monalisach
19 févr. 2013 à 16:38

bonjour,
ça ne marche tjrs pas
CRDLT

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
19 févr. 2013 à 16:46

Alors, ça marche ou ça marche pas ?

C'est bien de savoir utiliser le bouton pour marquer le message en résolu, mais il serait bien d'écrire un petit mot pour remercier les intervenants...

Réponse 4 / 5

monalisach
19 févr. 2013 à 16:50

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

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
19 févr. 2013 à 16:53

Peux-tu nous envoyer le fichier via cjoint.com ?

Cordialement.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

monalisach
19 févr. 2013 à 17:12

C'est bon merci beaucoup j'avais pas modifier tout le code maintenant ça fonctionne très bien .
Merci de votre aide .

Discussions similaires

Iptv beug

Jeu avec réponses à donner

Problème IPTV SMARTER

Code de confirmation facebook

Récupérer un résultat selon la date d'aujourd'hui