aide sur les musiques des chevaux ?

om93

XLDnaute Junior
bonjour , je voudrais savoir si il existe une formule pour convertir automatiquement les musiques des chevaux
merci pour l'aide , je joint le fichier excel
 

Pièces jointes

  • ESSAIE.xls
    16 KB · Affichages: 232
  • ESSAIE.xls
    16 KB · Affichages: 249
  • ESSAIE.xls
    16 KB · Affichages: 258

Cousinhub

XLDnaute Barbatruc
Inactif
Re : aide sur les musiques des chevaux ?

Re-,

puis revenir si je rencontre des problme?

Le forum est fait pour cela, et même si parfois, ça dérape, tous les participants sont là pour aider, soutenir, et proposer des solutions parfois insoupçonnables.
Donc, aucun souci, et "si ce n'est moi, ce sera donc mon frère" qui te répondra.
Bonne soirée, et content que tu aies la réponse à ton problème (du jour.....) :)
 

bqtr

XLDnaute Accro
Re : aide sur les musiques des chevaux ?

Bonsoir,

Par formule je ne sais pas faire mais par macro c'est faisable comme ceci:

Code:
Sub decoupe()

Dim Asupp
Dim cell As Range
Dim k As Integer, j As Integer, m As Integer
Dim Tablo()

m = 1
For Each cell In Range("E1:E" & Range("E65536").End(xlUp).Row)
   For k = 1 To Len(cell)
      If Mid(cell, k, 1) = Chr(40) Then
         Asupp = Mid(cell, k, 4)
         cell = Replace(cell, Asupp, "")
      End If
   Next
   
     For j = 1 To Len(cell) Step 2
       ReDim Preserve Tablo(1 To m)
       Tablo(m) = Mid(cell, j, 2)
       m = m + 1
     Next
   Range("E" & cell.Row).Resize(, UBound(Tablo)) = Tablo
   Erase Tablo
   m = 1
Next

End Sub
Le principe:

La macro liste toutes les cellules non vide de la colonne E puis supprime les (06). ( ou (07),(08).../...)
Ensuite elle découpe le contenu de la cellule par tranche de deux caractères et place ces éléments dans un tableau.
Enfin elle copie le contenu du tableau dans les cellules.

Si tu as Excel 97 cela ne fonctionnera pas, la fonction Replace n'est pas reconnue par cette version.

A+

Edit: Houla, j'avais pas rafraichi ....
 
Dernière édition:

Guido

XLDnaute Accro
Re : aide sur les musiques des chevaux ?

Bonsoir le forum
Bonsoir om93

Si tu vas sur le pseudo iso29 ses messages, tu vas trouver la solution pour

tes courses de chevaux et pour ta musiques des chx.

Un spécialiste maintenant

Guido
 

abcd

XLDnaute Barbatruc
Re : aide sur les musiques des chevaux ?

Bonjour,

Autre approche par formule unique, voir pièce jointe.

Après avoir déplacé les données de E9:E17 en B9:B17
E9 : =STXT(SUBSTITUE($B9;"(06)";"");(COLONNE()-5)*2+1;2)
formule à copier vers le bas et vers la droite.

En variante une formule adaptée au cas où la valeur entre () est variable.

abcd
 

Pièces jointes

  • om93.xls
    31.5 KB · Affichages: 97
  • om93.xls
    31.5 KB · Affichages: 97
  • om93.xls
    31.5 KB · Affichages: 142
J

JJ1

Guest
Re : aide sur les musiques des chevaux ?

Bonjour OM93....sans être curieux, quel est ton âge, car mes ados écrivent le Français exactement comme toi? problême générationnel?

Baunne Jourrner a tou le Faurom !
 

abcd

XLDnaute Barbatruc
Re : aide sur les musiques des chevaux ?

Bonjour om93,

Je crois aussi que tu as un petit problème, tu sembles ne pas t'être donné la peine de consulter le classeu proposé par d'autes, peut-être parce que les données ont été déplacées de collonne, à moins que tu préfères une macro, car il est plus adapté à ton niveau de compétence.

abcd
 

om93

XLDnaute Junior
Re : aide sur les musiques des chevaux ?

bonjour , j'ai regardé les fichiers qu'on ma proposer , mais il y a un problème sur la macro , où alors mettez moi svp , la formule dans la première ligne dans le fichier joint
merci pour votre aide
 

Pièces jointes

  • OM.xls
    24 KB · Affichages: 78

abcd

XLDnaute Barbatruc
Re : aide sur les musiques des chevaux ?

Bonsoir OM93,

A qui t'adresses-tu ?
Tu parles de formule, donc ce pourrait être moi, mais aussi de macro, alors ce n'est plus moi.

Si c'est moi, quelle formule veux-tu, la première avec (06), ou la deuxième avec (??)

abcd
 

Discussions similaires

Statistiques des forums

Discussions
315 083
Messages
2 116 046
Membres
112 642
dernier inscrit
mounamana