Assembler des valeurs de manière aléatoire

bonjour à tous,

après quelques recherches infructueuses, je me tourne vers votre savoir

Voici ce que je cherche à faire :

dans une plage de cellules A1:A100, j'ai des variables, par exemple des noms.

dans une plage de cellules B1:B100, j'ai des variables, par exemple des prénoms.

je cherche à les concaténer de manière aléatoire dans une 3e plage de cellules (colonne C).

le résultat final serait une plage de noms et prénoms composée au hasard.

Merci d'avance de vos réponses.

Daz

Salut,

Copie colle le code dans un module :

ALT F11, CLICK DROIT SUR MODULES DANS LA FENETRE DE GAUCHE, INSERTION MODULE

Colle le code suivant :

Option Explicit
Function nom_prenom_aleatoire(Nom As Range, Prenom As Range) As String

Application.Volatile

Dim nomprenom As String
Dim valeurrnd As Double

'Selection du nom
Randomize
valeurrnd = Int((Nom.Count * Rnd) + 1)
nomprenom = Cells(valeurrnd, Nom.Column).Value

'Selection du prenom
Randomize
valeurrnd = Int((Prenom.Count * Rnd) + 1)
nomprenom = nomprenom & " " & Cells(valeurrnd, Prenom.Column).Value

nom_prenom_aleatoire = nomprenom

End Function

Ensuite dans excel, selectionne une cellule, puis clique sur Formule, personnalisée, et selectionne la nouvelle fonction.

Dis moi si c'est OK ou si je suis a coté.

NB : Aleatoire => Risque de doublons....

++ Bigdams

Bonjour

ou avec une formule

Exemple joint

Cordialement

Bonjour

ou en panachant Macro et formule pour avoir les noms sans doublon.

Cordialement

Bonjour à tous,

je n'ai pu revenir immédiatement pour voir vos réponses, mais en tout cas, bravo et merci. je vais adopter la formule d'Amadeus, sans la macro (plus simple, et j'identifierai les doublons dans un second temps).

Merci pour votre aide précieuse

Dazibao