Aléatoire avec condition

  • Initiateur de la discussion Initiateur de la discussion Roseline
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Roseline

XLDnaute Occasionnel
Bonjour,
J'ai besoin d'aide concernant mon fichier. Si j'inscrit un chiffre dans la colonne C, par exemple 32, je désire que ma commande vba me sorte 32 chiffres aléatoire dans la colonne B. Également si dans ma colonne D, le chiffre est 1020, je veux que ma commande me donne 32 chiffres aléatoire compris entre 0 et 1020. Merci de votre aide
 
Bonjour.
C'est vous qui avez dû ajouter une formule, que vous avez oublié de nettoyer juste avant de produire du nouveau.
ActiveSheet.[a6].Resize(LMax).FormulaR1C1 = "=RC3&""-""&Text(RC4,""00000"")"
Je vois ça à ce qu'il n'est en effet pas dans mes habitude de laisser en minuscule une référence de colonne dans un Evaluate implicite par crochets droits.
En remplaçant :
ActiveSheet.[C6].Resize(100001, 3).ClearContents
par :
ActiveSheet.Rows(6).Resize(100001).ClearContents
on n'a plus de vieilleries persistant à trainer.
 
Bonjour.
C'est vous qui avez dû ajouter une formule, que vous avez oublié de nettoyer juste avant de produire du nouveau.
ActiveSheet.[a6].Resize(LMax).FormulaR1C1 = "=RC3&""-""&Text(RC4,""00000"")"
Je vois ça à ce qu'il n'est en effet pas dans mes habitude de laisser en minuscule une référence de colonne dans un Evaluate implicite par crochets droits.
En remplaçant :
ActiveSheet.[C6].Resize(100001, 3).ClearContents
par :
ActiveSheet.Rows(6).Resize(100001).ClearContents
on n'a plus de vieilleries persistant à trainer.
Ca fonctionne parfaitement. Merci encore de ton aide si précieuse et rapide surtout.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
546
Réponses
15
Affichages
743
Réponses
6
Affichages
295
Retour