Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

formule excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion momo2394
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

momo2394

XLDnaute Occasionnel
Bonjour le forum et une très bonne année 2014

Je reviens vers vous pour une formule ci dessous et j'aimerai la simplifier sachant que j'ai 450 cellules x 3
à proteger

Merci

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "E2" Then Range("G2").Select
If Target.Address(0, 0) = "E3" Then Range("G2").Select
If Target.Address(0, 0) = "E4" Then Range("G2").Select
If Target.Address(0, 0) = "E5" Then Range("G2").Select
If Target.Address(0, 0) = "E6" Then Range("G2").Select

If Target.Address(0, 0) = "F2" Then Range("G2").Select
If Target.Address(0, 0) = "F3" Then Range("G2").Select
If Target.Address(0, 0) = "F4" Then Range("G2").Select
If Target.Address(0, 0) = "F5" Then Range("G2").Select
If Target.Address(0, 0) = "F6" Then Range("G2").Select

If Target.Address(0, 0) = "J2" Then Range("G2").Select
If Target.Address(0, 0) = "J3" Then Range("G2").Select
If Target.Address(0, 0) = "J4" Then Range("G2").Select
If Target.Address(0, 0) = "J5" Then Range("G2").Select
If Target.Address(0, 0) = "J6" Then Range("G2").Select


End Sub
 
Trier par date Trier par votes
Re : formule excel

Bonsoir,

essaye peut être ceci :
Code: 
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E2:F6,J2:J6")) Is Nothing Then
    Application.EnableEvents = False
    Range("G2").Select
    Application.EnableEvents = True
End If
End Sub

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : formule excel

Merci Pierrot93
ça fonctionne super bien

serait il possible que quand la cible se trouve sur E2 ou F2 ou J2 le curseur se positionne sur G2 ainsi de suite
E3 ou F3 ou J3 se positionne sur G3 ainsi de suite

Merci
 
Vote positif 0 Vote négatif
Re : formule excel

Re,

modifie comme suit :
Code: 
Option Explicit
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("E2:F6,J2:J6")) Is Nothing Then
     Application.EnableEvents = False
     Range("G" & Target.Row).Select
     Application.EnableEvents = True
 End If
 End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
524
xavieralvaro
X
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
  • Question Question
Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)
2
Réponses
21
Affichages
2 K
patricktoulon
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
867
dadu35
D
  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
738
R3n0W
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
760
oguruma
M
  • Résolu(e)
XL 2016 comment créer une Barre de défilement ou faire simplement défiler son texte ?
2
Réponses
25
Affichages
2 K
melltel
M
M
  • Question Question
Microsoft 365 modifier un code
Réponses
1
Affichages
541
Dranreb
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
2 K
Thomi
T
D
  • Question Question
XL 2010 Valoriser cellule par clic
Réponses
4
Affichages
652
fanch55
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
  • Résolu(e)
XL 2021 Revenir sur Excel
Réponses
6
Affichages
666
Franc58
F
S
  • Question Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
711
Jacky67
F
  • Question Question
XL 2016 Vba + formule actualisation
Réponses
8
Affichages
660
Dudu2
D
  • Question Question
Microsoft 365 VBA pour répéter - cacher 2 colonnes consécutives selon la valeur d'une cellule.
Réponses
4
Affichages
611
Didjo
D
P
  • Question Question
Microsoft 365 Macro qui plante exel
Réponses
1
Affichages
575
mapomme
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
1 K
halecs93
L
  • Question Question
XL 2021 Comment utiliser la colonne d'une adresse en Private Sub - svp ?
Réponses
3
Affichages
589
vgendron
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
1 K
un internaute
U
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…