Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Reconnaissance plage etrange

  • Initiateur de la discussion Initiateur de la discussion flo2002
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

flo2002

XLDnaute Impliqué
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
 
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
 
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
 
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...
 
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.
 
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 !!!
 
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!
 
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]
 

Pièces jointes

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]
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
15
Affichages
791
Réponses
4
Affichages
735
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Réponses
4
Affichages
298
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…