Condition: > ou < à une variable

Version imprimable

Bonjour,

J'essaye de renseigner 1 cellule de chaque ligne et mettre "RECENTE" dedans.

Pour se faire, voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Set Ceclasseur = Application.ThisWorkbook 'mon classeur de travail Set classeurtempo = Workbooks.Open(MONFICHIER REFERENCE.xls) classeurtempo.Activate Dim plageOC As Range, OCMAX As String Set plageOC = Range("A:A") OCMAX = Application.WorksheetFunction.Max(plageOC) Ceclasseur.Activate Dim ligne As Long For ligne = 2 To Range("A65000").End(xlUp).Row If Cells(ligne, 5).Value > "" & OCMAX & "" And Cells(ligne, 13) = "" Then Cells(ligne, 13) = "RECENTE" Next ligne classeurtempo.Close False end sub
Donc, je repere le valeur la plus grande (OCMAX) dans ma plage (PLAGEOC) de mon classeur de reference (classeurtempo), puis je compare par rapport à colonne 5 de mon classeur de travail (CECLASSEUR) où l'on retrouve les meme références.

à l'heure actuelle mon OCMAX=101555
Ensuite sur chaque ligne j'applique ma condition. donc dans ma colonne 13 il me met bien "RECENTE" qd dans la colonne 5 la valeur est > à 101555. MAIS, il met aussi "RECENTE" quant la valeur est inférieur à "100000"..

Je pense que le probleme vient du cap des "100000", pk ce bug ? Probleme de format ? je ne pense pas mais bon..

A votre disposition,
Merci pour votre aide, :)

20/07/2011, 10h53
bastou93

Bonjour,

Pourquoi ne pas faire la comparaison avec OCMAX sachant que c'est un double (valeur retourner par Max)???

comme ceci:

Code:

If Cells(ligne, 5).Value > OCMAX And Cells(ligne, 13) = "" Then

Essaye comme cela après pourquoi tu test si Cells(ligne, 13) est vide?

Bastien
20/07/2011, 11h12
JoeJoeH

Citation:

Envoyé par bastou93

Essaye comme cela après pourquoi tu test si Cells(ligne, 13) est vide?

Pour ne rien y écrire si il y a déjà quelque chose, je suppose.
20/07/2011, 11h37
rapheb

Oui c'est ça Joe ;)

Je comprends pas ce qu'apporte ta proposition Bastou, à part supprimer les "& &" autour de la variable que je pensais nécessaire, mais finalement nan lol.

Code:

1
2
3
4
5
6
Dim ligne As Long
For ligne = 2 To Range("A65000").End(xlUp).Row
If Cells(ligne, 5).Value > OCMAX And Cells(ligne, 13) = "" Then
   Cells(ligne, 13) = "RECENTE"
end if
Next ligne

Si OCMAX à la bonne valeur il devrai pas y avoir de problème tu peux le tester avec debug ou Msgbox ou pas à pas

Code:

1
2
3
4
5
6
7
msgbox OCMAX 
Dim ligne As Long
For ligne = 2 To Range("A65000").End(xlUp).Row
If Cells(ligne, 5).Value > OCMAX And Cells(ligne, 13) = "" Then
   Cells(ligne, 13) = "RECENTE"
end if
Next ligne

et vérifier OCMAX ait la bonne valeur

20/07/2011, 11h46
dodo69
Bonjour rapheb, bonjour à tous
Citation:
Envoyé par rapheb

Code:

1 2 Dim plageOC As Range, OCMAX As String OCMAX = Application.WorksheetFunction.Max(plageOC)
Je ne comprend pas pourquoi tu utilise OCMAX en String plutot que double ou Long ou autre format de nombre ?

Citation:

Je ne comprend pas pourquoi tu utilise OCMAX en String plutot que double ou Long ou autre format de nombre ?

Exact dodo j'avais pas vu :calim2: voici le code final que tu dois tester:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Set Ceclasseur = Application.ThisWorkbook 'mon classeur de travail
Set classeurtempo = Workbooks.Open(MONFICHIER REFERENCE.xls)
classeurtempo.Activate
 
Dim plageOC As Range, OCMAX As Long
Set plageOC = Range("A:A")
OCMAX = Application.WorksheetFunction.Max(plageOC)
 
Ceclasseur.Activate
Dim ligne As Long
For ligne = 2 To Range("A65000").End(xlUp).Row
If Cells(ligne, 5) > OCMAX And Cells(ligne, 13) = "" Then
   Cells(ligne, 13) = "RECENTE"
end if
Next ligne
classeurtempo.Close False
end sub

20/07/2011, 11h55
dodo69
^^ Pour une fois que je peux être utile :)

Par contre je ne comprend pas non plus le "65000" 8-)
Code:

1 2 For ligne = 2 To Range("A65000").End(xlUp).Row
Si la version n'est pas Excel 2003, et que la feuille contient plus de 65000 lignes, il ressortira 1 comme résultat ( et donc une erreur)

Essaye de remplacer
Code:

1 2 For ligne = 2 To Range("A65000").End(xlUp).Row
Par

Code:

For ligne = 2 To Cells(Rows.Count, 1).End(xlUp).Row

Cordialement
DoDo
20/07/2011, 12h03
rapheb

Yes en As Long ça fonctionne :ccool:
Les variables c'est le genre de trucs que je maîtrise vraiment pas.

Dodo, je suis en Excel 2000, et j'ai toujours fait comme ça pour balayer toutes mes lignes.. mais ta manière est sans doute plus propre.. Concrétement ça represente quoi Cells(Rows.Count, 1) ? En fait, surtout le 1 ? Que fait il qd il lit ça ?
20/07/2011, 12h06
bastou93

Moi souvent je fais l'inverse je pars d'en haut et je chope la derniere ligne (x1down)
20/07/2011, 12h11
dodo69

Citation:

Envoyé par rapheb

Concrétement ça represente quoi Cells(Rows.Count, 1) ? En fait, surtout le 1 ? Que fait il qd il lit ça ?

Concretement, cette fonction va chercher la dernière ligne utilisée en Colonne 1 ( voilà pourquoi le "1")
20/07/2011, 12h34
MarcelG

dernière cellule

Bonjour les amis, Bonjour le Forum,

A Bastou93

Citation:

Moi souvent je fais l'inverse je pars d'en haut et je chope la derniere ligne (x1down)

Dangereux! En effet, cette méthode ne tient pas compte des vides entre cellules. C'est pourquoi, il est fortement conseillé de considérer la dernière ligne (ou la dernière colonne) et de repérer la dernière cellule informée "en haut" (xlUp) ou "à gauche" (xlToLeft).

A ce sujet, vous pouvez consulter le tutoriel d' Ousskel'Nor et autres exposés à ce sujet.

Une synthèse de ces sources est indiquée dans cette discussion :

dernière cellule

En espérant que ces indications vous seront utiles.