Discussion :

[rapheb]

Bonjour,

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

Pour se faire, voici mon code:

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
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,

[bastou93]

Bonjour,

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

comme ceci:

Code :

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

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

[JoeJoeH]

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.

[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.

[bastou93]

Code :

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

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 :

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

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

[dodo69]

Bonjour rapheb, bonjour à tous

Code :

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

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 ?

[bastou93]

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 voici le code final que tu dois tester:

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
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

[dodo69]

^^ Pour une fois que je peux être utile

Par contre je ne comprend pas non plus le "65000"

Code :

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

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 :

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

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

Par

Code :

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

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

Cordialement
DoDo

[rapheb]

Yes en As Long ça fonctionne
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 ?

[bastou93]

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

[dodo69]

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")