XL 2016 [RESOLU]-vba, macro pour rajouter : entre caractères

[c3dr1k]

Bonjour a tous, et a toutes.


J'ai une colonne F dans mon fichier Excel, avec une centaine de ligne.
dans chaque cellule il y a une suite de chiffre (12 caractères) qui se suivent, il s'agit d'adresse MAC d''imprimantes extraite d'un autre fichier exel manuellement.
je cherche donc une macro qui me mette ":" tout les deux chiffre, et ce sur chaque ligne.
exemple

avant : 9C934E98EA83
mon épouse les extrais sous ce format ci dessus, et elle rajoute manuellement les : entre les caractères...
après : 9C:93:4E:98:EA:83


d'avance merci pour vos idées et/ou soluce

 

[jmfmarques]

Bonjour
analyse, comprends et utilise ce quer tu trouveras dans cette discussion très récente :

Format de cellule personnalisé

Bonjour, Petit soucis de format personnalisé sous excel 2016. Je souhaiterais pouvoir mettre en forme une série de chiffres (23) en intégrant des espaces tous les 4 caractères avec seulement 3 caractères sur la dernière partie. Explication: Je tape : 12345678901236547896541 et je voudrais ...

www.excel-downloads.com

problème et solution identiques (seuls sont à modifier le tenants et le format).

 

[c3dr1k]

Bonjour
analyse, comprends et utilise ce quer tu trouveras dans cette discussion très récente :

Format de cellule personnalisé

Bonjour, Petit soucis de format personnalisé sous excel 2016. Je souhaiterais pouvoir mettre en forme une série de chiffres (23) en intégrant des espaces tous les 4 caractères avec seulement 3 caractères sur la dernière partie. Explication: Je tape : 12345678901236547896541 et je voudrais ...

www.excel-downloads.com

problème et solution identiques (seuls sont à modifier le tenants et le format).

OK je vais regarder.

 

[Fabinou62]

Coucou,

J'ai une idée simple mais cela marche si le nombre de chiffres est fixe.
Est-ce le cas ?

 

[Dudu2]

Bonjour,
Si c'est un adresse MAC, c'est un nombre fixe de caractères.
S'il faut le faire en VBA, un simple Format donne le résultat.

Sub a()
    Dim s As String
    s = CStr(ActiveCell.Value)
    MsgBox Format(s, "@@:@@:@@:@@:@@:@@")
    MsgBox Format(s, "&&:&&:&&:&&:&&:&&")
End Sub

 

[c3dr1k]

Coucou,

J'ai une idée simple mais cela marche si le nombre de chiffres est fixe.
Est-ce le cas ?

Bonjour,

ce sont des adresses MAC d'imprimantes, donc toujours 12 caractères avec des lettres :
exemple

9C934E98EA83
mon épouse les extrais sous ce format ci dessus, et elle rajoute manuellement les : entre les caractères...
9C:93:4E:98:EA:83

et je la vois faire sur une centaine de lignes ca me désespère.
je cherche mais je ne trouve pas.

 

[jmfmarques]

dans chaque cellule il y a une suite de chiffre (12 caractères) qui se suivent

ce sont des adresses MAC d'imprimantes, donc toujours 12 caractères avec des lettres :

 

[c3dr1k]

Bonjour,
Si c'est un adresse MAC, c'est un nombre fixe de caractères.
S'il faut le faire en VBA, un simple Format donne le résultat.

Sub a()
    Dim s As String
    s = CStr(ActiveCell.Value)
    MsgBox Format(s, "@@:@@:@@:@@:@@:@@")
    MsgBox Format(s, "&&:&&:&&:&&:&&:&&")
End Sub

cette macro m'ouvre une box mais ne modifie pas le format de la cellule

 

[Modeste geedee]

Bonsour®

Bonjour a tous, et a toutes.


J'ai une colonne F dans mon fichier Excel, avec une centaine de ligne.
dans chaque cellule il y a une suite de chiffre (12 caractères) qui se suivent, il s'agit d'adresse MAC d''imprimantes extraite d'un autre fichier exel manuellement.
je cherche donc une macro qui me mette ":" tout les deux chiffre, et ce sur chaque ligne.

exemple :
avant : 385956295039

après :38:59:56:29:50:39

d'avance merci pour vos idées et/ou soluce

si les valeurs (nombre ou texte) comportent moins de 15 posititions (chiffres exclusivement)
le résultat sera un texte

Function ReftoMAC(target)
ReftoMAC = Application.Text(target, "00\:00\:00\:00\:00\:00")
End Function

 

[Fabinou62]

ok att 2 min et je te fais un exemple

 

[Dudu2]

cette macro m'ouvre une box mais ne modifie pas le format de la cellule

Je ne crois pas qu'il soit possible de définir une format (.NumberFormat) qui fasse ça.

Il faut faire un code qui remplace les valeurs brutes par leurs équivalents formatés comme je l'ai indiqué (Format(s, "@@@@@@@") ou Format(s, "&&:&&:&&:&&:&&:&&")) soit directement dans les cellules des valeurs brutes soit dans une autre colonne comme l'a proposé Modeste geedee avec une fonction personnalisée.

 

[c3dr1k]

je vais corriger mon post initial, car il s'agit d'adresse mac donc malheureusement pas uniquement des chiffres, mais chiffre et lettres, par contre limité a 12 caractères.

 

[c3dr1k]

Je ne crois pas qu'il soit possible de définir une format (.NumberFormat) qui fasse ça.
Il faut faire un code qui remplace les valeurs brutes par leurs équivalents formatés comme je l'ai indiqué (Format(s, "@@@@@@@") ou Format(s, "&&:&&:&&:&&:&&:&&")) soit directement dans les cellules des valeurs brutes soit dans une autre colonne.

oui le top serais que cela remplace directement la cellule initiale qui contient la valeur brute

 

[Dudu2]

oui le top serais que cela remplace directement la cellule initiale qui contient la valeur brute

Tu as le Format qu'il faut mettre, il te faut le code complet ?
C'est quoi la colonne ? le nombre de lignes titre ?

 

[Fabinou62]

Voila ta fonction :

=STXT(A2;1;2)&":"&STXT(A2;3;2)&":"&STXT(A2;5;2)&":"&STXT(A2;7;2)&":"&STXT(A2;9;2)&":"&STXT(A2;11;2)

Avec A2 le nombre de 12 caractères