Une macro sur un simple click
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Call macroalbert
End If
End Sub
Sub macroalbert()
ActiveCell.Offset(0, 1).Range("A1:E15").Select
Selection.FormulaR1C1 = "4"
Selection.NumberFormat = "#,##0.00 $"
End SubPourquoi, quand je click sur la cellule ("A1") ma macro (macroalbert) ne se lance -t elle pas ????
Merci cela m'aiderais sur le plan didacticiel.
Bonjour
Tu peux tester cela :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(ActiveCell, Range("A1")) Is Nothing Then
MsgBox "Vous avez cliqué sur A1"
Call macroalbert
End If
End Sub
Sub macroalbert()
Range("A1:E15").Select
Selection.FormulaR1C1 = "4"
Selection.NumberFormat = "#,##0.00 $"
End SubBonjour, salut CB60
Je pencherai pour le fait que le Private Sub est à mettre dans le code de la Feuille et la macro dans un module
Cordialement
C'est quoi le "code de la feuille"
je fais probablement des betises
je fais outils macro nouvelle macro ou BOUTON ROUGE
JE MODIFIE MA MACRO1
et je fais un COPIER/COLLER de
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(ActiveCell, Range("A1")) Is Nothing Then
MsgBox "Vous avez cliqué sur A1"
Call macroalbert
End If
End Sub
Que doiss-je faire pour que ça marche ????
Merci
Ca y est j'ai trouvé tout seul
merci