Discussion :

[aguill20]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour !

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, …

[Menhir]

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.

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aguill20]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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..

[aguill20]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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