391 résultats trouvés

par Benoist28200
27 octobre 2017, 22:01
Forum : Excel - VBA
Sujet : Activesheet.pictures
Réponses : 4
Vues : 586

Activesheet.pictures

Bonjour, Je cherche à remplacer une image en vba, j'ai mis ce code mais il crée une image sans remplacer l'image voulu. Auriez vous une idée ? Merci. Dim chemin, perso, monimage As String chemin = "C:\Users\benoi\Desktop\Photos\" perso = Range("F5").Value & " " & Range("F6").Value monimage = chemin ...
par Benoist28200
25 octobre 2017, 22:03
Forum : Excel - VBA
Sujet : Barre de formule persistante
Réponses : 5
Vues : 81

Re: Barre de formule persistante

La macro est au bon endroit
par Benoist28200
25 octobre 2017, 21:53
Forum : Excel - VBA
Sujet : Barre de formule persistante
Réponses : 5
Vues : 81

Re: Barre de formule persistante

merci galopin01 mais ça ne fonctionne pas, la barre de formule est toujours présente.
par Benoist28200
25 octobre 2017, 21:15
Forum : Excel - VBA
Sujet : Barre de formule persistante
Réponses : 5
Vues : 81

Barre de formule persistante

Bonjour, J'ai mis ces macros mais malgré le plein écran la barre de formule persiste. Auriez vous une idée ? Merci. Private Sub Workbook_WindowActivate(ByVal Wn As Window) Application.DisplayFullScreen = True End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) Application.DisplayFullSc...
par Benoist28200
24 octobre 2017, 19:13
Forum : Excel - VBA
Sujet : Récupérer la valeur d'une "Zone combinée"
Réponses : 2
Vues : 1122

Récupérer la valeur d'une "Zone combinée"

Bonjour le forum,

Je cherche à récupérer la valeur d'une "Zone combinée",
ex: zonecombinée1.value

Auriez vous une solution ?

Merci.
par Benoist28200
28 septembre 2017, 20:07
Forum : Excel - VBA
Sujet : Problème à l'ouverture
Réponses : 13
Vues : 324

Re: Problème à l'ouverture

Problème résolu, j'ai mis ce code: Private Sub UserForm_Terminate() If Workbooks.Count > 1 Then ThisWorkbook.Save ThisWorkbook.Close Application.Visible = True Application.WindowState = xlMaximized ElseIf Workbooks.Count = 1 Then ThisWorkbook.Save Application.Visible = True Application.WindowState =...
par Benoist28200
27 septembre 2017, 10:21
Forum : Excel - VBA
Sujet : Problème à l'ouverture
Réponses : 13
Vues : 324

Re: Problème à l'ouverture

Bonjour MFerrand , J'ai modifié mais j'ai toujours un problème Private Sub UserForm_Terminate() If Workbooks.Count > 1 Then ThisWorkbook.Save Application.Visible = True ElseIf Workbooks.Count = 1 Then ThisWorkbook.Close savechanges:=True Application.Visible = True Application.Quit End If End Sub
par Benoist28200
23 septembre 2017, 11:03
Forum : Excel - VBA
Sujet : Problème à l'ouverture
Réponses : 13
Vues : 324

Re: Problème à l'ouverture

J'ai mis ce bout de code mais ça n'a pas l'air de fonctionner. Private Sub UserForm_Deactivate() MsgBox (Workbooks.Count) If Workbooks.Count > 1 Then ThisWorkbook.Close savechanges:=True Application.Visible = True ElseIf Workbooks.Count = 1 Then ThisWorkbook.Close savechanges:=True Application.Visib...
par Benoist28200
22 septembre 2017, 18:09
Forum : Excel - VBA
Sujet : Problème à l'ouverture
Réponses : 13
Vues : 324

Re: Problème à l'ouverture

Pas de soucis, un grand merci à toi .
par Benoist28200
22 septembre 2017, 17:44
Forum : Excel - VBA
Sujet : Problème à l'ouverture
Réponses : 13
Vues : 324

Re: Problème à l'ouverture

Ok, j'ai compris. :oops:

Dans ce cas comment faire pour que :
Si mon classeur ("A") est le seul ouvert alors Excel se ferme à la fermeture de l'userform2.
Si un autre classeur est ouvert alors seul mon classeur ("A") se ferme.

Merci.