Je souhaiterais que quelqu'un m'aide pour une macro.
Mon besoin est le suivant :
- Je souhaiterais que lorsque je clique sur une cellule de la colonne "A" la
cellule immédiatement contigue la "B" soit également sélectionner.
Exemple: je clique sur "A1", les cellules "A1" et "B1" sont sélectionner.
je clique sur "A27", la cellule "A27" et "B27" sont sélectionner.
Je souhaiterais que cette macro également soit possible entre les cellules
des colonnes "J" et "K".
Par contre, je souhaite que sur cette feuille seul soit associé à cette
macro, les Colonnes "A" et "J"; les autres colonnes devant réagir
normalement. (un clic sur une cellule elle seul sélectionner)
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
Hervé
Bonsoir Jack, A mettre dans le module de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'une seule cellule selectionnée ! If Target.Count = 1 Then 'colonnes A et J If Not Intersect(Target, _ Union(Columns("A"), Columns("J"))) Is Nothing Then 'suspend les évennements '(sinon SelectionChange se produit à nouveau) Application.EnableEvents = False 'sélectionne les deux cellules Range(Target, Target.Offset(0, 1)).Select 'rétabli les évennements Application.EnableEvents = True End If End If End Sub
Hervé.
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonjour,
Je souhaiterais que quelqu'un m'aide pour une macro.
Mon besoin est le suivant :
- Je souhaiterais que lorsque je clique sur une cellule de la colonne "A" la cellule immédiatement contigue la "B" soit également sélectionner.
Exemple: je clique sur "A1", les cellules "A1" et "B1" sont sélectionner. je clique sur "A27", la cellule "A27" et "B27" sont sélectionner.
Je souhaiterais que cette macro également soit possible entre les cellules des colonnes "J" et "K".
Par contre, je souhaite que sur cette feuille seul soit associé à cette macro, les Colonnes "A" et "J"; les autres colonnes devant réagir normalement. (un clic sur une cellule elle seul sélectionner)
MERCI A + les autres cellules de la feuille
Bonsoir Jack,
A mettre dans le module de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'une seule cellule selectionnée !
If Target.Count = 1 Then
'colonnes A et J
If Not Intersect(Target, _
Union(Columns("A"), Columns("J"))) Is Nothing Then
'suspend les évennements
'(sinon SelectionChange se produit à nouveau)
Application.EnableEvents = False
'sélectionne les deux cellules
Range(Target, Target.Offset(0, 1)).Select
'rétabli les évennements
Application.EnableEvents = True
End If
End If
End Sub
Hervé.
"JACK 43" <jacques.deberle@wanadoo.fr.(sansspam)> a écrit dans le message de
news: B8667B77-43DC-4D4A-A8FF-89535876FC6E@microsoft.com...
Bonjour,
Je souhaiterais que quelqu'un m'aide pour une macro.
Mon besoin est le suivant :
- Je souhaiterais que lorsque je clique sur une cellule de la colonne "A"
la
cellule immédiatement contigue la "B" soit également sélectionner.
Exemple: je clique sur "A1", les cellules "A1" et "B1" sont sélectionner.
je clique sur "A27", la cellule "A27" et "B27" sont sélectionner.
Je souhaiterais que cette macro également soit possible entre les cellules
des colonnes "J" et "K".
Par contre, je souhaite que sur cette feuille seul soit associé à cette
macro, les Colonnes "A" et "J"; les autres colonnes devant réagir
normalement. (un clic sur une cellule elle seul sélectionner)
Bonsoir Jack, A mettre dans le module de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'une seule cellule selectionnée ! If Target.Count = 1 Then 'colonnes A et J If Not Intersect(Target, _ Union(Columns("A"), Columns("J"))) Is Nothing Then 'suspend les évennements '(sinon SelectionChange se produit à nouveau) Application.EnableEvents = False 'sélectionne les deux cellules Range(Target, Target.Offset(0, 1)).Select 'rétabli les évennements Application.EnableEvents = True End If End If End Sub
Hervé.
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonjour,
Je souhaiterais que quelqu'un m'aide pour une macro.
Mon besoin est le suivant :
- Je souhaiterais que lorsque je clique sur une cellule de la colonne "A" la cellule immédiatement contigue la "B" soit également sélectionner.
Exemple: je clique sur "A1", les cellules "A1" et "B1" sont sélectionner. je clique sur "A27", la cellule "A27" et "B27" sont sélectionner.
Je souhaiterais que cette macro également soit possible entre les cellules des colonnes "J" et "K".
Par contre, je souhaite que sur cette feuille seul soit associé à cette macro, les Colonnes "A" et "J"; les autres colonnes devant réagir normalement. (un clic sur une cellule elle seul sélectionner)
MERCI A + les autres cellules de la feuille
AV
Dans le module de la feuille
Private Sub Worksheet_SelectionChange(ByVal zz As Range) If zz.Column = 1 Or zz.Column = 10 Then ActiveCell.Range("A1:B1").Select End If End Sub
AV
Dans le module de la feuille
Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If zz.Column = 1 Or zz.Column = 10 Then
ActiveCell.Range("A1:B1").Select
End If
End Sub
