Discretion

Résolu
DjVen Messages postés 17 Date d'inscription mardi 2 mars 2010 Statut Membre Dernière intervention 30 mars 2010 - 17 mars 2010 à 18:47
DjVen Messages postés 17 Date d'inscription mardi 2 mars 2010 Statut Membre Dernière intervention 30 mars 2010 - 30 mars 2010 à 23:55
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

daffy17 Messages postés 106 Date d'inscription mercredi 18 mai 2005 Statut Membre Dernière intervention 22 avril 2010
19 mars 2010 à 11:17
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.
3
Claiyah Messages postés 580 Date d'inscription mercredi 20 août 2008 Statut Membre Dernière intervention 20 avril 2010 3
17 mars 2010 à 18:54
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)
0
DjVen Messages postés 17 Date d'inscription mardi 2 mars 2010 Statut Membre Dernière intervention 30 mars 2010
17 mars 2010 à 19:04
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...
0
DjVen Messages postés 17 Date d'inscription mardi 2 mars 2010 Statut Membre Dernière intervention 30 mars 2010
30 mars 2010 à 23:55
Nickel, merci beaucoup pour ces explications.
0