Ilino
XLDnaute Barbatruc
Bonsoir Forum
Je souhaiterais remplacer le menu qui s’affiche quand on clique sur le bouton droit de la souris, par un menu (Modifier, Supprimer, annuler) .
Je précise que la feuille ou je veux faire ce code est Protégée.
De cette manière pour l'ensembles des colonnes A B C D E ... a Z
	
	
	
	
	
		
Je vous remercie de bien vouloir me répondre, même si celle-ci est négative.
GRACIE
	
		
			
		
		
	
				
			Je souhaiterais remplacer le menu qui s’affiche quand on clique sur le bouton droit de la souris, par un menu (Modifier, Supprimer, annuler) .
Je précise que la feuille ou je veux faire ce code est Protégée.
De cette manière pour l'ensembles des colonnes A B C D E ... a Z
		Code:
	
	
	If Not Intersect(Target, Range("A3:A2013")) Is Nothing Then Range("A2").Select
.
.
.
If Not Intersect(Target, Range("Z3:Z2013")) Is Nothing Then Range("Z2").SelectGRACIE
 
	 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		