Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Probleme boucle while

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion niwiz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

niwiz

Guest
Bonjour,

J'ai un p'tit probleme avec une boucle while qui semble ne pas vouloir s'arreter

Code: 
dateDebutP = Format(DateSerial(Year(Date), Month(Date) - 5, 1), "dd/mm/yyyy")

 a = 7
        While Format(Cells(3, a).Value, "dd/mm/yyyy") <> dateDebutP Or a <= 18
            Cells(3, a).Interior.ColorIndex = 51
            a = a + 1
        Wend

Ici a va jusqu'a 16385 alors qu'il est censé s'arreter au pire a 18.
De plus normalement on retrouve "dateDebutP" dans une des cellules, mais il ne reconnait pas

quelqu'un aurait une piste (comptatibilité , synthaxe,..)

merci d'avance
 
Trier par date Trier par votes
Re : Probleme boucle while

Bonjour niwiz,

Pour ce qui est de la date non reconnue, sans fichier exemple, difficxile de t'aider. Par contre pour la boucle, essaie de remplacer le "Or" par un "And" et normalement la boucle s'arrêtera à la ligne 18.

A+
 
Vote positif 0 Vote négatif
Re : Probleme boucle while

j'ai changé un peut le code mais j'ai toujours un problème, cette fois il ne met pas en forme toutes les dates (aout a dec). Pour le code "01/08/2011" et supérieur a "01/05/2012"


merci d'avance
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Probleme boucle while

salut

et ainSi...(comparaison de nombres, pas de textes)
Code: 
Sub Bouton1_Cliquer()
  dateDebutP = CDate(Format(DateSerial(Year(Date), Month(Date) - 5, 1), "dd/mm/yyyy"))
  For b = 7 To 18
    If CDate(Format(Cells(4, b).Value, "dd/mm/yyyy")) < dateDebutP Then
      Cells(4, b).Interior.ColorIndex = 34
    End If
  Next
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
699
vgendron
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
910
TooFatBoy
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
797
Phil69970
A
  • Résolu(e)
XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox
Réponses
3
Affichages
713
Aldonanou
A
J
  • Résolu(e)
Microsoft 365 Textbox et format date
Réponses
3
Affichages
675
JBL07
J
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
U
  • Question Question
Autres {RÉSOLU] Problème macro
Réponses
2
Affichages
819
un internaute
U
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
J
  • Question Question
XL 2016 Saisir des données dans une feuille non active
Réponses
7
Affichages
1 K
Julieneymery
J
E
  • Question Question
Microsoft 365 Ecrire une date en fonction d'une recherche (vba)
Réponses
2
Affichages
1 K
Eisu
E
D
  • Question Question
XL 2019 VBA - code formatage date
Réponses
1
Affichages
838
sylvanu
S
  • Question Question
XL 2016 Optimiser et revoir une boucle
Réponses
1
Affichages
1 K
Diurnambul
D
V
  • Résolu(e)
XL 2016 Format de date sous vba
Réponses
3
Affichages
2 K
vanin
V
N
  • Question Question
Autres Envoi mail automatique (suivant numéro de la semaine)
Réponses
2
Affichages
2 K
Nikoko
N
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
I
  • Question Question
XL 2010 Boucle while Not ... Wend avec condition vraie
Réponses
3
Affichages
969
Izbeul
I
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
C
  • Question Question
XL 2010 Boucle copie avec while et if
Réponses
4
Affichages
918
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…