Conversion en nombre

bonjour

je reçois un fichier format Texte et je le convertie au format Excel, vu que la tache est itératif, j'ai enregistré un macro, mais il reste une procédure concernant l'ajout de bordure que je doit l'adapter au nombre de ligne et la conversion en nombre qui ne se lis pas. vous trouverez CI-JOINT un exemple facilitant le problème.

je n'ai pas enregistré la proced de l'insertion des bordures vu sa longueur

voila la proced

Sub traiter()

Columns("A:A").Select

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _

:="|", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

Columns("H:H").Select

Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Selection.NumberFormat = "#,##0.00"

Range("H11").Select

ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[58]C)"

Range("H12").Select

ActiveWindow.SmallScroll Down:=-24

Range("H11").Select

Selection.Font.Bold = True

End Sub

cordialement

Bonjour

Modifies la partie correspondante

  Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
                    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                    ReplaceFormat:=False

pardon, je n'ai pas compris, ca concerne le remplacement d'un point par une virgule! j'ai pas saisi à quoi vous faisiez allusion

Bonjour

Regardes bien (ou fais un copier/coller) il y a un . (point) pour le "Replacement:="

En plus dans ton code il n'y a qu'un "Replace", donc ce n'est pas compliqué à faire la modification

oui, cela a bien marché, merci, est ce que je peut ajouter une procédure qui peut insérer des bordures selon le nombre de ligne, parfois; il y 'en a 200, parfois 90 , 100 etc. celui des colonnes est fixe.

s'il est possible bien entendu , si non je suis acculé à le faire manuellement.

merci 2ème fois

Bonjour à toi aussi

A tester

je vous conjure de m'excuser

un grand Bonjour à vous, et merci pour la réponse, elle est parfaite

merci et à très bientôt