Boucle trop longue

bonjour tous le monde en reprenant le code de charly qui pour moi est le plus prometteur l utilisation d un tableau intermediere ya pas plus rapide moins d une seconde sur 50000 lignes ...donc en bidouillant un peu sur excel 2003 j arrive a un resultat est ce que l espace a la fin gene !!! pour d autres calcul essayer de le supprimer !!! Sub charly()
Dim Tableau
Dim i&, l&
Dim Plage As Range
Set Plage = Range('k2', Range('k65536').End(xlUp))
Tableau = Plage
For i = 1 To UBound(Tableau)
Tableau(i, 1) = (Tableau(i, 1)) & ' '
Next i
Plage = Tableau
Tableau = Plage
For l = 1 To UBound(Tableau)
Tableau(l, 1) = Replace(Tableau(l, 1), '.', '/')
Next l
Plage = Tableau
Erase Tableau
End Sub
'salutations

Bonjour Adeus33, le Fil


Pour transformet en texte, il faut sélectionner la colonne puis 'format' 'cellule' 'nombre' 'texte'

On retrouve ce problème au niveau des dates lorsque l'on importe un fichier texte dans word.
Si excel reconnait une date (xx xx xxxx) il considére quelle est sous le format jj/mm/aaaa ( paramètres internationaux ) et par défaut la transforme à la forme mm/jj/aaaa sauf si on spécifie JMA (code 4 dans une macro Array(x,4)).
Avant de faire cette transformation le logiciel vérifie la cohérence des données, la valeur pour un mois est comprise entre 1 et 12

JP

Message édité par: jp14, à: 08/03/2006 15:47

Message édité par: jp14, à: 08/03/2006 15:47

Merci beaucoup pour ses conseils, je ne vais pas avoir le temps cet après midi mais je vais essayé

Merci beaucoup pour ses conseils, je ne vais pas avoir le temps cet après midi mais je vais essayé, en tout cas je vous tiendrais au courant.

Message édité par: adeus33, à: 08/03/2006 13:51

Bonjour

Une autre solution, utiliser l'option convertir du menu Données

Sub Macro2()
Range('A1:A12').Select
Selection.TextToColumns Destination:=Range('A1'), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 4), Array(10, 1)), TrailingMinusNumbers:=True

End Sub

JP

Bonsoir à toutes et à tous 🙂

Wouaouh !!! Super idée ! Si elle fonctionne sur les données d'Adeus, elle sera probablement la plus rapide.

A+ 😉