probleme de msgbox dans une boucle

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : probleme de msgbox dans une boucle

izekiel06

XVA what else?

Bonjour,

J'ai un petit probleme sur le code suivant

Quand il y a une erreur sur le vlookup le msgbox apparait plusieurs fois pour le meme range

Quelqu'un aurait une petite idée de l'erreur?

Merci d'avance

Code :

Sub vlookup()
Dim i As Integer
Dim j As Integer
Dim dernlign As Integer, dernlign2 As Integer
dernlign = Sheets("x" ).Range("b" & Rows.Count).End(xlUp).Row
dernlign2 = Sheets("y" ).Range("q" & Rows.Count).End(xlUp).Row
Sheets("Extraction" ).Activate
For i = 2 To dernlign
For j = i To dernlign2
Range("R" & j).Value = Application.vlookup(ThisWorkbook.Sheets("x" ).Range("b" & j), ThisWorkbook.Sheets("y" ).Range("L4:P" & dernlign), 1, False)
If IsError(Range("R" & j)) Then
MsgBox "Attention la ligne " & Range("R" & j).Address(0, 0) & " n'est pas dans Split year 2015"
Range("R" & j).Interior.ColorIndex = 6
End If
Next
Next
End Sub

Message édité par izekiel06 le 14-04-2015 à 09:12:25

Publicité

Marc L

Bonjour,

en fait la ligne n° … Ah zut, le code n'a pas été balisé ! Voir les règles du forum et il y a pourtant une icône dans l'éditeur …

Il n'y a pas d'erreur si ce n'est un problème de conception : si le message est dans une boucle,
il s'affichera autant de fois que la condition est vraie !

________________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

Message cité 1 fois

izekiel06

XVA what else?

Marc L a écrit :

Autant pour moi, j'ai édité le code.

Je me suis mal exprimé, effectivement le probleme vient de la conception du code ma question de base aurait du etre: quelqu'un pour m'aider a modifier mon code pour que le msgbox ne s'affiche que 1 fois par ligne detecter?

Merci d'avance

Marc L

La ligne n° … Et non, code toujours pas balisé comme il se doit, c'est pourtant expliqué dans les règles du forum
et il y a même une icône dédiée dans l'éditeur ! Exemple de code balisé …

Bref, soit l'instruction doit être située en dehors de la boucle soit sortir de la procédure après le message via Exit Sub …

Message cité 1 fois

izekiel06

XVA what else?

Marc L a écrit :

Merci ca marche trés bien!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

probleme de msgbox dans une boucle

Sujets relatifs
Probleme amélioration programme	Problème avec le Voice Codec Board Eblocks
problème de syntaxe	Problème slider
Boucle while avec fwrite	Tkinter-Problème pour récupérer les valeurs
[résolu][sqlserver-managementstudio]plus de touches de contrôle	[EXCEL] problème avec SendKeys pour envoyer un pipe "\|" vers Putty
Problème pour enlever le GRAS du texte	Le bouton apparait 2 fois ! Problème dans le code !
Plus de sujets relatifs à : probleme de msgbox dans une boucle

Page générée en 0.068 secondes