[Résolu] Macro générateur aléatoire

Off

XLDnaute Nouveau
Bonjour,

dans le fichier joint, j'ai une problématique + une macro associée qui ne répond que partiellement....

Tout est décrit dans le classeur.

Merci pour votre aide (qu'il y ait ou non une solution)

David
 

Pièces jointes

  • Classeur1.xlsm
    28.2 KB · Affichages: 71

Jacky67

XLDnaute Barbatruc
Bonjour,

dans le fichier joint, j'ai une problématique + une macro associée qui ne répond que partiellement....

Tout est décrit dans le classeur.

Merci pour votre aide (qu'il y ait ou non une solution)

David
Bonsoir,
En ajoutant ces lignes en fin de la macro actuelle, il n'y aura plus de doublon de service dans les 4 premier.

VB:
'-------
'-------
  For i = 1 To 4
  For j = i + 1 To 4
  If Right(Cells(i, 1), 2) = Right(Cells(j, 1), 2) Then
  x = x + 1
  End If
  Next
  Next
  If x > 0 Then Call TriColonneAleatoire
End Sub
 

Pièces jointes

  • Dejeuner (1).xlsm
    26.8 KB · Affichages: 61

Statistiques des forums

Discussions
314 198
Messages
2 107 089
Membres
109 750
dernier inscrit
JBOOTS