Bonjour mapomme,
Merci de t'intéresser à ma demande, je pense que je me suis mal exprimé ou je n'ai pas compris ta réponse.
Je voudrais dans la mesure du possible un code qui sélectionne la cellule E1 et que ça fasse un clique gauche dans cette cellule sans toucher au clavier ni à la souris, car ce code serai appelé à partir d'un autre code.
En te souhaitant un bon dimanche.
Sub simu()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Goto Feuil1.Range("e2")
Application.EnableEvents = True
Range("e1").Select
End Sub
Sub simu()
Application.ScreenUpdating = False
'pour, le cas échéant, activer la procédure Worksheet_Activate() de Feuil1
If ActiveSheet.Name <> "Feuil1" Then Feuil1.Select
Application.EnableEvents = False
Application.Goto Feuil1.Range("e2")
Application.EnableEvents = True
Range("e1").Select
End Sub
Worksheet_SelectionChange [E1]
Sub Impression() 'Filtre la sélection des X et imprime
Application.ScreenUpdating = False
Worksheet_SelectionChange [E1]
' Lance l'impression
' ActiveWindow.SelectedSheets.PrintOut Copies:=1
' Prévisualisation de l'impression
ActiveWindow.SelectedSheets.PrintPreview
Range("A2").Select
CreateObject("Wscript.shell").Popup "Impression envoyée à l'imprimante." & Chr(10) & Chr(10) & "Veuillez patienter Svp." & Chr(10) & Chr(10), 1, "APE Marguerittes", vbExclamation
Range("E2:E300").ClearContents
[E1].Value = ("Sel")
Columns("E").Select
With Selection
.HorizontalAlignment = xlCenter
End With
Worksheet_SelectionChange [E1]
Application.ScreenUpdating = True
End Sub
Bizarre cette erreur ! J’ai plutôt un problème quand l’imprimante est sollicitée !C'est ce que j'avais pensé au début pas non ça marche pas
La proposition de job75 cause le problème donné sur l'image