Ne pas spécifier le nombre de ligne pour un arrêt de condition
bonjour tout le monde en faite j ai un programme sous VBA qui a trois zone pour grouper et dégrouper des éléments ce que je veux
faire c est de rendre ses zone relatif en cas ou je rajoute des élément sur one c est pas a chaque fois je rentre dans le programme pour modifier ma zone de nombre de ligne si ya quelqu'un qui peut m'aider ça serrer super je vous remercie a l'avance
vous trouver ci joint mon doc excel pour aider a a comprendre
Sub one()
With Rows("5:8") ' NE pas SPÉCIFIER LE NOMBRE DE LIGNE ON CAS D'AJOUT D'un élément
If Not .Hidden Then .Hidden = True Else .Hidden = False
End With
End Sub
Sub two()
With Rows("10:13")
If Not .Hidden Then .Hidden = True Else .Hidden = False
End With
End Sub
Sub three()
With Rows("15:19")
If Not .Hidden Then .Hidden = True Else .Hidden = False
End With
End Sub
Bonjour,
Peut-être en utilisant des champs nommés ...
Un essai ...
ric
Merci Beaucoup
C'est pas mal ça
juste une question tu voulais dire quoi par Row+1 et Row-1
Bonjour,
Range("ONE") = Range("B4")
Si l'on veut commercer à masquer une ligne en dessous : Range("ONE").Row +1 = la ligne 5
Range("TWO") = Range("B9")
Si l'on veut commercer à masquer une ligne au-dessus : Range("TWO").Row -1 = la ligne 8
Quelque soit le nombre de lignes que tu insères entre les deux champs nommés, la macro est bonne.
ric
Merci beaucoup
Et si on met pas le paramétre END dans la dernier cellule a la fin comment on va faire ???
Marc,
Bonjour,
... Et si on met pas le paramétre END dans la dernier cellule a la fin comment on va faire ??? ...
Huummm!!!! Comment fait-ton pour trouver la dernière ligne ... surtout quand elles sont masquées ?
Dans ton fichier de travail, y a-t-il d'autres informations plus bas ?
ric
Bonjour,
Basé sur ton fichier exemple ... i.e. il n'y a plus rien plus bas.
Un essai ...
ric
Bonjour ric,
le programme marche trés bien mais le soucis quand j ai changé les nom sur le fichier et dans la macro j ai une erreur d’exécution ' 1004'
la méthode range de l'objet _Global à échouer
voici le fichier que j ai changé
Marc,