Sécurité sociale dans MSGBOX

Bonjour,

J'ai un fichier avec des numéros de sécurité sociale au format 1-21-12-12-121-121/12 et j'aimerais avoir le même format dans ma msgbox quand je fais une recherche

j'aimerais écrire dans ma msg 1211212112112 et que le format se mette automatiquement

Merci

Bonjour,

Essayez ceci:

MsgBox = Replace(Replace(N°SS, "-", ""), "/", "")

Cdlt

je viens de voir que c'est une input box

j'ai mis mon code en dessous

Private Sub btnSupprime_Click()
Dim i As Integer
Dim Supprimeligne As String

' Affectation des variables
Supprimeligne = InputBox(" Veuillez saisir le numéro de sécurité sociale du salarié", "SUPPRESION")
'on se positionne sur la feuille de la source
With ThisWorkbook.Sheets("Personnel")
'compte le nombre de ligne de la colonne X et tu remonte de 1 ligne
For i = .Range("E" & .Rows.Count).End(xlUp).Row To 2 Step -1
' si correpondance entre le n° ss et la ligne à supprimer ALORS
If .Range("E" & i).Value = Supprimeligne Then
Rows(i).Delete
End If
Next i
End With

End Sub

Pour pouvoir répondre correctement il faudrait que je puisse avoir un fichier sous les yeux, faites une copie du vôtre en remplaçant les données confidentielles par des valeurs bidons.

re:

Impossible fichier trop gros pour résumé j'ai un formulaire d'enregistrement de salarié et je rentre leurs numéro de sécurité sociale, les enregistrements vont sur une autre feuille, sur le même formulaire j'ai un btn suppression et je tape le numéro de sécurité sociale et c'est la que j'ai besoin du code pour avoir le même format.

Merci pour ton aide

Bonjour,

avec une fonction personnalisée à mettre dans un module standard :

Sub test()
    MsgBox numSecu("121121212112112")
    MsgBox numSecu("1211212121121")
End Sub

Function numSecu(num As String) As String
    If num Like "#############" Then
        numSecu = Left(num, 1) & "-" & Mid(num, 2, 2) & "-" & Mid(num, 4, 2) & "-" & Mid(num, 6, 2) _
         & "-" & Mid(num, 8, 3) & "-" & Mid(num, 11, 3)
    ElseIf num Like "###############" Then
        numSecu = Left(num, 1) & "-" & Mid(num, 2, 2) & "-" & Mid(num, 4, 2) & "-" & Mid(num, 6, 2) _
         & "-" & Mid(num, 8, 3) & "-" & Mid(num, 11, 3) & "/" & Mid(num, 14, 2)
    End If
End Function

ton exemple est incohérent...
Je ne calcule pas la clé, tu peux saisir 13 ou 15 chiffres.
Retourne une chaine vide si saisie non conforme
eric

Merci de ta réponse je t'avoue ne pas comprendre de quel module tu me parle.

le private sub ? de ma input box ou autre

Bonjour,

Ceci est possible également :

SS = Format(BrutSS, "#-##-##-##-###-###-##")

Cdlt,

C'est 'Insertion / Module'
Tu sais, la programmation ce n'est pas inné, tu ne peux pas te passer d'acquérir les bases.