macro : "l'une ou l'autre"

[Jean Michel CROQUETTES]

Bonjour les cracks

Est-il possible de créer un bouton en feuil1 qui va voir en feuil2 combien il existe de lignes.
Si telle autre?

Merci beaucoup!!! :huh:

 

[PascalXLD]

Bonjour

Oui c'est possible

sub nbreligne()

dim MonNbre as integer

MonNbre=sheets('Feuil2').range('A65536').end(xlup).row

end sub

Par contre je ne comprends pas ton 'Si telle autre?'

Bonne journée

 

[Jean Michel CROQUETTES]

OUPS pardon, il y a eu un probleme juste avant de soumettre mon message désolé je voulais dire :

Est-il possible de créer un bouton en feuil1 qui va voir en feuil2 combien il existe de lignes.
Si Le nombre est à 11 lignes telle autre?

Désolé cher Pascal tu ne risquais pas de comprendre

Merci!!!

 

[PascalXLD]

Re

Je ne sais pas si c'est du au lundi matin mais je ne comprends pas : 'Si Le nombre est à 11 lignes telle autre? '

Je dois être fatigué pourtant j'ai bien dormi :unsure:

 

[Jean Michel CROQUETTES]

Excuses moi encore, c'est en utilisant les signes supérieurs et inferieurs que cela plante. Je reprends donc!!:

Est-il possible de créer un bouton en feuil1 qui va voir en feuil2 combien il existe de lignes.
Si Le nombre de lignes est inf à 11 alors execution de telle macro. entre 11 et 22 telle autre, plus de 22 encore une autre...

Merci d'avance!!!

 

[PascalXLD]

Re:macro : \"l'une ou l'autre\"

RE

ok essaies

Sub nbreligne()

Dim MonNbre As Integer

MonNbre = Sheets('Feuil2').Range('A65536').End(xlUp).Row

Select Case MonNbre
Case Is < 11
macro1
Case Is < 23
macro2
Case Else
macro3
End Select

End Sub

Bonne journée

Message édité par: Pascal76, à: 10/04/2006 10:51

 

[Jean Michel CROQUETTES]

:woohoo:
J'essaye même pas avant de te répondre, c'est logique ça marche forcément!!!

Merci!!!