Lone-wolf
XLDnaute Barbatruc
Bonjour à tous, (désolé pour l'oubli )
Je suis tombé sur le code de Silkyroads qui proposait d'afficher dans un MsgBox les informations sur une personne déjà inscrite dans le code.
J'ai mis la main à la pâte (comme on dit) et je l'ai modifié comme suis:
Feuil1 Colonne X
Qu'en pensez-vous?
A+
Je suis tombé sur le code de Silkyroads qui proposait d'afficher dans un MsgBox les informations sur une personne déjà inscrite dans le code.
J'ai mis la main à la pâte (comme on dit) et je l'ai modifié comme suis:
Feuil1 Colonne X
Code:
Sub InfosContact()
Dim n$(1 To 5)
Dim r&(1 To 2)
Dim dn As Date
n(1) = [X1].Value 'Civilité
n(2) = [X2].Value 'Nom
n(3) = [X3].Value 'Adresse
r(1) = [X4].Value 'Code postal
n(4) = [X5].Value 'Ville
dn = [X6].Value 'Date de naissance
n(5) = [X7].Value 'Etat Civil
r(2) = [X8].Value 'Nombre d'enfants
Infos n(1), n(2), n(3), r(1), n(4), dn, n(5), r(2)
End Sub
_____________________________________________________________________
Sub Infos(n1 As String, n2 As String, n3 As String, r1 As Long, _
n4 As String, dn As Date, n5 As String, r2 As Long)
UserForm1.Label1.Caption = "Bonjour !" & vbCrLf & vbCrLf &
"Vous êtes " & n1 & " " & n2 & vbCrLf & vbCrLf & _
"Vous habitez " & " " & n3 & vbCrLf & vbCrLf & _
r1 & " " & n4 & vbCrLf & vbCrLf & _
"Né le " & Format(dn, "dd.mm.yyyy") & vbCrLf & vbCrLf & _
n5 & "," & " " & r2 & " " & "enfants"
End Sub
Qu'en pensez-vous?
A+
Dernière édition: