Résultats de la recherche

Salut à tous ! je rencontre des difficultés à traduire cette formule excel :=NB(TROUVE(" "&{1;2;3;7;9;10}&" ";" "&Feuil6!$B3&" "))>1 en Vba Voila Merci à vous!

Bonjour à tous , heureux de vous retrouver !! voici un extrait de mon code: Sub combinaisons() Dim lin&, col&, rc&, m%, n%, o%, p%, q%, tir$() lin = 1 col = 0 rc = Rows.Count ReDim tir(1 To rc, 0) For m = 1 To 20 For n = m + 1 To 20 For o = n + 1 To 20...

Bonjour à tous , voila j'ai code qui génère des combinaisons pour des match de foot : seulement voila en augmentant le nombre de choix "x", j'ai le message suivant " l'indice n'appartient pas à la sélection '9'" j'ai remplacé ma variable :grilles as "integer" par "long" et là excel cesse...

Bonjour à tous, je souhaite effectuer des tirages au sorts en favorisant quelque numéros exemple ; sub tir dim t as range , r as range set r=[A1:A10] nb=r.count set t= r(int(1+Rnd*nb)) end sub je souhaite pouvoir attribuer aux numéros de ma liste plus ou moins de chance de sortie...

Bonsoir à tous je cherche un code pour afficher toutes les combinaisons de 3 numéros possible et sans doublons de cette liste de numéros :" 6 15 20 19 7 14 27 30 25 33 16 9 36 37 22 31 29 18" il y a 816 ! combinaisons possible. Merci de votre aides A+

Bonsoir à tous je cherche l’expression VBA pour dire : au moins trois numéro parmi une liste voici mon code: Sub g() Dim c As Range, cpt As Long listeA =(12,18,19,7,5,13,10,4,14) For Each c In [A1:A200] If c.Value like 'contient au moin 3 numéros de la liste A Then...

Bonsoir à tous j'ai une difficulté à crée une Range qui ne prend en compte que les cellules non vides de la colonne A et B ** le nombre de cellules non vides est variable. voici une parti de mon code : Dim t As Range Set t = ['toute les cellule non vide] t.select Merci de votre...

Bonsoir à tous j'ai un léger pb que j'arrive pas à résoudre: If n.Value Like ("*8*") Then n.Select j'utilise le code suivant pour trouver si la cellule contient un 8 cela fonctionne bien mais si je veux ajouter un autre numéros ça ne marche plus :confused: voci ceux que j'ai essayer...

Bonjour à tous ! je souhaite croiser deux code (proposé gentillement par job75) pour que le premier tir aléatoirement et sans doublons un nombre défini de tirage ex: 10 qui sont colorier en bleu. en suite à partir du dixième tirages .on continu uniquement sur les cellules non colorée...

Bonjour à tous , je n'arrive pas à traduire en code Vba : sélectionner une plage de la colonne A jusqu'à la dernier cellule non vide et de la colonne B jusqu’à la derinere cellule non vide. voici ceux que j'ai essayer :Dim Plage As Range Set Plage = Range(Cells("A1",[A65000].End(xlUp)...

Bonjour à tous , je cherche à modifier un code qui est très long quand il y a beaucoup de cellule à traiter ! * je souhaite que chaque cellule tirée (bleu) ne soit plus prise en compte pour le tirage suivant .... jusqu’à ceux que la cible soit atteinte. Sub Tirage() Dim r As Range...

bonjour à tous , je cherche un code VBA , capable de tirer aléatoirement et sans doublons dans une liste de donnée. le but étant de: - colorier chaque cellule tirée. - de s’arrêter lorsque le nb de tirages "max" est atteint voila j'espère avoir était...

bonsoir à tous , je souhaite tirer au sort 7 numéros de la colonne A et les afficher en colonne E. j'ai essayer la formule =Aléa.ENTRE.BORNE .... mais ne fonctionne pas. merci de votre aides

Bonsoir à tous je cherche un code simple pour tirer au sort 5 numéros parmi 20 les afficher . puis tirer une seconde fois 1 numéros parmi ces 5 numéros . et l'afficher voici mon ficher avec un exemple merci

salut à tous , j'ai un fichier ci-joint qui m'affiche les combinaisons loto foot . je souhaite afficher aussi les gains potentiel connaissant les cote, en bas de chaque combinaison . *pour être clair voici un exemple : pour combiner deux match ayant les cotes suivantes : - 1.85...