Discussion :

[AliceAndJune]

Bonjour à tous,

Je me présente, je m'appelle Alicia et travaille dans un hôpital en tant que contrôleur de gestion.
J'ai déjà eu quelques cours de VBA dans mes années de fac mais malheureusement malgré mon grand intérêt pour l'informatique, je n'ai jamais réussi à écrire VBA... A le lire, ça passe à peu près et encore !

Du coup là j'ai une base de données pour laquelle j'ai écrit un code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Dim cell As Range
 
If Environ("username") = "TRANSPORTEUR" Then
 
For Each cell In Sheets("Suivi").Range("O3:O100")
 
If cell.Value = "assis" And IsEmpty(cell.Offset(0, 1).Value) Then
 
        MsgBox "Veuillez compléter toutes les demandes de transport"
        Cancel = True
        Exit Sub
    Else
        ThisWorkbook.Save
    End If
Next cell
End If
 
End Sub

La macro fait ce que je lui dis et me permet bien d'obtenir le résultat escompté, c'est à dire que si la personne désignée ne remplit pas la case qui lui correspond, elle ne peut pas fermer le classeur.
Cependant c'est beaucoup trop long, rien qu'en mettant "assis" en cellule O100, excel calcule pendant environ 15 secondes. A la fin de l'année mon fichier fait environ 2000 lignes donc vous imaginez.

Je ne vois pas comment réécrire mon code de manière à ce qu'il aille plus vite ?

Merci beaucoup d'avance pour votre aide.

[halaster08]

Bonjour,

Avec des filtres?
Tu filtres sur les colonnes O la valeur "assis" et P "", tu comptes le nombre de lignes si c'est plus que un (la ligne de titre) alors msgbox

Si besoin tuto sur les filtres avancés: http://philippetulliez.developpez.co...dvancedfilter/

[Invité]

Bonjour,

C'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Save

qui pose problème, à chaque ligne correcte, le fichier est sauvegardé.

Il faut le placer après le deuxième End if.

Il faut sans doute utiliser un autre événement que Workbook_BeforeClose pour contrôler les informations manquantes.

Cordialement.

[Invité]

Une autre possibilité avec l'événement Worksheet_Change sur l'onglet Saisie ou la saisie serait contrôlée au fur et à mesure. Il faut sans doute neutraliser le message qui risque de devenir vite un irritant pour les personnes qui saisissent.

L'idée est de se positionner sur la cellule P et de la colorier en rouge. En cas de saisie, la couleur est effacée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Count > 1 Then Exit Sub
 
    If Not Intersect(Target, Range("O3:O100")) Is Nothing And Environ("username") = "TRANSPORTEUR" Then
           If Target = "assis" And Target.Offset(0, 1) = "" Then
              With Target.Offset(0, 1)
                .Activate
                .Interior.Color = RGB(255, 0, 0)
                MsgBox "N'oubliez pas de compléter la demande de transport !"
            End With
 
           End If
    End If
 
    If Not Intersect(Target, Range("P3:P100")) Is Nothing And Environ("username") = "TRANSPORTEUR" Then
           If Target.Offset(0, -1) = "assis" And Target <> "" Then Target.Interior.Color = xlNone
    End If
 
End Sub

Cordialement.