Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Sélection dans une zone

Sélection dans une zone

3 réponses
Avatar
Jean
Bonjour à tous

J'ai écrit un module en vba, mais, avant de lancer une routine, je voudrais
vérifier si la cellule sélectionnée fait bien partir d'une zonne déterminée
exemple "A2:F12".

Lorsque ce test est fait je voudrais que la cellule active soit celle de la
ligne sélectionnée mais en colonne "A".
C'est à dire si je clique en "C6", c'est la cellule "C1" qui doit être
active, si je clique en "E10" c'est la "E1" qui est active.

Merci d'avance.

Jean
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
garnote
Salut Jean,

Essaie ceci :

Sub Dedans()
Set ici = ActiveCell
If Not Intersect(ici, Range("A2:F12")) Is Nothing Then
Cells(ici.Row, 1).Select
End If
End Sub

Cela te convient-il ?

Serge


"Jean" a écrit dans le message de news:
43e10e75$0$21304$
Bonjour à tous

J'ai écrit un module en vba, mais, avant de lancer une routine, je
voudrais vérifier si la cellule sélectionnée fait bien partir d'une zonne
déterminée exemple "A2:F12".

Lorsque ce test est fait je voudrais que la cellule active soit celle de
la ligne sélectionnée mais en colonne "A".
C'est à dire si je clique en "C6", c'est la cellule "C1" qui doit être
active, si je clique en "E10" c'est la "E1" qui est active.

Merci d'avance.

Jean




Avatar
garnote
Si tu ajoutes cette macro de feuille, ça se fera automatiquement.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dedans
End Sub

ReSerge

"garnote" a écrit dans le message de news:

Salut Jean,

Essaie ceci :

Sub Dedans()
Set ici = ActiveCell
If Not Intersect(ici, Range("A2:F12")) Is Nothing Then
Cells(ici.Row, 1).Select
End If
End Sub

Cela te convient-il ?

Serge


"Jean" a écrit dans le message de news:
43e10e75$0$21304$
Bonjour à tous

J'ai écrit un module en vba, mais, avant de lancer une routine, je
voudrais vérifier si la cellule sélectionnée fait bien partir d'une zonne
déterminée exemple "A2:F12".

Lorsque ce test est fait je voudrais que la cellule active soit celle de
la ligne sélectionnée mais en colonne "A".
C'est à dire si je clique en "C6", c'est la cellule "C1" qui doit être
active, si je clique en "E10" c'est la "E1" qui est active.

Merci d'avance.

Jean








Avatar
Jean
Merci c'est parfait.

Jean


"garnote" a écrit dans le message de news:
%23%23$
Si tu ajoutes cette macro de feuille, ça se fera automatiquement.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dedans
End Sub

ReSerge

"garnote" a écrit dans le message de news:

Salut Jean,

Essaie ceci :

Sub Dedans()
Set ici = ActiveCell
If Not Intersect(ici, Range("A2:F12")) Is Nothing Then
Cells(ici.Row, 1).Select
End If
End Sub

Cela te convient-il ?

Serge


"Jean" a écrit dans le message de news:
43e10e75$0$21304$
Bonjour à tous

J'ai écrit un module en vba, mais, avant de lancer une routine, je
voudrais vérifier si la cellule sélectionnée fait bien partir d'une
zonne déterminée exemple "A2:F12".

Lorsque ce test est fait je voudrais que la cellule active soit celle de
la ligne sélectionnée mais en colonne "A".
C'est à dire si je clique en "C6", c'est la cellule "C1" qui doit être
active, si je clique en "E10" c'est la "E1" qui est active.

Merci d'avance.

Jean