Discretion

[Résolu]
Signaler
Messages postés
17
Date d'inscription
mardi 2 mars 2010
Statut
Membre
Dernière intervention
30 mars 2010
-
Messages postés
17
Date d'inscription
mardi 2 mars 2010
Statut
Membre
Dernière intervention
30 mars 2010
-
voici mon code :
Dim gaga As Integer
If Range("F9").Value "" Or Range("F12").Value "" Then
MsgBox "Remplir les champs", vbExclamation
Else
Workbooks.Open (Range("F9").Value)
For gaga = 7 To 15000
If Sheets(1).Cells(gaga, 7).Value <> "" And Sheets(1).Cells(gaga, 7).Value <> "Besoins dépendants" Then
If Sheets(1).Cells(gaga, 7).Value <> "Réservation dépendante" Then
Sheets(1).Rows(gaga).Delete shift:=x1up
gaga = gaga - 1
End If
End If
Next gaga
ActiveWorkbook.Save
ActiveWorkbook.Close

le truc c'est que j'aimerai qu'il fasse cela sans que la fenêtre Excel ne reste affichée et que pendant que le PC calcul, qu'il garde affiché le userform menu. Est-ce possible ?

4 réponses

Messages postés
106
Date d'inscription
mercredi 18 mai 2005
Statut
Membre
Dernière intervention
22 avril 2010

Bonjour,
pour réduire la fenêtre utilise le code suivant et ensuite affiche ton form
Application.WindowState = xlMinimized
monForm.Show

(Seul inconvénient cela réduit toutes les fenêtres excel)
Pour le
monForm.Show
tu peux rajouter la propiété "vbModeless" ou "vbModal"
vbModal : Oblige l'affichage de ton form au premier plan. La fenetre excel sera vérouiller tant que le form ne sera pas fermer ou que son statut ne sera pas changer en "vbModeless".
vbModeless : N'oblige pas l'affichage de ton form au premier plan.Donc possibilité pour l'utilisateur de cliquer sur la fenetre excel pour la réafficher en premier plan.
Messages postés
580
Date d'inscription
mercredi 20 août 2008
Statut
Membre
Dernière intervention
20 avril 2010
3
bonjour aussi


Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie (mon site)
Messages postés
17
Date d'inscription
mardi 2 mars 2010
Statut
Membre
Dernière intervention
30 mars 2010

lol,
Désolé mais je me prend tellement le choux avec ce code que j'en oubli la politesse. Bonjour à tous ceux qui liront ce sujet...
Messages postés
17
Date d'inscription
mardi 2 mars 2010
Statut
Membre
Dernière intervention
30 mars 2010

Nickel, merci beaucoup pour ces explications.