VBA - Pbs Formules Rnd + Avis

[newpixi]

Bonjour à tous,

Je ne suis pas sur que l'erreur provienne de la fonction rnd() mais plutot de la fonction .count. Ma macro s'arette en effet "une ligne" avant la fin, et m'indique une mauvaise valeur de variable. Je sais, ce n'est absolument pas clair, c'est pour cela que j'ai crée un fichier joint

Le problème est exposé dans le fichier joint,

Pour toutes questions/informations n'hésitez pas à demander

Cordialement

Antoine

 

[pierrejean]

Re : VBA - Pbs Formules Rnd + Avis

bonjour newpixi

vois si cela va mieux

Nb: je n'ai regardé que le point que tu soulevais

 

[newpixi]

Re : VBA - Pbs Formules Rnd + Avis

Bonsoir pierrejean,

Merci, c'est exactement la réponse que je souhaitais. Je ne suis pas sur de comprendre pas pourquoi ta ligne de code fonctionne:

p = Sheets("joueur").Range("A65536").End(xlUp).Row

alors que la mienne ne marche pas:

p = Sheets("joueur").Range("A1", Range("A1").End(xlDown)).Count

Cela vient-il du fait que pour ma ligne le référentiel de départ (A1) est justement la case à effacer?

Dans tous les cas merci,

Antoine