séparateur milliers

[darib52]

bonsoir,
j'importe des données à partir de tableaux word.
les données d'origine possédent un séparateur de milliers ( ex: 100.000) qu'est le .
une fois les données importées dans excel, le point se transforme en virgule et je me retrouve avec 100,000, alors qu'il me faut 100000.
que faire ?
- supprimer le séparateur dans word ? comment ? ( je sais, c'est un forum excel )
- créer une macro qui identifie tous les marqueurs de milliers ( et seulement ceux là, car il existe aussi des chiffres 'normaux ' du style 10,05.

je suis preneur de toutes les idées.

amitiés à tous.

 

[chris]

Bonjour
En attendant mieux :
Si j'ai bien compris tes valeurs sont divisées par 1000.
Tape 1000 dans une cellule vide.
Puis copier cette cellule
Sélectionne toutes les valeurs, collage spécial : coche multipliaction dans la partie opération.

 

[andré]

Salut,

Il me semble que la première question qu'il faut se poser est de savoir si les valeurs importées sont des nombres ou du texte (alignement gauche ou droite).

Si c'est du texte, il suffit de faire un rechercher / remplacer de la virgule par '' (rien)

Si ce sont des nombres, la méthode de chris est la bonne.

Â+

 

[darib52]

j'ai créé une macro dans word pour remplacer les . par des (espaces)
ce qui résoud mon pb.
comment puis-je insérer cette macro 'word' dans la macro excel qui copie le doc word ?

voici la macro 'word'
Sub separateur()
'
' separateur Macro
' Macro enregistrée le 07/11/2005 par daniel
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = '.'
.Replacement.Text = ' '
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

et voici la macro excel que j'utilise
Sub Bouton2_QuandClic()
Dim Wrd As Object

Application.ScreenUpdating = False

Set Wrd = CreateObject('word.application')
Wrd.Visible = False
monChemin = InputBox('Saisissez le chemin complet', '')
Wrd.documents.Open (monChemin)
Wrd.Selection.WholeStory
Wrd.Selection.Copy
Sheets('modele').Copy after:=Worksheets(Sheets.Count)
Nom = InputBox('Entrez le nom pour la feuille en cours :')
If Nom <> '' Then ActiveSheet.Name = Nom
Range('aa1').Select
ActiveSheet.Paste
Wrd.Application.Quit
Range('G7').Select
Columns('A:A').ColumnWidth = 34.86
ActiveWindow.SmallScroll Down:=48
Range('A5360').Select
Selection.EntireRow.Delete
ActiveWindow.SmallScroll Down:=30
Range('A8897').Select
Selection.EntireRow.Delete
ActiveWindow.SmallScroll Down:=45
Range('A1:A133').Select
Selection.RowHeight = 25
End Sub


bien sûr j'ai essayé d'insérer l'une dans l'autre et ça ne fonctionne pas.
merci de votre aide

 

[darib52]

j'ai créé une macro dans word pour remplacer les . par des (espaces)
ce qui résoud mon pb.
comment puis-je insérer cette macro 'word' dans la macro excel qui copie le doc word ?

voici la macro 'word'
Sub separateur()
'
' separateur Macro
' Macro enregistrée le 07/11/2005 par daniel
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = '.'
.Replacement.Text = ' '
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

et voici la macro excel que j'utilise
Sub Bouton2_QuandClic()
Dim Wrd As Object

Application.ScreenUpdating = False

Set Wrd = CreateObject('word.application')
Wrd.Visible = False
monChemin = InputBox('Saisissez le chemin complet', '')
Wrd.documents.Open (monChemin)
Wrd.Selection.WholeStory
Wrd.Selection.Copy
Sheets('modele').Copy after:=Worksheets(Sheets.Count)
Nom = InputBox('Entrez le nom pour la feuille en cours :')
If Nom <> '' Then ActiveSheet.Name = Nom
Range('aa1').Select
ActiveSheet.Paste
Wrd.Application.Quit
Range('G7').Select
Columns('A:A').ColumnWidth = 34.86
ActiveWindow.SmallScroll Down:=48
Range('A5360').Select
Selection.EntireRow.Delete
ActiveWindow.SmallScroll Down:=30
Range('A8897').Select
Selection.EntireRow.Delete
ActiveWindow.SmallScroll Down:=45
Range('A1:A133').Select
Selection.RowHeight = 25
End Sub


bien sûr j'ai essayé d'insérer l'une dans l'autre et ça ne fonctionne pas.
merci de votre aide