expliquation de terme

[laurent67]

bonjour

en fait ce que je souhait c'est que l'on m'explique la signification de different terme comme :
Sheet
Range
End
Value
Change
Initialize

enfin que l'on me dise se qu'il faut mettre entre () et pourquoi
en fait la basse de la programmation sous VBA

merci d'avance a tout personne qui veut bient me reponde

bonne soiree a plus laurent sincere salutation

 

[Abel]

Bonjour Laurent67,

Utilise l'aide de VBE.
Cela t'expliquera à quoi correspondent ces termes et aussi dans quelles conditions on les utilise.

Abel.

 

[Evelynetfrancois]

bonjour laurent bonjour a tous

Quand tu auras tout compris des fonctions de
Sheet
Range
End
Value
Change
Initialize
je pense que tu n'auras plus besoin de venir ici lol !!!!

le mieux pour apprendre et , je crois , de developper un vrai projet
plutot que d'apprendre tout les tenants et aboutissant de la programmation VBA par coeur

ici sur ce site tu a des milliers d'exemples qui je pense te feront decouvrir les significations des termes cites plus haut
d'autre part essayes d'utiliser l'enregistreur de macro , lui aussi va t'expliquer beaucoup de choses ...............

a plus sur ce site merveilleux !!!!!!!!!!!!!!!

E et F

 

[Michel_M]

Bonjour,

Sur ce site tu peux trouver pas mal d'explications:

Tu vas dans le WIKI (voir en haut de l'écran) et tu cliques sur actualiser ou F5 et tu vas dans les pages de Michel_xld qui sont un bonheur pour tout usager débutant ou confirmé;

Dans les téléchargements, tu trouveras des tutoriaux que tu peux télécharger

Enfin sur la toile, tu as plein de sites d'explications en cherchant VBA Excel (mon préféré:www.info-3000.com)

Bonne découverte

Michel

 

[laurent67]

ben la j'ai mis un fichier qui me serre 'd'exemple
si qqu peut me dire pk il me trouve une erreur dans la 2eme ligne

merci bonne soiree

 

[Hervé]

rebonjour laurent

ScrollBar1.Max = Sheets("feuil2").Range("a65000").End(x1Up).Row

ce code te permet de définir le maximum d'un srcollbar.

Sheets("feuil2").Range("a65000").End(x1Up).Row signifie :

trouver dans la feuille 2 (sheets("feuil2") à partir de la cellule a65000 (Range("a65000")) la derniere (end(xlup)) ligne non vide (row).

si tu fais :
Sheets("feuil2").Range("a65000").End(x1Up).Row+1, tu auras la derniere ligne vide de la colonne A de la feuille 2

Sheets("feuil1").Range("d65000").End(x1Up).Row+1= derniere ligne vide de la colonne D de la feuille 1

A savoir que cette donnée est renvoyé sous forme de chiffre.

Si de a1 à a10 tu as des valeurs : L=Sheets("feuil1").Range("A65000").End(x1Up).Row te donnera L=10

donc : ScrollBar1.Max=L permettra de fixer le maximum à 10.

Dans ton exemple remplace (x1Up) par (xlUp) et tout rentrera dans l'ordre.

Salut
Hervé

 

[laurent67]

bonjour

merci hervé pour ton aide

j'ai encore un question
quand je bouge la barre ca marche mais quand je remonte en 0 il fait une erreur 1004
de quoi ca peut venir

merci a tout personne qui peut m'aider
@+laurent

 

[Hervé]

Bonjour

Comme je te l'ai dit dans un précédent post, c'est le mini de ton scrollbar qui génère cette erreur. tu as réglé le max mais tu as laissé le mini à 0.

donc : .Range("a" & ScrollBar1.Value) fait référence à A0 qui n'existe pas.

2 solutions :

par code : ScrollBar1.Min = 1

par propiété du scrollbar : réglé le mini à 1.

Salut
Hervé