lancer macro si une cellule colonne A est sélectionnée

phlaurent55

Nous a quittés en 2020

Repose en paix

• 15 Mars 2017

• #2

Bonjour Pascal,

Pour répondre à ta question, la procédure doit se trouver dans:

WorkSheet-Selection-Change

À+
Philippe

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 15 Mars 2017

• #3

ha oui c'est pour ça
je l'ai inclus dans une macro pour un bouton en fait
alors dans ce cas que faut-il mettre pour que ça fonctionne sur le clic d'un bouton?

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 15 Mars 2017

• #4

voila le code en entier sur le bouton

Code:

Private Sub CommandButton2_Click() 'bouton supprimer les plages horaires en cliquant sur le nom de l'enfant
Application.ScreenUpdating = False
                               'déclencher macro si cellule colonne A est active
With Sheets("planing semaine")
ActiveCell.FormulaR1C1 = ""

Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 26)).Select
Selection.FormulaR1C1 = ""
    copie 'macro
    Sheets("planing semaine").Select
    Application.ScreenUpdating = True
   
    End With
End Sub

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 15 Mars 2017

• #5

Re,

en testant si la cellule active se trouve bien en colonne A

Code:

If ActiveCell.Column = 1 Then
................
................

End If

à+
Philippe

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 15 Mars 2017

• #6

ok merci ca fonctionne
mais je l'avais essayé ce code là et çà ne marchait pas
sans doute une erreur de syntaxe
bonne soirée

 

Vote positif 0 Vote négatif