Débutant VBA erreur de compilation Résolu

Question

Bonjour, 

Je souhaite archiver mes factures une fois terminées. La fonction ci-dessous fonctionne pour cela.

Maintenant, je souhaite qu'Excel me réponde "facture déjà archivée" si elles le sont déjà, et ne fasse rien.

Et quand elles ne le sont pas, qu'il les archives (j'ai enlevé la procédure pour ne pas alourdir le code, mais elle fonctionne) et termine en me disant "archivage effectué".

Or, avec mon code, il archive la facture même si elle l'est déjà et me donne les deux messages précédents à la suite.

Auriez-vous une idée de l'origine de mon erreur ?

Merci beaucoup par avance pour votre aide:

Sub archive()

Application.ScreenUpdating = False
   
      
  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
        
    OPERATION D'ARCHIVAGE (je ne l'ai pas mise car elle fonctionne seule)
           
        Result = MsgBox("Archivage effectué", vbOKOnly + vbInformation, "Terminé")
                     
        End If
    End If
    
    Next
Application.ScreenUpdating = True
End Sub

Merci pour votre aide :)


Configuration: Windows 7 / Firefox 3.6.12

pijaku · Answer

Salut, 
Qu'est ce que "nf"? 
Est ce que : nf est inscrit dans les cellules à tester ou nf est une variable? 
Range(Cells(1, 1), Cells(1, 60000)) équivaut à A1:ZZA1 
Si tu veux A1:A60000 : Range(Cells(1, 1), Cells(60000, 1))  

Déjà modifie ceci : 
Sub archive()  
Application.ScreenUpdating = False  
Dim Plage As Range  
Dim Cellule As Range  
On Error Resume Next 'cette ligne sert à quoi??? 
Set Plage = Sheets("liste_facture").Range(Cells(1, 1), Cells(60000, 1))   
For Each Cellule In Plage  
    If Cellule.Value = "nf" Then  
        Result = MsgBox("Archivage déjà effectué", vbOKOnly + vbExclamation, "Attention")  
    Else 'pas besoin de 2ème test... 
        OPERATION D'ARCHIVAGE (je ne l'ai pas mise car elle fonctionne seule)  
        Result = MsgBox("Archivage effectué", vbOKOnly + vbInformation, "Terminé")  
    End If  
Next  
Application.ScreenUpdating = True  
End Sub  
Cordialement, 
--  Il n'y a rien de tel qu'une question idiote, seulement une réponse idiote. A.Einstein --

Le débutant · Answer

Merci Pijaku pour ton aide. "nf" est le nom que j'ai donné à la cellule contenant le numéro de la facture en cours.
C'est la clé qui me permet de vérifier si la facture est déjà archivée ou non sur la feuille "liste_facture".

En ce qui concerne le "Else", j'ai essayé comme tu m'a conseillé, ça n'effectue que la première opération "Archivage déjà effectué" et ça ne fait rien d'autre même si la facture n'est pas archivée.

Ci-dessous j'ai joint le fichier Excel, tu auras accès au code en entier, ce sera surement plus clair:

http://www.cijoint.fr/cjlink.php?file=cj201011/cijVZVqdK2.xls

Merci beaucoup dans tous les cas et merci pour la plage, je m'étais effectivement trompé :)

michel_m · Answer

Bonjour,

S'cusez l'incruste, je passais dans le coin et j'ai vu de la lumière...

début de la macro( le principe est le même) pour la feuille détail_facture). la variable "result" est inutile

Sub archive()
 
dim cellule as range 
Dim ligvid as integer
 
  Application.ScreenUpdating = False

       If Application.CountIf(Sheets("liste_facture").Range("A2:A1000"), Range("nf")) > 0 Then
             MsgBox "Archivage déjà effectué", vbOKOnly + vbExclamation, "Attention"
        Else
            With Sheets("liste_facture")
                ligvid = .Range("A1000").End(xlUp).Row + 1
                  .Cells(ligvid, 1) = Range("nf")
                .Cells(ligvid, 2) = Range("nc")
                .Cells(ligvid, 3) = Range("date_facture")
            End With
         
            
       
    ''//FIN DE PROCEDURE POUR LA FEUILLE liste_facture

Le débutant · Answer

Merci beaucoup à tous les deux.
Je ne connaissais pas cette méthode, c'est parfait !

Débutant VBA erreur de compilation

4 réponses

Votre réponse

Discussions similaires