Creer un macro pour raccourci collage special

Re bonsoir

mettre ceci en début de code :

If ActiveCell.Column <> 10 Then Exit Sub

J = 10e colonne

Fred

fred2406 a écrit :

Re bonsoir

mettre ceci en début de code :

If ActiveCell.Column <> 10 Then Exit Sub

J = 10e colonne

Fred

bon si je me suis pas planté je pense que ca c'est correct :

Sub CollageSpecial()

'

' CollageSpecial Macro

'

' Touche de raccourci du clavier: Ctrl+v

'

If ActiveCell.Column <> 10 Then Exit Sub

ActiveSheet.PasteSpecial Format:="Texte Unicode", Link:=False, _

DisplayAsIcon:=False

End Sub

Malheureusement ca ne fonctionne pas comme je le prevoyais.

Sur la colonne J ca fonctionne toujours bien.

Sur les autres colonnes , la fonction ctrl+V ne fonctionne plus du tout (je voulais qu'elle remarche simplement de facon standard).

Tu vois une solution ou bien c'est trop compliqué comme situation?

En tout cas je te remercie pour ce que tu m'as déja appris

D'ou la remarque de Steelson, le problème d'utiliser le ctr+V comme raccourci de ta macro enlève automatiquement le ctr+V de windows (excel et autre logiciel) d'ou la préconisation du raccourci clavier pour une macro perso en utilisant le maj : ctr+maj+V ainsi les raccourcis de base ne sont pas affectés...

cependant on peut peut être faire un essai comme suis :

Sub CollageSpecial()
'
' CollageSpecial Macro
'
' Touche de raccourci du clavier: Ctrl+v
'
If ActiveCell.Column <> 10 Then
    ActiveSheet.Paste
Else
    ActiveSheet.PasteSpecial Format:="Texte Unicode", Link:=False, DisplayAsIcon:=False
End If
End Sub

Fred

Salut Fred,

merci pour ton aide.

Malheureusement la formule ne change rien , toujours la meme chose

tout marche cellule J

rien ne se passe dans les autres cellules.

Julien