Racourcir un code

[SSIAP2]

Bonjour pour mon projet ont ma gentillement proposé ce code

  NumProchain = Application.Max(Range("BDD1!$A:$A"), Range("BDD2!$A:$A"), Range("BDD3!$A:$A"), Range("BDD4!$A:$A"), Range("BDD5!$A:$A"), Range("BDD6!$A:$A"), Range("BDD7!$A:$A"), Range("BDD8!$A:$A"), Range("BDD9!$A:$A"), Range("BDD10!$A:$A"), Range("BDD11!$A:$A"), Range("BDD12!$A:$A"), Range("BDD13!$A:$A"), Range("BDD14!$A:$A"), Range("BDD15!$A:$A"), Range("BDD16!$A:$A"), Range("BDD17!$A:$A"), Range("BDD18!$A:$A"), Range("BDD19!$A:$A"), Range("BDD20!$A:$A"), Range("BDD21!$A:$A"), Range("BDD22!$A:$A"), Range("BDD23!$A:$A"), Range("BDD24!$A:$A")) + 1

comme vous pouvez voir sa fais un peut long j'ai essayer de le diminuer

en faisant ceci

Private Sub CommandButton8_Click()

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

End Sub

mais sa ne fonctionne pas

methode range glogal à échouer pouvez vous m'aidé à trouvé la bonne formule svp merci

 

[ROGER2327]

Re : Racourcir un code

Bonjour SSIAP2

Essayez ceci :

[COLOR="DarkSlateGray"][B]Private Sub CommandButton8_Click()
Dim j%, NumProchain#
   NumProchain = -1.79769313486231E308
   For j = 1 To 24
      NumProchain = Application.Max(NumProchain, Range("BDD" & j & "!$A:$A"))
   Next j
End Sub[/B][/COLOR]

ROGER2327
#3951

Mardi 10 Tatane 137 (Saints Pieds Nickelés, trinité, SQ)
5 Thermidor An CCXVIII
2010-W29-5T20:36:39Z

 

[SSIAP2]

Re : Racourcir un code

Bonsoir merci roger je vais l'essayer à bientot

 

[SSIAP2]

Re : Racourcir un code

Bonjour roger ta solution me conviens parfaitement merci beaucoup