XL 2013 eviter la répétion d'une macro copie de cellule

Geely · 1 Février 2016

Bonsoir le forum

Comment puis-je éviter la répétition d'une macro.
Dans mon exemple, je souhaite copier l'adresse mail qui se trouve à coté du nom en cliquant sur le nom ou la petite
image (pour faire ensuite un coller dans un notre programme.
La liste de nom peut être importante.

Geely

Paf · 1 Février 2016

Re : eviter la répétion d'une macro copie de cellule

Bonjour,

la macro a dû rester dans le classeur .xlsm ?

je souhaite copier l'adresse mail qui se trouve à coté du nom en cliquant

sur le nom

macro à copier dans le module de code de la feuille

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Column = 3 And Target <> "" Then Target.Offset(, 2).Copy
End Sub

ou la petite image

macro à copier dans un module standard et à affecter à chaque petite image

Code:

Sub CopieMail()
 cible = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
 Range(cible).Offset(, 1).Copy 
End Sub

A+

Geely · 1 Février 2016

Re : eviter la répétion d'une macro copie de cellule

Super Merci Paf, les deux méthodes fonctionnent bien, c'est beaucoup plus simple

@+

XL 2013 eviter la répétion d'une macro copie de cellule

Geely

XLDnaute Occasionnel

Pièces jointes

Paf

XLDnaute Barbatruc

Geely

XLDnaute Occasionnel

Discussions similaires

XL 2013 eviter la répétion d'une macro copie de cellule

Geely

XLDnaute Occasionnel

Pièces jointes

Paf

XLDnaute Barbatruc

Geely

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency