Générer et figer nombre et lettre aléatoires sur une plage sélectionnée?

[waine_99]

Bonjour,

Je souhaite générer par une macro sur une plage de cellule sélectionnée (à la souris), générer une lettre + un chiffre aléatoires du type "X1, B4..."

La formule pour les cellules est:
=CAR(ALEA.ENTRE.BORNES(65;90))&ALEA.ENTRE.BORNES(0;9)

Au niveau de la macro j'en suis à:

Sub ALEATOIRE()
With ActiveCell
.FormulaR1C1 = "=ALEA.ENTRE.BORNES(0,9)"
.Copy
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End Sub

Les problèmes sont:
- si j'essaie de générer la lettre en plus, cela ne fonctionne plus!
- la macro ne s'effectue que sur la cellule sélectionnée et non sur l'ensemble

Merci par avance pour votre aide! 🙂

 

[JCGL]

Re : Générer et figer nombre et lettre aléatoires sur une plage sélectionnée?

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub ALEATOIRE()
With ActiveCell
.FormulaLocal = "=CAR(ALEA.ENTRE.BORNES(65;90))&ALEA.ENTRE.BORNES(0;9)"
.Copy
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End Sub

Si tu souhaites poser une formule XL passe en FormulaLocal

A+ à tous

 

[vbacrumble]

Re : Générer et figer nombre et lettre aléatoires sur une plage sélectionnée?

Bjr à tous


Sans utiliser l'utilitaire d'analyse.

Sub Macro1()
Selection.FormulaR1C1 = "=CHAR(INT((26)*RAND()+65))&INT(RAND()*9)+1"
Selection.Cells.Value = Selection.Cells.Value
End Sub

A+

 

[waine_99]

Re : Générer et figer nombre et lettre aléatoires sur une plage sélectionnée?

Merci pour vos réponses, je vais conserver la méthode vbacrumble plus simple à partager à mes collaborateurs!

 

[job75]

Re : Générer et figer nombre et lettre aléatoires sur une plage sélectionnée?

Bonjour à tous,

Annulé car c'était une solution très semblable à celle de Vbacrumble.

A+