Extraire à partir d'une grille loto

Bonjour à toutes et à tous,

Je cherche le moyen d'extraire un nombre ou un chiffre à partir d'une grille Loto (voir le fichier joint)

Exemple :

Source Ciible

Serie Numéro Etoiles 3, 38, 40, 44, 50 Étoiles 2, 11 3 38 40 44 50 2 11

Merci de votre aide

@+ Norw@y

Bonjour

La cible en A1

Formule en B1

=SUBSTITUE(SUBSTITUE(SUBSTITUE(STXT(A1;21;NBCAR(A1));"Etoiles";"");"Étoiles";"");",";"")

Cordialement

Bonjour Amadéus,

Merci de cette réactivité pour cette proposition, cependant ne maitrisant pas parfaitement la fonction subsitute, j'ai ajouté en pièce joint un fichier en format excel.

Pouvez vous m'apporter votre aide ?

Par avance merci

Norway

Bonjour

Ligne 9

1ere formule colonne C

=SUPPRESPACE(STXT($B9;1;CHERCHE(",";$B9;1)-1))

2éme formule colonne D incrémentée vers la droite jusqu'e colonne G

=SUPPRESPACE(STXT(REMPLACER(SUPPRESPACE(SUBSTITUE($B9;"Étoiles";","));1;SOMMEPROD(N(NBCAR($C9:C9)))+(NBVAL($C9:C9)*2);"");1;CHERCHE(",";REMPLACER(SUPPRESPACE(SUBSTITUE($B9;"Étoiles";","));1;SOMMEPROD(N(NBCAR($C9:C9)))+(NBVAL($C9:C9)*2);"");1)-1))

3ème formule colonne I obtenue par copier coller de G9 sur I9

=SUPPRESPACE(STXT(REMPLACER(SUPPRESPACE(SUBSTITUE($B9;"Étoiles";","));1;SOMMEPROD(N(NBCAR($C9:H9)))+(NBVAL($C9:H9)*2);"");1;CHERCHE(",";REMPLACER(SUPPRESPACE(SUBSTITUE($B9;"Étoiles";","));1;SOMMEPROD(N(NBCAR($C9:H9)))+(NBVAL($C9:H9)*2);"");1)-1))

4ème formule colonne J

=DROITE($B9;2)

Note: les valeurs obtenues sont des valeurs de texte.

Si tu les veux en valeurs numériques, tu ajoute *1 après chacune des formules

Cordialement

Bonsoir Amadeus,

Merci beaucoup pour cette reponse qui me semble justr.

Je ne pourrai pas utiliser ces astuces avant mercredi.

Merci beaucoup de cette spontaneite et reactivite.

Bon we.

norway

Bonjour,

Une autre solution par une fonction VBA utilisant la fonction "SPLIT".

Cordialement

Sélectionner la plage C2:J2

Insérer la fonction "=Split_Loto(B9) * 1"

Et validez par Ctrl+Maj et Entrée

Option Explicit
Public Function Split_loto(cellule As String)

Dim temp

temp = Application.Substitute(cellule, "Etoiles", ",0,")
Split_loto = Split(temp, ",")

End Function

bonjour

petite contribution en formule; mais autrement

il faut admettre que les fonctions pour chaines sont pour le moins "indigestes" parce que très pimentées

c'est la fete du split

cordialement

Bonjour à Toutes et à tous,

Merci beaucoup de cette dernière proposition

Je regarderai plus précisément d'ici une 8aine de jours ...

Bonne journée @+ Norway