Personnalisation de format de cellule
Noisette32
Messages postés
6
Statut
Membre
-
Mike-31 Messages postés 19571 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19571 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je souhaite personnaliser une cellule excel au format 2 chiffres, 1 lettre, 7 chiffres et 3 lettres avec un espace entre lettres et chiffres.
Pouvez vous m'aider, je n'ai rien trouvé qui puisse fonctionner.
Merci d'avance pour vos réponses.
Cordialement,
Je souhaite personnaliser une cellule excel au format 2 chiffres, 1 lettre, 7 chiffres et 3 lettres avec un espace entre lettres et chiffres.
Pouvez vous m'aider, je n'ai rien trouvé qui puisse fonctionner.
Merci d'avance pour vos réponses.
Cordialement,
A voir également:
- Personnalisation de format de cellule
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
- Format doc - Guide
7 réponses
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
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.
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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
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
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
