Discussion :

[Thomas69]

Voici mon code

ce que je voudrais faire
c'est que de la ligne 2 a la ligne 20
je regarde dans les cellules de B si il y a un ok ou non

si il y a rien je fais apparaitre ma message box
si il y a ok ou autre choses je ne fais pas apparaitre ma message box

et comme vous le voyer ma message box je l'as fait apparaitre sur une feuille "Rapport" c'est la aussi ou elle s'execute

mais je voudrais la faire apparaitre sur la feuille "Saisie"

pour le moment j'ai contrer le probleme en fesant un retour sur la feuille Saisie
mais bon si je pouvais evite ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
For i = 2 To 20
    If IsNumeric(Range("B" & i).Value) Then
 
    If Cells(i, 2) = "" Then
 
    Sheets("Rapport").Select
    Result = Cells(Range("A1").End(xlDown).Row, 1).Value
 
           MsgBox "depassement:" & Result
    Else
 
    Sheets("Saisie").Select
 
    End If
    Next i
 
    Sheets("Saisie").Select
 
    End Sub

comme toujours un aiguillage est le bienvenue
merci d'avance

[tonton fred]

Bonjour,
Une msgbox ne s'affiche pas sur une feuille, elle s'affiche sur l'ecran quelque soit la feuille active (petite nuance qui a son importance ). Donc je pense que ce qu'il te faudrait faire c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Saisie").Select
MsgBox "depassement:" & Result

[Thomas69]

oki je te remercie

et pour mon histoire de condition tu serais m'aiguiller?
en plus je viens de me rendre compte que je lis les 20lignes
mais si j'ai rien ma colonne A ca sert a rien de faire apparaitre une message box


par contre j'ai rajouter un AND pour mettre plusieurs conditions ensembles ca me met erreur de syntaxe
c'est interdit les AND dans les conditions?
ou il y a une autre facon?

[tonton fred]

Nonon And est valide et meme recommande, mais il est parfois un peu capricieux (disons qu'il faut faire gaffe a ce qu'on ecrit).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsNumeric(cells(i,2).Value) And isempty(Cells(i, 2)) Then

F1 sur isempty pour comprendre. J'ai remplace range("B" & i) par cells(i,2) parce que je trouve plus lisible cells, et que j'aime bien avoir la meme chose ecrite pour le meme objet (et pas range a une ligne et cells a la suivante). Mais c'est tout a fait personnel, fait comme tu preferes

Edit:
par curiosite, tu as mis quoi dans ton and, qu'on puisse t'expliquer ton erreur

[Thomas69]

j'avais marquer que je voulais enclancher la condition que si
j'avais un truc de marquer dans la colonne A et que si dans la colone B c'est marquer non

mais ce que tu m'as passer ne me convient pas

car j'ai pas le condition de A et surtout pour B j'ai marquer que si j'ai une chose numerique et je sais pas si un texte est considerer comme numérique



voila un exemple
si j'ai un texte dans le colone A et un acquitement ( mettre "ok" ) dans B je met la message box
par contre si j'ai un texte dans A et pas d'acquitement dans B je fais apparaitre la message box

Depassement en kg Acquitement
3006,6 Kg à la ligne 694 numéro de lot: 5401001 date du début de l'opération05/10/2005 03:00:00 ok
3002,53 Kg à la ligne 1190 numéro de lot: 6151001 date du début de l'opération12/04/2006 16:10:00 ok
3001,272 Kg à la ligne 1667 numéro de lot: 6461001 date du début de l'opération15/11/2006 05:00:00

[tonton fred]

j'avais un truc de marquer dans la colonne A et que si dans la colone B c'est marquer non [...] car j'ai pas le condition de A et surtout pour B j'ai marquer que si j'ai une chose numerique et je sais pas si un texte est considerer comme numérique

Je comprends pas trop, queles sont les conditions que tu veux ? A est non vide et B contient "Ok"?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (not isempty(Cells(i,1))) and cells(i,2).value = "Ok" then

Sinon isnumeric est vrai si le contenu est numerique, le texte n'est pas numerique

[Thomas69]

oui tu as compris
je ne fais apparaitre ma message box

si ma colonne A est remplis par un texte et si dans la colonne B j'ai rien

Je ne fais pas apparaitre ma message box

Si ma colonne A est vide ou que j'ai ok dans la colonne B

edit;j'ai essayer ton code ca me marque

erreur definie par l'application ou pas l'objet

[tonton fred]

Et si B contient quelque chose mais pas Ok ?

si ma colonne A est remplis par un texte et si dans la colonne B j'ai rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (not isempty(cells(i,1))) and isempty(cells(i,2)) then

Si ma colonne A est vide ou que j'ai ok dans la colonne B

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If isempty(cells(i,1)) or (cells(i,2).value="Ok" then)

Je met plein de parenthese parce que les priorite de tests sont parfois un peu bizarres

[Thomas69]

non ma colone B ne doit contenir que ok et rien d'autre
si elle contient pas ok

j'irais fouetter en personne l'opérateur qui utilisera ce programme



edit:toujours la meme erreur avec tes codes
et ca plante que sur les lignes que tu m'as données

[tonton fred]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Not (IsEmpty(Cells(i, 1))) And IsEmpty(Cells(i, 2)) Then MsgBox ("ok")
If (Not IsEmpty(Cells(1, 1))) And IsEmpty(Cells(1, 2)) Then MsgBox ("ok2")

Voila ce que j'ai mis dans un fichier a moi, ca marche. Apres tout depend de ce que tu veux comme condition (je suis toujours pas sur...). Mais la c'est simplement un probleme d'algebre booleen et je sais jamais comment excel gere les priorite entre les not, and, etc alors je contourne le probleme comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim CelluleARemplie as boolean, CelluleBVide as boolean
CelluleARemplie = Not (IsEmpty(Cells(i, 1))) 
CelluleBVide = IsEmpty(Cells(i, 2)) 
If CelluleARemplie and CelluleBVide then

[Thomas69]

Voila le code que j'ai taper et qui marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Message()
 
 
  Sheets("Rapport").Select
                Result = Cells(Range("A1").End(xlDown).Row, 1).Value
 
For i = 2 To 10
If Cells(i, 2) = "" Then
 
                Sheets("Saisie").Select
                MsgBox "depassement:" & Result
 
Else
                Sheets("Saisie").Select
 
End If
Next i
End Sub

mais comme tu le remarque je ne verifie que la colone B
et je n'arrive pas a verifier la colone A car la fonction And est capricieuse

tu aurais une idée?

[Thomas69]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Message()
 
Sheets("Rapport").Select
For i = 2 To 10
acquit = Cells(i, 2)
acquit1 = Cells(i, 1)
 
If acquit = "" And Not IsEmpty(acquit1) Then
 
Sheets("Rapport").Select
    Result = Cells(Range("A1").End(xlDown).Row, 1).Value
 
           MsgBox "depassement:" & Result
 
 
Else
                Sheets("Rapport").Select
 
End If
Next i
End Sub

voila le code marche

en plus l'opérateur peut mettre ce qu'il veut dans acquitement une fois acquite le message apparait plus