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

sélectionner la cellule à coté si la cellule de départ est dans la xeme colonne.

Créer une discussion

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

manphenix

XLDnaute Nouveau
Bonjour à tous,

Je souhaite mettre dans le code l'onglet "une certaine" interdiction de sélectionner une cellule d’une colonne X. Ou plutôt quand je sélectionnerai la cells(5,x) automatiquement je serai renvoyé sur la cells(5, X+1).
J’avais pensé à ça mais ça ne marche pas.
Private Sub Worksheet_Change(ByVal sel As Range)
Application.EnableEvents = False
If sel.Column = 6 Then cell.Offset(0, 1).Select
Application.EnableEvents = True
End Sub
Avez-vous une idée ?
Merci d’avance
 
Trier par date Trier par votes
Re : sélectionner la cellule à coté si la cellule de départ est dans la xeme colonne.

Bonjour à tous,

Bienvenue sur XLD,

Peux-tu essayer :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 6 Then Target.Offset(0, 1).Select
Application.EnableEvents = True
End Sub

A + à tous
 
Vote positif 0 Vote négatif
Re : sélectionner la cellule à coté si la cellule de départ est dans la xeme colonne.

Bonsoir à tous

Pour le fun (et pour saluer JCGL 😉 )
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Application.Goto Target.Offset(0, -(Target.Column = 6))
Application.EnableEvents = True
End Sub

PS: Comme les ifs ne sont pas des arbres menacés, je m'amuse à les zigouiller dans VBA.
On trompe l'ennui comme on peut. Désolé 😉

EDIT: Et parce qu'il y avait longtemps que je n'avais rendu hommage à mes endives 😉, une variante
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Application
    .EnableEvents = False
    .Goto Target.Offset(, -(Target.Column = 6))
    .EnableEvents = True
End With
End Sub[I][COLOR=#a9a9a9]
[/COLOR][/I]
 
Dernière édition:
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

A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
449
sylvanu
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
919
spike29
S
  • Question Question
Microsoft 365 Mettre un code dans un UserForm calendrier pour bloquer si pas de date sélectionnée
Réponses
2
Affichages
588
Usine à gaz
A
  • Question Question
XL 2019 Vérifier si une ligne existe dans un autre fichier
Réponses
7
Affichages
802
A-F
A
S
  • Question Question
Microsoft 365 Sélectionner la même cellule que la cellule active dans une autre feuille
Réponses
2
Affichages
1 K
ShrekL
S
K
  • Résolu(e)
XL 2016 Ne garder que les chiffres dans la colonne A et remplacer les h et '
2
Réponses
16
Affichages
2 K
Phil69970
J
  • Question Question
XL 2019 Comment détecter si le texte entré dans une cellule est un doublon (déjà utilisé dans la même colonne sur les lignes supérieures) ?
Réponses
5
Affichages
794
fanch55
S
  • Résolu(e)
XL 2019 code vba changement de couleur si modification de la cellule
Réponses
7
Affichages
2 K
syriak
S
W
  • Question Question
XL 2019 Si une cellule de la colonne contient *...*, alors copie toute dans la ligne dans la ‘feuil ...' »
Réponses
4
Affichages
1 K
st007
S
C
  • Résolu(e)
Microsoft 365 SI remplissage cellule (MFC) ALORS transposer la réponse dans une colonne
Réponses
3
Affichages
2 K
Chaine
C
A
  • Résolu(e)
XL 2016 Recherche la valeur d'une cellule dans la colonne d'une autre feuille
Réponses
12
Affichages
2 K
Lolote83
L
  • Question Question
XL 2013 listbox avec + de 11 colonnes (colonne A à colonne L)
Réponses
11
Affichages
2 K
patricktoulon
Q
  • Question Question
Microsoft 365 Décaler case s'il y en a 2 similaires dans la même colonne
Réponses
0
Affichages
805
quent632
Q
F
  • Résolu(e)
Microsoft 365 Incrémenter cellule automatiquement à chaque nouvelle ligne
Réponses
7
Affichages
3 K
fredzertya
F
M
  • Résolu(e)
XL 2013 Empiler des valeurs de cellule dans une même colonne
Réponses
6
Affichages
1 K
Michel J.
M
S
  • Résolu(e)
Autres VBA pour copier une cellule à gauche de la cellule sélectionnée
Réponses
1
Affichages
2 K
sg394
S
  • Résolu(e)
Microsoft 365 Colorier la cellule de la colonne A si une cellule de la ligne est coloriée
Réponses
2
Affichages
934
DanB34
M
  • Question Question
XL 2016 Date de remplissage d'une cellule dans la colonne à côté
Réponses
3
Affichages
2 K
masrino
M
M
  • Question Question
XL 2016 Mise à jour de la date si modification d'une cellule
Réponses
1
Affichages
8 K
melvin
M
G
  • Résolu(e)
XL 2010 Quelle code afin d'effacer la date de la colonne B suite à effacement de la cellule A
Réponses
3
Affichages
475
Guy Bl
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…