Discussion :

[pissken993]

Bonjour
Je cherche la ligne de commande qui limite ma feuille Excel a 20 lignes
Si c'est ca svp aidez moi a la modifier pour la delimiter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If t58769088ddf07c03d1b0fe846a2c73b6 = Empty Then z6d6e7f99b5309ffbbf47a5f7f9b43ddc
eb321f26c5d1011a462517ee270ccc517 = BD_ARTICLES.Range("A1").End(xlDown).Row + 1
If eb321f26c5d1011a462517ee270ccc517 > b85a58bd9691952f0ba896938236e45ba(65500) Then eb321f26c5d1011a462517ee270ccc517 = 2
If eb321f26c5d1011a462517ee270ccc517 > t58769088ddf07c03d1b0fe846a2c73b6

Merci

[Gord21]

bonjour,
Je n'arrive pas à ouvrir ta pièce jointe mais as-tu regardé du côté de la propriété ScrollArea de ta feuille ?

Cordialement,

[nonesofar]

Hello,

Tu veux que ta feuille contienne que 20 lignes?

Regarde ce petit code, si ça te convient.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Macro1()
    Range(Rows("21:1048576"), Selection.End(xlDown)).RowHeight = 0
End Sub

Cordialement

nonesofar

[pissken993]

Hello,

Tu veux que ta feuille contienne que 20 lignes?

Regarde ce petit code, si ça te convient.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Macro1()
    Range(Rows("21:1048576"), Selection.End(xlDown)).RowHeight = 0
End Sub

Cordialement

nonesofar

slt je voudrais plus de 20 ligne
nouvelle piece jointe
ouvre et tu vera ceux dont je parle

[QuestVba]

Bonjour,

Comme le disait Gord21, regarde ScrollArea (https://msdn.microsoft.com/en-us/lib.../ff823064.aspx).

Sélectionne la feuille concernée dans l’explorateur en haut à gauche et modifie la propriété ScrollArea.

Dans cette propriété, entre la première cellule en haut à gauche et la dernière cellule en bas à droite de ta zone (ex. A1:G20).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(1).ScrollArea = "a1:g20"

[pissken]

voici le fichier


Quelqu'un pourrait m'expliquer ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub I_CommandButton_ajouter_Click()
If t58769088ddf07c03d1b0fe846a2c73b6 = Empty Then z6d6e7f99b5309ffbbf47a5f7f9b43ddc
eb321f26c5d1011a462517ee270ccc517 = BD_ARTICLES.Range("A1").End(xlDown).Row + 1
If eb321f26c5d1011a462517ee270ccc517 > b85a58bd9691952f0ba896938236e45ba(65500) Then eb321f26c5d1011a462517ee270ccc517 = 2
If eb321f26c5d1011a462517ee270ccc517 > t58769088ddf07c03d1b0fe846a2c73b6 Then
UserForm_essai.Show

[pissken993]

bonjour,
Je n'arrive pas à ouvrir ta pièce jointe mais as-tu regardé du côté de la propriété ScrollArea de ta feuille ?

Cordialement,

ok essais d ouvrir et tu vera ceux dont je parle