L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Différents copier-coller

Imprimer E-mail
4 mars 2014
Public Sub Collage_Transpose()
     ' Permet de Transposer une sélection copié     ' copiez une plage, sélectionnez une cellule
     ' puis cliquez sur le bouton de cette procédure pour transposer 
On Error Resume Next
     Selection.PasteSpecial Transpose:=True
End Sub

************************

Public Sub CopierColler_Valeur()
     ' Permet de copier une plage puis de coller uniquement les valeurs de la plage sur elle-mêmeOn Error GoTo Fin
     Selection.Copy
     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Fin:
     Application.CutCopyMode = False
End Sub

************************

Public Sub CopierCollerLien()
     'permet de copier et de coller avec liaison     ' copiez une plage, sélectionnez une cellule
     ' puis cliquez sur le bouton de cette procédure pour coller avec liaison On Error GoTo Fin
     ActiveSheet.Paste Link:=True
     Exit Sub
Fin:
     Application.CutCopyMode = False
End Sub

Comment ?

Imprimer E-mail
4 mars 2014

Chacune de ces procédures peuvent être affectée à un bouton d'une barre d'outils, elles vous faciliteront ainsi la vie.
Pour ajouter un bouton à une barre d'outils afin qu'il lance une procédure :

  • Outils/Personnaliser
  • Dans l'onglet Commandes, sélectionnez Macros.
  • Glissez la commande Bouton personnalisé sur votre barre d'outils.
  • Clic-droit sur ce nouveau bouton, sélectionnez Affecter une macro...
  • Clic-droit sur le bouton, de nouveau, sélectionnez Modifier l'image du bouton pour choisir une image plus adaptée ou si vous avez des talents de dessinateur, sélectionnez Éditeur de boutons.
  • Clic-droit sur le bouton, de nouveau, dans la zone de texte Nom, tapez un texte explicite.
  • Ok
  • Fermer

Vous pouvez également modifier l'aspect du bouton.