Plus Petit Ou Plus Grand... mais pas égal (Macro)

[TH3ROOKIE]

Salut,

j'ai un prob avec une des lignes de ma macro... Je n'arrive pas a lui faire comprendre "plus petit ou plus grand mais pas égal à" en utilisant <>.

Quelqu'un a une idée ??

Merci

If Target.Address = Range("WEEK_1").Address Then
If "WEEK_1" <> "Num_Sem" Then ****VOICI LA LIGNE A PROB...***
Cel_Dest3.Formula = "='" & Chemin & "[" & Nom_Fichier & Ref_Classeur & ".xls]Analyse Du Rendement'!G7"
Cel_Dest5.Formula = "='" & Chemin & "[" & Nom_Fichier & Ref_Classeur & ".xls]Analyse Du Rendement'!F8"
Cel_Dest7.Formula = "='" & Chemin & "[" & Nom_Fichier & Ref_Classeur & ".xls]Analyse Du Rendement'!C10"
Cel_Dest8.Formula = "='" & Chemin & "[" & Nom_Fichier & Ref_Classeur & ".xls]Analyse Du Rendement'!G10"
Cel_Dest10.Formula = "='" & Chemin & "[" & Nom_Fichier & Ref_Classeur & ".xls]Analyse Du Rendement'!G9"
End If

 

[TH3ROOKIE]

Re : Plus Petit Ou Plus Grand... mais pas égal (Macro)

re
as-tu essayé ?

Pour ca, j'insère dans le haut ou bien apres la ligne

If WEEK_2 <> Num_Sem Then ?

 

[TH3ROOKIE]

Re : Plus Petit Ou Plus Grand... mais pas égal (Macro)

Pour le debug, il me retourne les bonnes donnés

31 33
WEEK_1Num_Sem

On dirait ce qui ne marche pas dans le code c'est vraiment le <>. Parce ce que le but de cette formule et que si WEEK_1 et plus grand ou plus petit mais pas égal a Num_Sem il execute Cel_Dest3,5,6,7,8,10 mais si WEEK_1 est égal à Num_Sem, il n'éxecute pas Cel_Dest3,5,6,7,8,10.

Alors si je ne fait que changer <> par < et que WEEK_1 retourne un chiffre plus grand que Num_Sem, Cel_Dest3,5,6,7,8,10 s'execute et si WEEK_1 retourne un nombre plus petit que Num_Sem, Cel_Dest3,5,6,7,8,10 ne s'execute pas. et le contraire si je remplace <> par >.

Si par contre je laisse en place <>, alors les formules Cel_Dest3,5,6,7,8,10 s'execute toujours et ce avec n'importe quel nombre entrée.

La formule marche seulement avec les guillemets If "WEEK_1" <> "Num_Sem" Then
Si je les enleve alors Cel_Dest me s'execute plus.

 

[dg62]

Re : Plus Petit Ou Plus Grand... mais pas égal (Macro)

31 33
WEEK_1Num_Sem

31 et 33 c'était la derniere ligne ?

 

[TH3ROOKIE]

Re : Plus Petit Ou Plus Grand... mais pas égal (Macro)

31 et 33 c'était la derniere ligne ?

Dans la fenetre Execution ?

EDIT---> J'avais mal sélectionné les lignes.... Alors oui, 31 33 était la derniere ligne

WEEK_1Num_Sem

31 33

 

[dg62]

Re : Plus Petit Ou Plus Grand... mais pas égal (Macro)

solution

dim week_1 as integer idem pour week_2...5 et num_sem

week_1=sheet("aaa").range("D5").value adapter le "aaa" 'merci Flo
idem our les autres variables


et ensuite tu enlèves les guillemets dans ton code.

ça devrait fonctionner.

 

[TH3ROOKIE]

Re : Plus Petit Ou Plus Grand... mais pas égal (Macro)

Goooooood !!

Merci a vous 2 dg62 et flo2002. Ca marche !

Merci encore !