Mise en forme

camarchepas

XLDnaute Barbatruc

• 19 Mai 2010

• #2

Re : Mise en forme

Bonjour,

Voici mon exercice :

 

Dernière édition: 14 Juin 2010

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 19 Mai 2010

• #3

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Mai 2010

• #4

Re : Mise en forme

bonjour titiborregan5

Vois en feuil2 si cela te convient

Edit : salut camarchepas
Je n'avais pas rafraichi

 

Pièces jointes

• titiborregann_mise en forme.zip

  16.3 KB · Affichages: 19

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 19 Mai 2010

• #5

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

Code:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Mai 2010

• #6

Re : Mise en forme

Re

Teste ceci

Code:

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

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 19 Mai 2010

• #7

Re : Mise en forme

Magique!!!

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


Tibo

 

Vote positif 0 Vote négatif

cibleo

XLDnaute Impliqué

• 20 Mai 2010

• #8

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 😎

Code:

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

 

Pièces jointes

• Arrangements.xls

  39.5 KB · Affichages: 75
• Arrangements.xls

  39.5 KB · Affichages: 73
• Arrangements.xls

  39.5 KB · Affichages: 43

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Mai 2010

• #9

Re : Mise en forme

Bonsoir

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

Avec cela donne

Code:

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

 

Dernière édition: 20 Mai 2010

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 20 Mai 2010

• #10

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 .

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Mai 2010

• #11

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 ?)

 

Vote positif 0 Vote négatif

cibleo

XLDnaute Impliqué

• 20 Mai 2010

• #12

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

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 20 Mai 2010

• #13

Re : Mise en forme

Re moi ,

Pour démonstration ( Merci Staple)

 

Pièces jointes

• Arrangements.xls

  48.5 KB · Affichages: 41
• Arrangements.xls

  48.5 KB · Affichages: 41
• Arrangements.xls

  48.5 KB · Affichages: 41

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Mai 2010

• #14

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é

 

Vote positif 0 Vote négatif