Discussion :

[nemog]

Bonjour,

Je connais un peu VBA pour Access et vais sûrement m'y mettre pour Excel
Mais par manque de temps, je pose une question ici parce que je n' ai pas trouvé de moyen simple de le faire :

J'ai un classeur XL imbuvable avec des dizaines de feuilles
Sur certaines, il y a des cellules contenant un nombre au format texte ## ## ##
Je voudrais transformer le format de ces cellules en ######

J'ai essayé par l'intermédiaire du CTRL-H mais sans succès (peut-être est-ce faisable quand même ?)

ou peut-on m'écrire un pitit code siouplait ?

Merci, cordialement

Nemog

[EricDgn]

Bonjour,

Oui, c'est bizarre que Ctrl-h ne permette pas de le faire. Aussi ce code qui va chercher dans la feuille active toutes les cellules où il se trouve un nombre qui à la forme xx xx xx et le transforme en nombre xxxxxx. Ne marche que s'il y a vraiment 6 chiffres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Sub TextEnNombre()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange
        If c Like "## ## ##" Then
            c.Replace What:=" ", Replacement:=""
            c.NumberFormat = "0"
        End If
    Next c
End Sub

Cordialement.

[Qwazerty]

Salut

La forme ## ## ## est imposée par une mise en forme du format de la cellule ou est ce que les espaces entre les chiffres sont réellement présents?

++
Qwaz

[nemog]

en creusant un peu plus, j'ai l'impression que ça a été écrit comme ça, pas vraiment un format imposé
mais j'essaie d'imposer une règle : tout ce qui se présente comme 21 ## ## doit devenir 21####

mes tentatives semblent se heurter à un "verrouillage", mais ni les cellules ni les feuilles ne semblent l'être !
et j'ai aussi cherché dans les propriétés du fichier

grrrrrrr !

merci Qwazerty

Merci EricDGN, mais je ne pourrai essayer que lundi

Cordialement

Nemog

[Qwazerty]

Tu n'a pas moyen de nous donner un extrait anonymisé du fichier?
Si toutes les valeurs commencent par "21 "
Tu peux essayer de faire en 2 étapes

1. Tu fais une recherche de toutes les cellules commençant par "21 " (Ctrl+F et tu recherches "21 *". Tu sélectionnes ensuite toutes les valeurs qu'Excel te retourne dan la liste de la fenêtre de recherche.
2. En gardant la sélection, tu fais un remplacement du caractère " " (espace) par "" (vide)

Excel devrait retrouver les formats numériques et te proposer de changer le format "text" en format "numéric"

++
Qwaz

[EricDgn]

Bonjour,

Attention, si ces nombres sont des dates au format aa mm jj, alors c'est plutôt ceci qu'il faudrait utiliser, pour changer cela dans toutes les feuilles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub EnDates()
    Dim wSh As Worksheet, c As Range
    For Each wSh In ThisWorkbook.Worksheets
        For Each c In wSh.UsedRange
            If c Like "## ## ##" Then
                c = CDate("20" & Replace(c, " ", "-"))
                c.NumberFormat = "dd/mm/yyyy"
            End If
        Next c
    Next wSh
End Sub

(dates supposées être toutes après l'an 2000).

Cordialement.