VB:Recherche d'une valeur sur une autre feuille que la feuille active?

[BASSDINGUE]

rebonjour le forum

j'ai le code suivant pour chercher le nombre le + grand dans la colonne A
Ca marche mais il va le chercher dans la feuille active alors que je precise qu'il doit chercher dans la " sheets("T_clt_formation")
me suis je trompé quelque part?


le code:
Public Function MaxNUMDEV() As Double
Dim vCell As Range
Dim Test As Integer
MaxNUMDEV = 0
For Each vCell In Sheets("T_CLT_FORMATION").Range(("A2:A") & Range("A65536").End(xlUp).Row)
Test = Val(vCell)
MaxNUMDEV = IIf(MaxNUMDEV > Test, MaxNUMDEV, Test)
Next vCell
End Function

merci pour votre aide

 

[Lii]

Re : VB:Recherche d'une valeur sur une autre feuille que la feuille active?

Bonsoir,

c'est la "dernière ligne" de quelle feuille pour toi ?
Essaie ainsi :

Public Function MaxNUMDEV() As Double
Dim vCell As Range
Dim Test As Integer
  MaxNUMDEV = 0
  With Sheets("T_CLT_FORMATION")
    For Each vCell In .Range(("A2:A") & [B].[/B]Range("A65536").End(xlUp).Row)
      Test = Val(vCell)
      MaxNUMDEV = IIf(MaxNUMDEV > Test, MaxNUMDEV, Test)
    Next vCell
  End With
End Function

 

[BASSDINGUE]

Re : VB:Recherche d'une valeur sur une autre feuille que la feuille active?

LA DERNIERE DE T_CLT_FORMATION😕

 

[BASSDINGUE]

Re : VB:Recherche d'une valeur sur une autre feuille que la feuille active?

Merci lii

je viens d'essayer ta solution et c'est bon , ca marche il cherche dans la bonne feuille
merci et bonne soirée à Lii et au autres

 

[BASSDINGUE]

Re : VB:Recherche d'une valeur sur une autre feuille que la feuille active?

une derniere question:
Comment je fais pour faire la recherche sur plusieurs feuilles en meme temps et avec des plages de recherche differentes?

 

[BASSDINGUE]

Re : VB:Recherche d'une valeur sur une autre feuille que la feuille active?

Quelqu'un a t-il la solution?

 

[Lii]

Re : VB:Recherche d'une valeur sur une autre feuille que la feuille active?

Re

LA DERNIERE DE T_CLT_FORMATION😕

voilà la raison de ma question (que tu aurais dû te poser) ! Ce n'est pas forcément elle avec :

For Each vCell In Sheets("T_CLT_FORMATION").Range(("A2:A") & [B]Range("A65536").End(xlUp).Row)[/B]

en gras tu as la dernière ligne de la feuille active
Avec ce style, écris plutôt :

For Each vCell In Sheets("T_CLT_FORMATION").Range(("A2:A") & _
      Sheets("T_CLT_FORMATION").Range("A65536").End(xlUp).Row)

Dès que j'ai un moment, je regarde la dernière question.

 

[BASSDINGUE]

Re : VB:Recherche d'une valeur sur une autre feuille que la feuille active?

Je suis d'accord mais ta solution avec

with Sheets("T_CLT_FORMATION") fonctionne

est il necessaire de le preciser?

 

[BASSDINGUE]

Re : VB:Recherche d'une valeur sur une autre feuille que la feuille active?

un petit up

ma derniere question etais comment fait -on une recherche sur plusieurs feuilles

Pour une recherche sur la feuille "T_CLT_FORMATION" on a :

Public Function MaxNUMDEV() As Double
Dim vCell As Range
Dim Test As Integer
MaxNUMDEV = 0
With Sheets("T_CLT_FORMATION")
For Each vCell In .Range(("A2:A") & .Range("A65536").End(xlUp).Row)
Test = Val(vCell)
MaxNUMDEV = IIf(MaxNUMDEV > Test, MaxNUMDEV, Test)
Next vCell
End With
End Function

mais je voudrais etendre la recherche sur plusieurs

Une idée??
merci