Mélange de cellule automatique
Bonjour à tous,
J'ai une feuille xlsm dans laquelle je peux mélanger les cellules de la colonne A, grâce à une macro que l'on actionne par un bouton forme.
Dans un but statistique, j'étudie et répertorie dans la colonne C, après chaque mélange, les combinaisons que forment les cellules de la colonne A par groupe de 8 cellules. Ces combinaisons se modifient donc à chaque mélange de la colonne A.
J'ai répertorié dans un tableau de la colonne IJ l'ensemble des combinaisons possibles pour un échantillon de 8 cellules que j'ai numérotées de 1 à 256
Je reporte donc dans la colonne C les numéros correspondant des combinaisons trouvées dans la colonne A.
Par exemple:
la cellule C8 donne le numéro de la combinaison des cellules de A1 à A8,
la cellule C9 donne le numéro de la combinaison des cellules de A2 à A9,
la cellule C10 donne le numéro de la combinaison des cellules de A3 à A10, etc
Ce que j'aimerais, c'est que le système mélange automatiquement la colonne A et s'arrête quand il trouve un doublon de numéro de combinaison dans la colonne C, mais particulièrement un doublon avec la dernière cellule de la colonne C.
En gros, quel est l'arrangement de la colonne A qui donnera un doublon avec la dernière cellule de la colonne C (ici C21) avec une des autres avant elles (C8 à C20)?
Jusqu'à présent, je le fais manuellement: je mélange la colonne A et je regarde à chaque fois ce que ça donne en colonne C. Et ça peut prendre beaucoup de temps...
Je souhaiterais donc faire la recherche automatiquement et rapidement, et aussi de pouvoir relancer la recherche à volonté.
Merci d'avance pour votre aide, j'espère que ce n'est pas trop casse tête à faire à faire...!
Jérôme
Bonsoir à tous,
Merci beaucoup H2so4 pour ta réponse rapide et ta proposition!
C'est tout à fait ce que je recherche mais je rencontre quelque petits problèmes:
Je bosse sur Mac et le processus de mélange ne s'arrête jamais... J'ai pu testé sur Pc, ça fonctionne, j'ai juste remplacé >1 par =1 pour avoir un seul doublon de la cellule de référence C21:
If Application.CountIf(Range("C8:C120"), Range("c21")) = 1 Then Exit Do
Par la suite, je vais être amené à ajouter ou à supprimer des valeurs dans la colonne C.
Est-il alors possible de prendre en compte seulement la dernière cellule de la colonne C comme cellule de référence (C21 dans l'exemple ci dessus) dans tous les cas et peu importe le nombre de cellule dans cette colonne?
Du coup, si je remplis jusqu'à C28, le doublon serait recherché dans la plage C8:C27, de même si je ne remplis que jusqu'à C12, la plage de recherche serait de C8:C11 etc.
Mille mercis!
Jérôme
Bonjour,
C'est parfait!! ça marche très bien même sur mac et c'est exactement ce dont j'ai besoin.
Merci infiniment pour ton travail!!
Bon week-end
Jérôme