EXCEL: Nombre en format texte
Fermé
NoSpe13
Messages postés
7
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
15 juillet 2008
-
27 juin 2008 à 11:24
JR.jo Messages postés 1 Date d'inscription jeudi 13 mars 2014 Statut Membre Dernière intervention 13 mars 2014 - 13 mars 2014 à 08:32
JR.jo Messages postés 1 Date d'inscription jeudi 13 mars 2014 Statut Membre Dernière intervention 13 mars 2014 - 13 mars 2014 à 08:32
A voir également:
- EXCEL: Nombre en format texte
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si et excel - Guide
- Excel moyenne - Guide
12 réponses
robinho59600
Messages postés
752
Date d'inscription
vendredi 6 juin 2008
Statut
Membre
Dernière intervention
16 septembre 2009
91
27 juin 2008 à 11:27
27 juin 2008 à 11:27
Format --> Cellules --> Nombres :-$
Je sais c'est la base mais je vois pas autrement désolé
Je sais c'est la base mais je vois pas autrement désolé
zavenger
Messages postés
811
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
20 avril 2012
161
27 juin 2008 à 11:33
27 juin 2008 à 11:33
Salut, tes parameters regionaux sont bien mis pour avoir les nombres avec un espace comme separateur de milliers?
NoSpe13
Messages postés
7
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
15 juillet 2008
27 juin 2008 à 11:41
27 juin 2008 à 11:41
Format --> Cellules --> Nombres :-$
Je sais c'est la base mais je vois pas autrement désolé
Déjà tenté mais cela ne donne rien... Merci tout de même
Salut, tes parameters regionaux sont bien mis pour avoir les nombres avec un espace comme separateur de milliers?
Oui... Mais lors de la conversion j'obtiens #VALEUR!
Je sais c'est la base mais je vois pas autrement désolé
Déjà tenté mais cela ne donne rien... Merci tout de même
Salut, tes parameters regionaux sont bien mis pour avoir les nombres avec un espace comme separateur de milliers?
Oui... Mais lors de la conversion j'obtiens #VALEUR!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
NoSpe13
Messages postés
7
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
15 juillet 2008
27 juin 2008 à 21:28
27 juin 2008 à 21:28
Personne pour m'aider?
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 261
27 juin 2008 à 21:44
27 juin 2008 à 21:44
si si...
Ajoute ce code après ton collé en mettant les noms et plages qui t'interessent (numeriques)
eric
PS : enlève le ; ajouté par ccm après A1:A5
Ajoute ce code après ton collé en mettant les noms et plages qui t'interessent (numeriques)
Dim c As Range
For Each c In Workbooks("Classeur1.xls").Worksheets("Feuil1").Range("A1:A5")
c.Value = Replace(c.Value, " ", "") * 1
Next c
eric
PS : enlève le ; ajouté par ccm après A1:A5
NoSpe13
Messages postés
7
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
15 juillet 2008
1 juil. 2008 à 08:28
1 juil. 2008 à 08:28
Hello,
Je viens de reprendre mon boulot sur ce programe et voici la correction
Dim c As Range
For Each c In Workbooks("Donnees Serveurs.xltm").Worksheets("AIMG").Range("A:U")
c.Value = Replace(c.Value, " ", "") * 1
Next c
Comme tu peux le constater je n'ai fait que de remplacer les valeurs et noms par ceux de mon classeur mais une fois que j'execute, j'obtiens l'erreur suivante:
Erreur d'execution 13
Incompatibilité de type
ceci en surlignant la ligne
c.Value = Replace(c.Value, " ", "") * 1
Merci de m'aider.
Je viens de reprendre mon boulot sur ce programe et voici la correction
Dim c As Range
For Each c In Workbooks("Donnees Serveurs.xltm").Worksheets("AIMG").Range("A:U")
c.Value = Replace(c.Value, " ", "") * 1
Next c
Comme tu peux le constater je n'ai fait que de remplacer les valeurs et noms par ceux de mon classeur mais une fois que j'execute, j'obtiens l'erreur suivante:
Erreur d'execution 13
Incompatibilité de type
ceci en surlignant la ligne
c.Value = Replace(c.Value, " ", "") * 1
Merci de m'aider.
NoSpe13
Messages postés
7
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
15 juillet 2008
1 juil. 2008 à 08:41
1 juil. 2008 à 08:41
J'ai essayé en enlevant le "*1" mais la je tourne en boucle...
Le curseur tremble et change sans arret entre le sablier et la fleche...
Merci pour ton aide
Le curseur tremble et change sans arret entre le sablier et la fleche...
Merci pour ton aide
NoSpe13
Messages postés
7
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
15 juillet 2008
1 juil. 2008 à 10:30
1 juil. 2008 à 10:30
Petite précision...
Le texte que je copie/colle provient d'un fichier en format "texte unicode"...
Cela peut il etre la cause de cette erreur???
Merci.
Le texte que je copie/colle provient d'un fichier en format "texte unicode"...
Cela peut il etre la cause de cette erreur???
Merci.
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 261
15 juil. 2008 à 10:27
15 juil. 2008 à 10:27
Bonjour,
c'était écrit vite...
Essaie avec celui là plus détaillé :
Si tes données sont bien groupées, pour accélerer le traitement tu peux mettre :
For Each c In Workbooks("Donnees Serveurs.xltm").Worksheets("AIMG").Range("A1").CurrentRegion.Select
Si ça ne marche toujours pas il faudra déposer un extrait de ton fichier sur cijoint.fr et coller le lien ici. Ce que tu prends pour des espaces n'en sont peut être pas...
eric
c'était écrit vite...
Essaie avec celui là plus détaillé :
Dim c As Range
Application.ScreenUpdating = False
For Each c In Workbooks("Donnees Serveurs.xltm").Worksheets("AIMG").Range("A:U")
If VarType(c.Value) = vbString Then
c.Value = CDbl(Replace(c.Value, " ", ""))
End If
Next c
Application.ScreenUpdating = True
Si tes données sont bien groupées, pour accélerer le traitement tu peux mettre :
For Each c In Workbooks("Donnees Serveurs.xltm").Worksheets("AIMG").Range("A1").CurrentRegion.Select
Si ça ne marche toujours pas il faudra déposer un extrait de ton fichier sur cijoint.fr et coller le lien ici. Ce que tu prends pour des espaces n'en sont peut être pas...
eric
Génial ton lien !
Il m'a permis de résoudre un problème sur lequel je me battais depuis 1/2H !
Ah, les espaces non sécables...
Il m'a permis de résoudre un problème sur lequel je me battais depuis 1/2H !
Ah, les espaces non sécables...
Je cherchais un moyen de remplacer les espaces des nombres (qui ne sont pas compris comme telle sous excel, et j'ai trouvé une solution simple ..
Mettre tous les nombres dans un document word (faire un ctrl flèches du bas pour avoir toutes la colonne ou ctrl flèche de gauche ou droite pour avoir toutes la ligne).
Contrôle C (ou copier Coller) sous word.
Faire Remplacer (contrôle F) mettre un espace dans rechercher. (Ne rien mette dans remplacer) faites enter, et voila.
Plus qu'a recopier sous excel et le tour est joué. (ctrl A pour tous sélectionner)
Mettre tous les nombres dans un document word (faire un ctrl flèches du bas pour avoir toutes la colonne ou ctrl flèche de gauche ou droite pour avoir toutes la ligne).
Contrôle C (ou copier Coller) sous word.
Faire Remplacer (contrôle F) mettre un espace dans rechercher. (Ne rien mette dans remplacer) faites enter, et voila.
Plus qu'a recopier sous excel et le tour est joué. (ctrl A pour tous sélectionner)
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 718
20 oct. 2010 à 19:05
20 oct. 2010 à 19:05
Bonjour,
Ne serait-ce pas plus simple encore de faire directement ctrl + h sous excel ?
Ne serait-ce pas plus simple encore de faire directement ctrl + h sous excel ?
JR.jo
Messages postés
1
Date d'inscription
jeudi 13 mars 2014
Statut
Membre
Dernière intervention
13 mars 2014
13 mars 2014 à 08:32
13 mars 2014 à 08:32
Une réponse un peu tardive. Mais le sujet remonte toujours sans réponse lors d'une recherche.
Voici une macro retrouvée sur le net qui m'a donné satisfaction :
'Macro à utiliser sur les cellules de nombres au format texte.
'Suppression des caractères parasites et transformation du format texte en nombre.
Sub Txt_Nbr()
For Each Cell In ActiveWindow.RangeSelection
With Cell
oldfmt = .NumberFormat
n$ = .Value
filt$ = ""
For i = 1 To Len(n$)
char$ = Mid(n$, i, 1)
Select Case char$
Case "A" To "Z", "a" To "z", 0 To 9, ",", "!", ".", "?"
filt$ = filt$ & char$
End Select
Next i
.NumberFormat = "@"
.Value = filt$
.NumberFormat = oldfmt
End With
If Cell <> "" Then
Cell.Value = CDbl(Cell.Value)
End If
Next Cell
End Sub
Voici une macro retrouvée sur le net qui m'a donné satisfaction :
'Macro à utiliser sur les cellules de nombres au format texte.
'Suppression des caractères parasites et transformation du format texte en nombre.
Sub Txt_Nbr()
For Each Cell In ActiveWindow.RangeSelection
With Cell
oldfmt = .NumberFormat
n$ = .Value
filt$ = ""
For i = 1 To Len(n$)
char$ = Mid(n$, i, 1)
Select Case char$
Case "A" To "Z", "a" To "z", 0 To 9, ",", "!", ".", "?"
filt$ = filt$ & char$
End Select
Next i
.NumberFormat = "@"
.Value = filt$
.NumberFormat = oldfmt
End With
If Cell <> "" Then
Cell.Value = CDbl(Cell.Value)
End If
Next Cell
End Sub
NoSpe13
Messages postés
7
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
15 juillet 2008
15 juil. 2008 à 10:07
15 juil. 2008 à 10:07
rebonjour a vous tous,
Malheuresement je n'y arrive toujours pas...
Quelqu'un pour m'aider???
Merci par avance...
Malheuresement je n'y arrive toujours pas...
Quelqu'un pour m'aider???
Merci par avance...
12 févr. 2009 à 12:09
c'est là ou j'ai trouvé la solution a un prob pareil