Mise en forme

[titiborregan5]

Bonjour à tous,
je cherche à automatiser une mise en forme, qui comprend 3 étapes:
1/ J'ai des chiffres séparés par une "," que je souhaite passer 1chiffre par celulle (en colonne) par convertir...((1,2,3,4,5,6) en ( 1|2|3|4|5|6)

2/ mettre les chiffres dans la bonne colonne (il n'y a que 6 valeurs, de 1 à 6)
1 dans colonne 1, 2 dans colonne 2, ..., 6 dans colonne 6

3/ supprimer les lignes vides (au pire je trouverai pour ce critère, il y a des topics à foison sur ce forum)

Le fichier joint explique également ma demande.
Merci d'avance

Tibo

 

[camarchepas]

Re : Mise en forme

Bonjour,

Voici mon exercice :

 

[titiborregan5]

Re : Mise en forme

Bonjour camarchepas, et pour le coup ça marche très bien...
Un grand merci, j'arrivais à faire la 1ère étape mais pas du tout la 2ème!!


Encore merci

Tibo

 

[pierrejean]

Re : Mise en forme

bonjour titiborregan5

Vois en feuil2 si cela te convient

Edit : salut camarchepas
Je n'avais pas rafraichi

 

[titiborregan5]

Re : Mise en forme

Bonjour Pierrejean, camarchepas, le forum
merci pour ton fichier qui marche très bien également et qui est beaucoup plus court... et qui remplace directement les étapes!
Par contre je n'arrive pas à l'adapter à mon fichier réel, qui comporte beaucoup plus de lignes...
Avec celui de camarchepas je ne trouve pas où est géré le nombre de lignes... :$ cela s'arrête à 60???
et avec celui de pierrejean je pensais que c'était calculé automatiquement mais j'ai une erreur de type 13, sur la ligne en rouge

Sub report()
Application.ScreenUpdating = False
For n = Range("A65536").End(xlUp).Row To 5 Step -1
  If Range("A" & n) = "" Then Rows(n).Delete
Next n
 For n = 5 To Range("A65536").End(xlUp).Row
  x = Split(Range("A" & n), ",")
  For m = LBound(x) To UBound(x)
[COLOR="Red"]     Cells(n, x(m) + 1) = x(m)[/COLOR]
  Next m
 Next n
Application.ScreenUpdating = True
End Sub

Je ne sais pas à quoi c'est du ni comment éviter cela...
Pour info: j'ai mes chiffres à virgule 1,2,3,4,5,6 en M et je voudrais la convertion en N à S.

Encore merci !

Tibo

 

[pierrejean]

Re : Mise en forme

Re

Teste ceci

Sub report()
Application.ScreenUpdating = False
For n = Range("M65536").End(xlUp).Row To 5 Step -1
  If Range("M" & n) = "" Then Rows(n).Delete
Next n
 For n = 5 To Range("M65536").End(xlUp).Row
  x = Split(Range("M" & n), ",")
  For m = LBound(x) To UBound(x)
     Cells(n, x(m) + 13) = x(m)
  Next m
 Next n
Application.ScreenUpdating = True
End Sub

 

[titiborregan5]

Re : Mise en forme

Magique!!!

Merci beaucoup ça fonctionne comme je le voulais... Merci à camarchepas également


Tibo

 

[cibleo]

Re : Mise en forme

Bonsoir le forum,

Une petite incursion sur ce fil, pour adapter la macro Report à mon cas. (module1)

Feuil2, colonne A une liste de 24 arrangements (4 prénoms séparés par des virgules) que j'aimerais décomposer et placer individuellement en colonne C, D, E et F.

Cliquer sur le bouton et voir le résultat.
Tout s'affiche en successivement en colonne C 😎

Sub Report()
Application.ScreenUpdating = False
ligne = 1
For m = 1 To Range("A65536").End(xlUp).Row
   x = Split(Range("A" & m), ", ")
    For N = LBound(x) To UBound(x)
     If Trim(x(N)) <> "" Then
       Range("C" & ligne) = x(N)
       ligne = ligne + 1
     End If
    Next N
Next m
Application.ScreenUpdating = True
End Sub

Pouvez-vous m'aider ?
Cibleo

 

[Staple1600]

Re : Mise en forme

Bonsoir

cibleo
Tellement plus simple d'utiliser Données/Convertir non ?
avec ou sans macro

Avec cela donne

Sub Macro1()
Selection.TextToColumns Range("C1"), xlDelimited, , , , , True
End Sub

 

[camarchepas]

Re : Mise en forme

Bonsoir Staple ,
Oui , mais le sport dans tout ça , lol.

il faut quand même que ça reste un peu mystérieux l'informatique hic hic .

Mais ta solution et oui aussi .

 

[Staple1600]

Re : Mise en forme

Bonsoir

camarchepas
Je n'aime pas ouvrir une boite de conserve avec un démonte-pneu
quand un ouvre-boite suffit 😀

Parfois on peut se passer de macros non, et utiliser les fonctions natives d'Excel (elles sont là pour être utilisées non ?)

 

[cibleo]

Re : Mise en forme

Bonsoir Staple1600,

Pourquoi se compliquer la vie en effet 🙄
Menu que je n'utilise jamais, maintenant c'est fait.

Merci Staple

A bientôt, je reviendrais plus tard sur un autre fil avec une histoire d'arrangements bien plus compliqué à résoudre je pense.

Cibleo

 

[camarchepas]

Re : Mise en forme

Re moi ,

Pour démonstration ( Merci Staple)

 

[Staple1600]

Re : Mise en forme

Re


camarchepas: tu n'avais pas vu que j'avais ajouté du code VBA dans mon message de 19h35 😀

Mais comme c'est pour le sport ... alors vive le sport, comme dirait Gégé