Reconnaissance plage etrange

[flo2002]

re bonjour,

je crois que mon code vba est etrange...
1) il ne fonctionne pas mais ce n'est pas l'objet de ce post.

2)dans le code il prend une variable en fonction de la feuille sur laquelle je suis ce qui donne:

code: If Sheets('Extract_AFU').Range(Cells(2, 23) & i2) = Sheets('Rolling_Forecast').Range(Cells(10, 5) & i1) Then

si je suis sur la feuille extract_afu il me trouve cells(2, 23) mais me mais une valeur de la meme feuille pour cells(10, 5) de maniere irrationnel (à mes yeux).
de meme si je suis sur la feuille rolling forecast il trouve la cellule de sa feuille mais ne me met rien pour l'autre.

Ceci est très ennuyeux surtout pour les comparer...

Une idée sur la maladie du code?

Merci d'avance

 

[pierrejean]

bonjour flo2002

on peut savoir à quoi correspondent i1 et i2 ??

 

[Shock]

salut flo, ...pierrejean (t'avais pô vu!)

euh...tu as essayé avec worksheets('ta feuille') au lieu de sheets('') tout court?
😱
ca devrait pas changer grand chose mais bon...va savoir 😉

Message édité par: Shock, à: 14/06/2006 15:23

 

[flo2002]

Bonjour PierreJean et Shock

i1 et i2 sont tel que:

Dim Derligne1%, Derligne2%
Dim i1%, i2%
Dim Exist
Derligne1 = Sheets('Rolling_Forecast').Range('e65536').End(xlUp).Row
Derligne2 = Sheets('Extract_AFU').Range('c65536').End(xlUp).Row
For i2 = 1 To Derligne2
For i1 = 1 To Derligne1
*

Je vais tester ca Shock!

merci de votre implication

 

[pierrejean]

re flo

joyeux melange !!

If Sheets('Extract_AFU').Range(Cells(2, 23) & i2) = Sheets('Rolling_Forecast').Range(Cells(10, 5) & i1) Then

Derligne1 = Sheets('Rolling_Forecast').Range('e65536').End(xlUp).Row
Derligne2 = Sheets('Extract_AFU').Range('c65536').End(xlUp).Row
For i2 = 1 To Derligne2
For i1 = 1 To Derligne1

Derlign2 > Rol col e > i2
Derlign1> Ex col c > i1

ma proposition:

If Sheets('Extract_AFU').Range(Cells(i1, 23) ) = Sheets('Rolling_Forecast').Range(Cells(i2, 5) ) Then

qui correspond à l'exploration succesive des colonnes C et E de respectivement Extra... et Roll...

 

[flo2002]

Re Pierre Jean,

avec ton code j'ai l'impression que je ne trouve pas ce que je cherche.

i1 et i2 definissent la derniere cellule de leur colonne respective.

donc je ne compare ce que je voudrais, à savoire
dans extract afu de la deuxieme ligne jusqu'à la derniere ligne de la colonne c avec dans rolling forecast de la 10eme lignes jusqu'à la derniere ligne de la colonne a (ou w)

merci comme meme.

 

[pierrejean]

re flo

non !!

i1 et i2 varient de 1 a la derligne
for i1=1 to Derligne1

si tu veux partir de la 2eme c'est
for i1=2 to Derligne1

si tu veux partir de la 10eme c'est
for i2=10 to Derligne2

maintenant si tu souhaites vraiment resoudre ton probleme il te faut

faire une copie de ton fichier
oter tout ce qui n'est pas relatif à ton souci
ne laisser que quelques données (non confidentielles)
zipper et le mettre en annexe
travailler sur des bouts de code sortis de leur contexte sans savoir ni d'où l'on vient ni où l'on va ne peut etre rapidement productif !!!

 

[flo2002]

Re Pierre Jean, je crois que tu as raison.

Le fichier n'est peut etre pas assez explicite donc n'hésiter à me questionner.

J'ai mis une macro en module et une autre en format texte. Elles sont censées dire la meme chose.

Merci par avance!

 

[pierrejean]

re

me suis absenté un moment

ton fichier n'est pas passé

 

[flo2002]

Bonjour le forum,
en effet Pierre Jean ce fichier fait de la résistance je retest. [file name=test_20060615085225.zip size=44794]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060615085225.zip[/file]

 

[pierrejean]

bonjour flo

il te faut revoir cells(ligne,colonne)

voila ton code modifié [file name=flo.zip size=14025]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/flo.zip[/file]