Aide Macro adresse Mac

Question

Je viens vers vous car je n'ai pas réussi à trouver mon bonheur J'aimerais pouvoir créer une commande afin de transformer une colonne en format adresse MAC ( ff:ff:ff:ff:ff:ff) J'ai cette formule, qui fonctionne très bien mais me fait créer une nouvelle colonne, ce que j'aimerais éviter. =STXT(H1;1;2)&":"&STXT(H1;3;2)&":"&STXT(H1;5;2)&":"&STXT(H1;7;2)&":"&STXT(H1;9;2)&":"&STXT(H1;11;2) Par avance merci de vos retours...

Arturo83 · Accepted Answer

Alors, il reste la possibilité de passer par une macro évènementielle en VBA

Si les adresses sont en colonne H;

copiez ce code dans le module VBA de la feuille, puis à chaque changement de valeur de la cellule l'adresse MAC sera modifiée

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Sortie
    Application.EnableEvents = False
    If Not Intersect(Target, Columns("H")) Is Nothing Then
        Target = Left(Target, 2) & ":" & Mid(Target, 3, 2) & ":" & Mid(Target, 5, 2) & ":" & Mid(Target, 7, 2) & ":" & Mid(Target, 9, 2) & ":" & Mid(Target, 11, 2)
    End If
Sortie:
    Application.EnableEvents = True
End Sub

sur le code suivant, c'est à la sélection de la cellule que la mise en forme sera appliquée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Sortie
    Application.EnableEvents = False
    If Not Intersect(Target, Columns("H")) Is Nothing Then
        Target = Left(Target, 2) & ":" & Mid(Target, 3, 2) & ":" & Mid(Target, 5, 2) & ":" & Mid(Target, 7, 2) & ":" & Mid(Target, 9, 2) & ":" & Mid(Target, 11, 2)
    End If
Sortie:
    Application.EnableEvents = True
End Sub

Pour accéder au module VBA, faire ALT + F11 et sélectionner par un double clic, sur le nom de la feuille et copier les codes dans la partie droite.

Cdlt

Arturo83 · Answer

Appliquez ce format personnalisé sur la colonne: 0#":"##":"##":"##":"##":"## Cdlt...