Personnalisation de format de cellule

Personne pour m'aider ? S.V.P. !

Bonjour,

Si tu veux de l'aide, il faut être plus précis, donne un exemple de saisie et le résultat souhaité voir si cela et possible

Bonjour Mike et merci de répondre, je désespérai...

Pour la saisie ce serai par exemple : 12A3456789BCD
et sa donnerai à l'affichage : 12 A 3456789 BCD
donc en récapitulant 2 chiffres espace 1 lettre espace 7 chiffres espace 3 lettres.

Merci.

Re,

Pour ce genre de format il faut passer par le VBA si tu as quelques notions, et la il faut être très précis

dans quelle colonne sont saisies ces données et ces données sont saisies manuellement ou collées

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Aïe, le VBA, dit comme ça, ça ne me dit rien... mais comme je me suis formée seule, je connais peut-être sans savoir comment ça s'appelle...

Pour le reste, c'est un fichier de base de données avec une ligne par personnes. et en colonnes : téléphone, n° sécu, et une colonne qui contient les données dont on a parlé précédemment... Elles sont entrées manuellement en règle générale mais peuvent être collées à l'occasion.

A + et merci.

Re,

la je n'ai pas le temps mais après 20 heures si tu es dispo on va le faire

en attendant quel est ta version Excel

dans quelle colonne sont saisi ces données

Re,

Lorsque tu auras une quinzaine de minutes et répondu aux questions de mon post précédent on essayera d'utiliser ce code

Private Sub CommandButton2_Click()
Dim plage, i As Range
Dim nbcarac As Byte
With ActiveSheet
Set plage = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
For Each i In plage
If InStr(1, i, " ") <> 3 And i <> "" Then
nbcarac = Len(i.Value) 'compte le nombre de caractère de la chaine
i.Value = Left(i.Value, 10) & " " & Mid(i.Value, 11, nbcarac) 'recherche le premier caractère, insère un espace, et rajoute le reste de la chaine
i.Value = Left(i.Value, 3) & " " & Mid(i.Value, 4, nbcarac)
i.Value = Left(i.Value, 2) & " " & Mid(i.Value, 3, nbcarac)
End If
Next i
End Sub