OVH Cloud OVH Cloud

comment faire ce macro?

1 réponse
Avatar
Lusitanien60
hello, petit message d'un novice qui cherche a créer un macro bien utile pour
moi.
je possède un carnet d'adresse bien chargé et j'aimerais fabriqué un macro
qui a partir d'une ligne de mon repertoire excel me retransmette sur mon
entete de fax le nom l'adresse et les numeros fax et telephone du contact.
voila alors si vous avez pitier de moi filé moi un coup de main ;-)

1 réponse

Avatar
argyronet
Bonjour,

Bien selon la ligne ???
Alors vous pouvez procéder comme suit mais je n'ai pas assez d'infos pour
vous aider, ne sachant pas ce que vous entendez par "retransmette sur mon
entete de fax"...
Supposons que vous soyez sur la ligne 47 et que les cellules A à E (1 à 4)
soient renseignées:

Private Sub Renseignement()
Dim lngLigne As Long
Dim strNom As String
Dim strAdresse As String
Dim strNoTel As String
Dim strNoFax As String
Dim strEnteteFax As String
Dim I As Integer

'A Nom
'B Adresse
'C Tel
'D Fax

lngLigne = ActiveCell.Row
For I = 1 To 4
strEnteteFax = strEnteteFax & Cells(lngLigne, I) & IIf(I = 4, "", vbCrLf)
Next
MsgBox strEnteteFax
End Sub

Espérant que cela vous aidera

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment



hello, petit message d'un novice qui cherche a créer un macro bien utile pour
moi.
je possède un carnet d'adresse bien chargé et j'aimerais fabriqué un macro
qui a partir d'une ligne de mon repertoire excel me retransmette sur mon
entete de fax le nom l'adresse et les numeros fax et telephone du contact.
voila alors si vous avez pitier de moi filé moi un coup de main ;-)