DjVen
Messages postés17Date d'inscriptionmardi 2 mars 2010StatutMembreDernière intervention30 mars 2010
-
17 mars 2010 à 18:47
DjVen
Messages postés17Date d'inscriptionmardi 2 mars 2010StatutMembreDernière intervention30 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 ?
(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.