RESOLU - Simuler click gauche dans cellule (E1)

[castor30]

Bonjour,
Peut-on simuler en Vba un click gauche dans la cellule E1
En vous remerciant

 

[job75]

Bonjour à tous,

Il est évident que la macro :

Sub Filtrage()
Worksheet_SelectionChange [E1]
End Sub

doit être placée dans la feuille où se trouve la Worksheet_SelectionChange...

A+

 

[castor30]

Bonjour phlaurent55, Si..., job75
Un grand merci à vous tous pour votre patience et votre ténacité à me rendre service, ainsi qu'à ce forum.
Je sui vraiment une burne. J'insistai à lancer la macro Impression à partir du bouton

Private Sub Cmd2_Click()
Impression
End Sub

alors qu'il me fallait faire

Private Sub Cmd2_Click()
Filtrage
End Sub

Je joint le fichier qui fonctionne si quelqu'un est intéressé

 

[castor30]

Un autre problème surgit
Lorsque je lance la macro Mise à jour, celle-ci enclenche :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Code de la macro Import :
Sub Import() '1
Application.ScreenUpdating = False
If Range("A2") <> "" Then Range("SelImport").Clear

NB_LIGNES = Range("Nom").Rows.Count
For I = 1 To NB_LIGNES

' For I = 1 To Range("Nom").Rows.Count Step 1
With Sheets("Visite")
If .Range("A2") = "" Then

Range("Nom").Rows(I).Copy Destination:=.Range("A2")
Range("Tel").Rows(I).Copy Destination:=.Range("C2")
Range("Adresse").Rows(I).Copy Destination:=.Range("A3")
Else
Range("Nom").Rows(I).Copy Destination:=.Range("A300").End(xlUp).Offset(1, 0)
Range("Tel").Rows(I).Copy Destination:=.Range("C300").End(xlUp).Offset(1, 0)
Range("Adresse").Rows(I).Copy Destination:=.Range("A300").End(xlUp).Offset(1, 0)
End If
End With
Next I
Mfc
Centco
Range("A2").Select
CreateObject("Wscript.shell").Popup "La liste nominative actualisée est en corrélation avec la Base." & Chr(10) & Chr(10) & "Sélectionnez ou supprimez vos visites par double clic en colonne Sel." & Chr(10) & Chr(10) & "Modifiez les dates si besoin et cliquez sur Imprimer.", 4, "APE Marguerittes", vbExclamation
Application.ScreenUpdating = True
End Sub

Cette macro est sur la même feuille dans un module
Je pense que cela provient de : SelectionChange

 

[Roland_M]

Bonsoir à tous,

' pour annuler le déclenchement de l'évènement il faut mettre au début de ta macro:
Application.EnableEvents = False
' puis remettre à la fin
Application.EnableEvents = True

 

[castor30]

Bonsoir à tous,
Je vous remercie de votre aide sans laquelle je ne serai pas arrivé à ce que je souhaitais.
Au plaisir de vous rencontrer de nouveau.