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