amelioré mon code svp

[creolia]

Bonjour je souhaite amélioré ce bout de code

For j = 1 To 40
      NumProchain = Application.Max(NumProchain, Range("BDD" & j & "!$A:$A"))
   Next j
T0 = ""

ce code me sert à rechercher dans la colonne A5:A de toute mes page commençant par BDD pour cela tous est ok mon soucis viens de là

For j = 1 To 40

je suis bloquer à 40 c'est a dire feuil BDD40 je souhaiterais que la recherche soit illimité en page c'est a dire que j'ai 40 feuil ou 10 la recherche se fasse

je pense je doit faire un truc de ce genre

[CODE]For j = 1 To .count

[/CODE]

mais je sa fonctionne pas il manque quelque chose

pouvez vous m'aider merci

 

[joss56]

Re : amelioré mon code svp

Bonjour Creolia

essaye

for j=1 to ActiveWorkbook.Sheets.Count


Jocelyn

 

[creolia]

Re : amelioré mon code svp

merci joss56 pour ta solution mais cela ne fonctionne pas

For j = 1 To ActiveWorkbook.Sheets.Count

      NumProchain = Application.Max(NumProchain, Range("BDD" & j & "!$A:$A"))
   Next j

erreur execution "1004"
la methode range objet global à echoué

je continue donc à chercher une solution

 

[creolia]

Re : amelioré mon code svp

bon ben c raté je trouve rien je vais faire une pj

 

[eriiic]

Re : amelioré mon code svp

Bonsoir tout le monde,

Essaie avec :

For j = 1 To Sheets.Count
    If Left(Worksheets(j).Name, 3) = "BDD" Then
        NumProchain = Application.Max(NumProchain, Worksheets(j).Range("$A:$A"))
    End If
Next j

eric

 

[creolia]

Re : amelioré mon code svp

Bonjour eriiic et Merciiiii cela fonctionne parfaitement à bientot