Fonction clic et décaler en vba

[Guest]

bonjour à tous,
je cherche une solution en VBA pour le problème suivant (excel 2003);

Quand je clique sur une cellule de la colonne B, j'incrémente celle cellule par le contenu de la cellule immédiatement à gauche de celle-ci.
Idem pour une autre colonne C D etc mais en prenant toujours le contenu de la colonne A de la même ligne.

N'étant pas très doué j'espère avoir été clair.

En vous remerciant par avance.

Cordialement

 

[mutzik]

Re : Fonction clic et décaler en vba

bonjour,
vois si cela te convient
actif par un double click sur une cellule située à gauche

 

[Guest]

Re : Fonction clic et décaler en vba

Bonjour,à priori c'est ce que je cherchais.
merci beaucoup

 

[Guest]

Re : Fonction clic et décaler en vba

Parfait, mais comment limiter la fonction à une plage de colonnes ? dans la formule "range A" &...
encore merci

 

[Orpheu]

Re : Fonction clic et décaler en vba

Bonjour à tous..

Le principe de base: du code dans l'événement Worksheet_BeforeDoubleClick

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = ActiveCell + Range("A" & ActiveCell.Row)
SendKeys ("{RIGHT}"), True
End Sub

Ca c'est le code qui a été proposé par MutZic... Dans ce code, tu peux rajouter tous les tests que tu veux, puor par exemple limiter la zone active...

(personnellement je préfère tester l'argument Target, qui est la cellule qui a réellement reçu le double-click)

Pour limiter aux colonnes 2 à 9, par exemple, tu rajoutes...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If target.column>1 and target.column< 10 then
ActiveCell = ActiveCell + Range("A" & ActiveCell.Row)
SendKeys ("{RIGHT}"), True
End If
End Sub

 

[Guest]

Re : Fonction clic et décaler en vba

Bonjour Orpheu, merci pour la modif,et si éventuellement je veux limiter à une plage de cellules ?
merci d'avance

 

[Efgé]

Re : Fonction clic et décaler en vba

Bonjour Orpheu, dubdub, Bonjour mutzik ,
Pour limiter la plage :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim plg As Range
 
Set plg = Range("A1:D40")
If Not Application.Intersect(Target, plg) Is Nothing Then
     Cancel = True 'pour éviter l'édition de la cellule au double click
     ActiveCell = ActiveCell + Range("A" & ActiveCell.Row)
End If

Cordialement

 

[Guest]

Re : Fonction clic et décaler en vba

merci Efgé,Orpheu et Mutzik.