msgbox un peu trop presente

M

marabbeh

Guest

• 9 Mai 2003

• #2

Ne serait-ce pas un problème de comparaison de valeurs String au lieu de valeurs Integer ? qui fait que 10 est < à 2. Essaye avec Val(X) < Val(Y) pour voir...

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 9 Mai 2003

• #3

Bonjour Bracq et re Marabbeh

Humm ptet tu veux faire ceci :

Dim msg as STring
Dim i As Integer
For i=1 To 1204
If Sheets("Tabelle1").Cells(i, 8).Value < UserForm1.TextBox13.Value Then
msg = msg & Sheets("Tabelle1").Cells(i, 8).Address & VbCRlf
Exit Sub
End If
Next i

MsgBox ("The webbing radius is smaller than the spindle radius ;" _
& Vbcrlf & "Check following cells : " & Vbcrlf & msg )

Bonne Journée (TGF !!!)
@+Thierry

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 9 Mai 2003

• #4

c'est re-moi !

on peut aussi faire ceci pour fignoler


Dim msg as STring
Dim i As Integer
For i=1 To 1204
If Sheets("Tabelle1").Cells(i, 8).Value < UserForm1.TextBox13.Value Then
msg = msg & Sheets("Tabelle1").Cells(i, 8).Address & VbCRlf
Exit Sub
End If
Next i

If msg <> "" Then
MsgBox ("The webbing radius is smaller than the spindle radius ;" _
& Vbcrlf & "Check following cells : " & Vbcrlf & msg )
End If


@+Thierry

 

Vote positif 0 Vote négatif

B

bracq

Guest

• 9 Mai 2003

• #5

salut Thierry et marrabeh,

Concernant le post de marrabeh, j crois comparer deux entites similaires:
Sheets("Tabelle1").Cells(i, 8).Value < UserForm1.TextBox13.Value. En effet, les valeurs a l interieur de mes cellules et de mon textbox sont de meme nature (enfin j crois)...

Concernant les posts de Thierry (j te remercie encore... c jure j mets ton nom dans les commentaires de mon prog -),
le prog continue a n en faire qu a sa tete: j ai essaye plusieurs endroits ou inserer mon test:

1-soit a la fin du calcul de chaque valeur--> il plante a la premiere ligne.
2- soit a la fin de la creation de ma colonne (une fois fait les calculs dans ma colonne, j viens tester chaque valeur de chaque ligne)--> il plante aussi.

et dans les 2 cas l affichage de msgbox ne se fait plus....
a++ et encore merci pour vos reponses

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 9 Mai 2003

• #6

Re Bracq et Marabbeh et le Forum

Heuh... je ne comprends plus ? Tu parles de quel test là ?

Dans ton post précédent, il semblait que ton problème venait du fait que la MsgBox devait s'afficher autant de fois que Sheets("Tabelle1").Cells(i, 8).Value < UserForm1.TextBox13.Value ...

Donc je t'ai juste aiguillé pour récupérer les adresses de Cells en question dans une string pour un affichage d'une unique MesBox en fin de procédure...

Mais là je ne te suis plus ? "le prog continue a n en faire qu a sa tete: j ai essaye plusieurs endroits ou inserer mon test" de quel test parles-tu sacré vingt Dieu !! lol

Si le test marchait avant il devrait toujours fonctionner... M' enfin !!

...@Suivre...
@+Thierry

 

Vote positif 0 Vote négatif

B

bracq

Guest

• 9 Mai 2003

• #7

Re Thierry et Marabbeh et le Forum,

Non mon test doit detecter que des que ("Tabelle1").Cells(i, 8).Value < UserForm1.TextBox13.Value ... alors j ai une msgbox qui s affiche et la sortie du prog; d ailleurs le pb vient surement de la? peut etre que l instruction if n est pas la + judicieuse dans ce cas la?

affaire a suivre...

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 9 Mai 2003

• #8

Re

Oui alors dans ce cas c'est comme t'a dit Marabbeh, c'est sûrement dû aux valeurs qui sont dans cette colonne 8 et de ce qu'il y a dans la TextBox13...

Il y a quoi ?

...@Suivre...
@+Thierry

 

Vote positif 0 Vote négatif

B

bracq

Guest

• 9 Mai 2003

• #9

et bien dans ma colonne 8 il y a des nombres allant de 0,028 a environ 0,018 (decroissant de la ligne 1 a la ligne 1200)et dans mon textbox il y a un nombre que l utilisateur ecrit. Pour le test j avais pris 2 valeurs differentes 0,015 pour que la msgbox ne s affiche pas et 0,025 pour qu elle s affiche.


mais comme j ai mis dans un post precedent, les entites sont de memes natures, non?
Sheets("Tabelle1").Cells(i, 8).Value < UserForm1.TextBox13.Value

on compare bien deux valeurs, me semble-t-il?

en tout les cas affaire a suivre...

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 9 Mai 2003

• #10

Re Bracq

Juste comme ça vite fait avnat d'aller déjeuner...

Essaie ceci :

If CDbl(Sheets("Tabelle1").Cells(i, 8).Value) < CDbl(UserForm1.TextBox13.Value) Then


...

Ptet que....
@+Thierry

 

Vote positif 0 Vote négatif

B

bracq

Guest

• 9 Mai 2003

• #11

et bien merci encore une fois Thierry et marabbeh pour votre perspicacite et votre talent... ca fonctionne.... des qu il detecte une valeur inferieure a celle de la textbox il me sort du prog....

bracq correspondant francais en allemagne pour excel-download -

 

Vote positif 0 Vote négatif