utiliser une valeur selectionner

[ziris]

salut a tous,
comment utiliser une valeur selectionner par le code suivant :

Private Sub CommandButton1_Click()
mavar = Range("B5").Value

voila ceux que je voudrer faire :
active autant de ligne a partir de C7 par rapport a la valeur selectionner


exemple:
si ma valeur est 3
je voudrer activer les 3 lignes complete qui suive la celule C7 soit les ligne D,E,F
merci de votre aide et vos reponse

 

[Hervé]

Bonsoir

je suis pas sur d'avoir compris ce que tu entendais par activer, mais si tu veux sélectionner le nombre de ligne indiqué par ta cellule B5, a compter de la ligne 7 :

Dim mavar As Long
mavar = Range("B5").Value
If mavar < 1 Or mavar > 65536 Then Exit Sub
Rows("8:" & 8 + mavar).Select


Salut
Hervé

 

[ziris]

merci de ta reponse
si tu pouvez m'expliquer comment tu interprete cette ligne STP

-->If mavar < 1 Or mavar > 65536 Then Exit Sub
veut dire -->si ...

pour la ligne en dessus c'est ok mais celle la j'ai du mal a comprendre le sens pour evoluer en VBA
cela m'aidera Merci

-->Rows("8:" & 8 + mavar).Select
veut dire -->selectionne les lignes a partir de la ligne 8 + le nombre de ligne contenu dans mavar

merci de ta reponse cela fonctionne du tonnere

 

[Hervé]

Bonjour

comme tu travailles sur les lignes d'une feuille il faut limiter ce choix au nombres de lignes sinon bug (essaye de sélectionner la ligne 0 ou la ligne 85000).

donc :

pour : If mavar < 1 Or mavar > 65536 Then Exit Sub
si mavar est inférieur à 1 ou supérieur à 65536 alors on sort de la macro et donc on arrête le traitement.

pour : Rows("8:" & 8 + mavar).Select
tu as tout compris

Salut
Hervé

 

[ziris]

merci beaucoup pour ton aide