un truc qui coince

Hervé

XLDnaute Barbatruc

• 25 Février 2005

• #2

Bonjour

essaye un truc du style

range('k33') < > '' then

les signes (inférieur, supérieur) signifie différent, donc : si la cellule K33 est différent de vide....


Salut
Hervé

Message édité par: Hervé, à: 25/02/2005 12:14

Message édité par: Hervé, à: 25/02/2005 12:14

 

Vote positif 0 Vote négatif

C

cutbill1234

Guest

• 25 Février 2005

• #3

Bonjour Hervé,

Hélas cela ne marche pas non plus avec ta méthode. Mais le problème vient peut être d'ailleurs :

Private Sub CommandButton1_Click()
UserForm1.Hide
If Range('H2,I2,K33') = '' Then
returnValue = MsgBox(' Vous n'avez rien tapé ', vbOKOnly, ' ATTENTION ')
UserForm1.Show
End If
If Range('K33') = '' Then
returnValue = MsgBox(' Vous devez mettre un numéro de lot ! ', vbOKOnly, ' ATTENTION ')
UserForm1.Show
End If
If Range('H2,I2') = '' And Range('K33') '' Then
returnValue = MsgBox(' Vous avez entré un numéro de lot mais aucune valeur ! ', vbOKOnly, ' ATTENTION ')
UserForm1.Show
End If
End Sub

D'avance merci

Cutbill

 

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 25 Février 2005

• #4

Bonjour,

si je puis me permettre,
le probleme vien de If Range('H2,I2,K33') = ''

tu ne testes que la cellule H2 comme cela et non tes 3 cellules.

Donc si H2 = '' ta condition sera toujours verifié meme si I2 et K33 sont remplis

Il faut scinder comme cela:
If Range('H2,I2,K33') = '' And If Range('I2') = '' And If Range('K33') = '' Then

@+

 

Vote positif 0 Vote négatif

C

cutbill1234

Guest

• 25 Février 2005

• #5

Bonjour,

C'est sympa ça marche, mais je tiens tout de même à preciser pour ceux qui liront ce post que c'était :

If Range('H2,I2,K33') = '' And Range('I2') = '' And Range('K33') = '' Then

et non :

If Range('H2,I2,K33') = '' And If Range('I2') = '' And If Range('K33') = '' Then

 

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 25 Février 2005

• #6

re,


ah ben oui la honte sur moi

Je suis tellement féneant que j'ai fait du copier/coller

et j'en ai oublié de supprimer des morceaux

D'ailleur le code exact est plutot ceci:

If Range('H2') = '' And Range('I2') = '' And Range('K33') = '' Then

Désolé de ne pas mettre relu

@+

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 25 Février 2005

• #7

Minnick,

Il te sera baeucoup pardonné car tu as beaucoup donné 😉

Mutzik

 

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 25 Février 2005

• #8

re,

merci mon seigneur... 😉

@+

 

Vote positif 0 Vote négatif