probleme cellule selectionnée

Bonjour a tous, aujourd'hui j'aimerais remplacer ce code si

Code:

---

1 2	ligne = bouton.BottomRightCell.Row colonne = bouton.BottomRightCell.Column

---

par un code qui utilise la cellule que j'ai sélectionné
Je m'explique, tout d'abord au lieu d'utiliser un bouton pour activer ma macro j'utilise une cellule d'une plagee or je veux lorsque je clique sur ma cellule que ce soit la ligne ainsi que la colonne de la cellule ou j'ai effectue mon clic droit qui apparraissent.. pour effectuer ma macro avec ma cellule j'utilise ce code ci :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)   If Not Intersect(Target, Range("F34:J47")) Is Nothing Then Call commandbutton_page_dechg(0, CommandButton1(ici cela ne marche pas car je n'ai plus de bouton), ActiveSheet.Name) End If End Sub

---

je ne sais egalement pas quoi mettre a la place du CommandButton1 car je n'en utilise plus..
Merci d'avance pour votre aide

Bonjour !

Citation:

---

Envoyé par aguill20

la cellule que j'ai sélectionnée

---

Voir déjà la propriété  Selection  dans l'aide VBA interne …   Mais dans cet évènement c'est déjà forcément l'objet  Target  !

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Citation:

---

Envoyé par aguill20

je ne sais egalement pas quoi mettre a la place du CommandButton1 car je n'en utilise plus..

---

A priori, il faudra utiliser Target à la place.
Mais pour ça il faudra modifier ta macro commandbutton_page_dechg dont il est paramètre.

Bonjour,

Je ne suis pas sûr d'avoir bien compris :?

Une piste avec la sélection de la ligne et colonne à l'intérieur de la plage :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)   If Not Intersect(Target, Range("F34:J47")) Is Nothing Then   Union(Range(Cells(34, Target.Column), Cells(47, Target.Column)), _ Range(Cells(Target.Row, 6), Cells(Target.Row, 10))).Select Cancel = True   End If   End Sub

---

Bonjour, ce que je souhaite c'est lors d'un clic droit sur cellule(par exemple ici fait en F34, voila pourquoi je l'ai mis en parametre de la fonction commande) ce soit cette cellule ci qui soit prise en parametre, et pouvoir ainsi pouvoir remplacer ces lignes ci:

Code:

---

1 2	ligne = bouton.BottomRightCell.Row colonne = bouton.BottomRightCell.Column

---

par celles correspondantes a ma cellule selectionnée
ma fonction ce definissait ainsi auparavant:

Code:

---

Public Sub commandbutton_page_dechg(decalage As Integer, bouton, page As String)

---

sauf que si je mets le target a la place cela ce fonctionne pas..

Re, j'ai tous simplement remplacer les deux lignes par

Code:

---

1 2	ligne = target.Row colonne = target.Column

---

et cela a l'air de marcher :roll:
Merci a vous !