OVH Cloud OVH Cloud

Selection

3 réponses
Avatar
Pierre.M
Bonjour a tous,

J'ai un tableau de 10 colonnes (A:J).
En double cliquant dans une cellule quelconque de ce tableau je veux
lancer une procedure agissant sur les 10 1eres cellules (A:J) de la
ligne dans laquelle j'ai double clique (disons fond de cellules en
rouge par exemple).
Comment ecrire le code si cela est toute fois possible?

Merci pour votre participation et bon apres-midi.

Pierre

3 réponses

Avatar
Ardus Petus
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column <= 10 Then
Cells(Target.Row, 1).Resize(1, 10).Interior.ColorIndex = 6
Cancel = True
End If
End Sub

à coller dans le code de ta feuille

Cordialement,
--
AP

"Pierre.M" a écrit dans le message de news:
44896edf$0$851$
Bonjour a tous,

J'ai un tableau de 10 colonnes (A:J).
En double cliquant dans une cellule quelconque de ce tableau je veux
lancer une procedure agissant sur les 10 1eres cellules (A:J) de la ligne
dans laquelle j'ai double clique (disons fond de cellules en rouge par
exemple).
Comment ecrire le code si cela est toute fois possible?

Merci pour votre participation et bon apres-midi.

Pierre



Avatar
Hugues.Silvain

Bonjour a tous,

J'ai un tableau de 10 colonnes (A:J).
En double cliquant dans une cellule quelconque de ce tableau je veux
lancer une procedure agissant sur les 10 1eres cellules (A:J) de la
ligne dans laquelle j'ai double clique (disons fond de cellules en rouge
par exemple).
Comment ecrire le code si cela est toute fois possible?

Merci pour votre participation et bon apres-midi.

Pierre

Salut,


Voilà la procédure que j'ai écrite pour appeler la macro
"Change_Etat_Mission" si l'utilisateur fait un double clic sur une
cellule de la 10ème colonne (à placer dans le code de la feuille où doit
avoir lieu le double-clic)
Inspires t'en pour obtenir ce que tu veux

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim intColonne As Integer
Dim strAdresse As String
strAdresse = ActiveCell.Address(ReferenceStyle:=xlR1C1)
intColonne = Right(strAdresse, Len(strAdresse) - InStr(strAdresse, "C"))
If intColonne = 10 Then
Change_Etat_Mission
End If
End Sub

Avatar
Pierre.M
Merci a tous les deux, mon probleme est resolu.
Bonne soiree.

Pierre


On 2006-06-09 14:51:45 +0200, Pierre.M said:

Bonjour a tous,

J'ai un tableau de 10 colonnes (A:J).
En double cliquant dans une cellule quelconque de ce tableau je veux
lancer une procedure agissant sur les 10 1eres cellules (A:J) de la
ligne dans laquelle j'ai double clique (disons fond de cellules en
rouge par exemple).
Comment ecrire le code si cela est toute fois possible?

Merci pour votre participation et bon apres-midi.

Pierre