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]

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

[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

[unparia]

Bonjour
je n'ai pas ouvert ton classeur. Je ne me risque jamais à ouvrir un classeur tiers.

Code :

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

If t58769088ddf07c03d1b0fe846a2c73b6 = Empty Then z6d6e7f99b5309ffbbf47a5f7f9b43ddc

n'a de sens que si z6d6e7f99b5309ffbbf47a5f7f9b43ddc[ est une procédure
t58769088ddf07c03d1b0fe846a2c73b6, eb321f26c5d1011a462517ee270ccc517 ne peuvent qu'être des variables
b85a58bd9691952f0ba896938236e45ba ne peut qu'être une matrice

Il te reste à suivre à la trace (édition -->> rechercher) cette procédure et ces variables si tu veux avoir une chance de comprendre le(s) mécanisme(s) mis en oeuvre.

Il me semble (je peux me tromper, mais ...) que tu es là en possession d'un code écrit justement pour en gêner la compréhension et toute intervention.
Je suppose (?) que l'auteur de ce code a tout mis en oeuvre :
- soit pour qu'il ne soit utilisable que sur une machine
- soit pour en limiter l'utilisation (version d'essai ?).

Dans un cas comme dans l'autre de ces deux cas, je ne crois pas que la vocation de ce forum soit de t'aider à contrecarrer la volonté de l'auteur de ce code.

Si ce code n'est comme je le pense pas le tien -->> adresse-toi à son auteur ...
Si tu es en possession d'une version d'essai *****, il est vraisemblable que l'auteur te fera une seule proposition : acheter la version complète.
***** : et il semble bien que ce soit la raison pour laquelle le nombre d'opérations est limité

[eriiic]

Bonjour,

d'ailleurs, dans tous les modules :
'Le code VBA n'est "lisible" et indenté que dans la version payante qui autorise l'accès au code VBA
Et je viens enfin de comprendre ta demande : version d'essai limitée à 20 enregistrement
Tu sais ce qu'il te reste à faire. Payer ou apprendre vba pour faire ton programme :-)
Ce n'est sûrement pas ici que tu trouveras de l'aide...
eric

[RyuAutodidacte]

Hi Jacques et Eric,

Tout est dit … à vous 2