Qui peut corriger ma formul svp

[shuriken001]

Bonsoir à tout le Faux rhum

Voila j'ai creer un ti bouton avec deux possibiliter de choix le 1er fonctionne bien mais le deuxieme quand je clique dessu hé bien la fenetre ne se ferme pas!
J'ai essayer ca mais il ne se ferme toujour pas:


Private Sub CommandButton3_Click()
Sheets("Chg Ligne 9").Select
With ActiveWindow
End With
Range("U6").Select: Exit Sub
End Sub

 

[matthieu33]

Re : Qui peut corriger ma formul svp

Bonsoir shuriken001,

Pourrais-tu joindre un extrait de ton fichier car je ne comprends pas ce que tu cherches à faire ?

Merci

 

[shuriken001]

Re : Qui peut corriger ma formul svp

Bonsoir shuriken001,

Pourrais-tu joindre un extrait de ton fichier car je ne comprends pas ce que tu cherches à faire ?

Merci

Ok merci je te fait ca sur ceux lien:
Ce lien n'existe plus
Et mon probleme se trouve sur la feuiile "prepa feuille de chargement" et c'est le peit bouton "ligne 9" tu clique et tu verra ya 2 petit bouton dedan:
le 1er bouton "OK" c'est ok ca fonctionne
par contre le deuxieme bouton "modifier la feuille"sa marche à moitier quand je clique dessu il me dirige bien vers la page demander mais par contre il ne se ferme pas lol!
Merci est à tres bientôt

 

[Banzai64]

Re : Qui peut corriger ma formul svp

Bonjour

Tu peux modifier comme cela

Private Sub CommandButton3_Click()

  [COLOR="Red"]Unload Me[/COLOR]
 
Sheets("Chg Ligne 9").Select
[COLOR="Lime"]'    With ActiveWindow
'    End With[/COLOR]    
Range("U6").Select              [COLOR="lime"]': Exit Sub[/COLOR]
End Sub

 

[shuriken001]

Re : Qui peut corriger ma formul svp

Bonjour

Tu peux modifier comme cela

Private Sub CommandButton3_Click()

  [COLOR="Red"]Unload Me[/COLOR]
 
Sheets("Chg Ligne 9").Select
[COLOR="Lime"]'    With ActiveWindow
'    End With[/COLOR]    
Range("U6").Select              [COLOR="lime"]': Exit Sub[/COLOR]
End Sub

Nikel encore un grand merci! à bientôt