Discussion :

[ilyaundebutatou]

Bonjour,

J'ai réussi à archiver mes facture sur une feuilles réservée à cela sur Excel.

Désormais, j'aimerais qu'Excel me dise "archivage déjà effectué" lorsque la facture est déjà archivée (pour je vérifie que sur la feuille "liste_facture", le numéro de facture "nf" n'est pas déjà présent) et qu'il l'archive avec un message "Archivage terminée" si ce n'est pas le cas.

Or avec le code que j'ai écris, Excel effectue les deux opérations à chaque fois, il archive (même si c'est déjà fait) et il me montre les 2 MsgBox.

Je ne sais pas du tout d'où vient mon erreur, est-ce que quelqu'un pourrait m'aider ?

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
22
23
24
25
26
27
28
29
Sub archive()

Application.ScreenUpdating = False
   
    'Je vérifie que la facture ne soit pas déjà archivée
    
  Dim Plage   As Range
  Dim Cellule As Range
  
  On Error Resume Next
  Set Plage = Sheets("liste_facture").Range(Cells(1, 1), Cells(1, 60000))
  For Each Cellule In Plage
    If Cellule.Value = "nf" Then
        Result = MsgBox("Archivage déjà effectué", vbOKOnly + vbExclamation, "Attention")
                    
        If Cellule.Value <> "nf" Then
                 
    ' PROCEDURE D'ARCHIVAGE (non détaillée car elle fonctionnait précedemment, le problème ne vient pas de là)

            Result = MsgBox("Archivage effectué", vbOKOnly + vbInformation, "Terminé")
                     
        End If
        
    End If
    
    Next
    
Application.ScreenUpdating = True
End Sub

Merci d'avance pour votre aide )))

[babaothe]

salut

réalise-tu que cette partie de ton code n'a aucun sens logique ? :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If Cellule.Value = "nf" Then
  Result = MsgBox("Archivage déjà effectué", vbOKOnly + vbExclamation, "Attention")
 
  If Cellule.Value <> "nf" Then
 
    PROCEDURE D'ARCHIVAGE (non détaillée car elle fonctionnait précedemment, le problème ne vient pas de là)
 
    Result = MsgBox("Archivage effectué", vbOKOnly + vbInformation, "Terminé")
 
  End If
 
End If

l'indentation, ici faite et toujours "parlante", montre que la vérification de la condition imbriquée

Code :

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

 If Cellule.Value <> "nf" Then

ne sera JAMAIS faite