[EXCEL2010] Pouvez vous verifier ce code svp

Résolu
ced3c -  
Bonjour,
J'ai pris des bouts de code sur le net dans l'espoir que mis bout à bout cela marche mais bien sur c'est raté. 

Public Sub CommandButton2_Click() 'copie sauvegarde classeur


If ("M17:P17,M23:P23") <> "" Then
    MsgBox ("Vous devez renseigner un nom de client ainsi qu'un numéro de facture pour l'enregistrement")
Exit Sub


Else
Dim nom As String
    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Range("M17") & "_" & Range("M23")
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
    rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")


If MsgBox("Voulez vous effacer les données ?", _
    vbYesNo, "Attention !") = vbYes Then Range("B3:B26,C3:C26,F3:F26,H3:H26,M17:P17,M19:P19,M21:P21,M23:P23,M25:P25,M27:P27,M29:P29,M30:P30,M31:P31,M32:P32,M33:P33").ClearContents
End If
End Sub


J'ai fait des saut de ligne pour l'exemple
Ce code serais sensé :
1 - Verifier que cellule M17:P17 et M23:P23 ne soit pas vide sinon affichage message et fin de code
2 - Enregistrer le workbook
3 - Effacer les donnees si je le souhaite

Sans la partie 1 les parties 2 et 3 fonctionnent bien (peut etre pas dans l'exemple en haut je l'ai tripatouiller)

Je me doute bien qu il y a une histoire de if else endif et autre mais je ne connais pas le vba pour me debrouiller par moi même.

pouvez vous m'aider svp

9 réponses

  1.  m@rina Modérateur
    Bonjour,

    Si tu commences une condition par IF, elle doit obligatoirement se terminer par END IF...
    Tu peux avoir des imbrications de IF : 

    IF ....
     IF ....
     END IF
END IF


    Je regarde rapidement ton code, et je vois deux IF et un seul END IF
    0
    1. ced3c Auteur
      J'ai modifier le code mais la premiere etape ne marche pas (verifier si cellule est remplie)
      Le reste marche

      y a t il une erreur dans le code de la premiere partie ? 

      Public Sub CommandButton2_Click() 'copie sauvegarde classeur
If ("M17:P17,M23:P23") = "" Then
    MsgBox ("Vous devez renseigner un nom de client ainsi qu'un numéro de facture pour l'enregistrement")
Exit Sub
Else
If ("M17:P17,M23:P23") <> "" Then
Dim nom As String
    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Range("M17") & "_" & Range("M23") & "_" & ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
    rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End If
If MsgBox("Voulez vous effacer les données ?", _
    vbYesNo, "Attention !") = vbYes Then Range("B3:B26,C3:C26,F3:F26,H3:H26,M17:P17,M19:P19,M21:P21,M23:P23,M25:P25,M27:P27,M29:P29,M30:P30,M31:P31,M32:P32,M33:P33").ClearContents
End If
End Sub
      0
      1. ced3c Auteur
        ah ça s'améliore

        mais le problème est que la vérification des cellules ne se fait que sur la première cellule (M17) 

        If IsEmpty(Range("M17,M23")) Then 
    MsgBox ("Vous devez renseigner un nom de client ainsi qu'un numéro de facture pour l'enregistrement") 
Exit Sub

        Comment dois je l'écrire pour que cela marche aussi sur M23 svp ?
        0
        1. m@rina Modérateur
          Il faut faire une boucle sur chaque cellule et vérifier si elle vide : 

          For Each cellule In Range("M17:P17,M23:P23")  
If IsEmpty(cellule) Then  
MsgBox "Vous devez blablabla...!"  
Exit Sub  
End If  
next


          m@rina
          0
          2. ced3c Auteur
            je suis vraiment désolé m@rina mais je fais encore des erreurs 

            Public Sub CommandButton2_Click() 'copie sauvegarde classeur
For Each cellule In Range("M17:P17,M23:P23")
If IsEmpty(cellule) Then
MsgBox "Vous devez blablabla...!"
Exit Sub
End If
Next
Else
If ("M17:P17,M23:P23") <> "" Then
Dim nom As String
    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Range("M17") & "_" & Range("M23") & "_" & ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
    rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End If
If MsgBox("Voulez vous effacer les données ?", _
    vbYesNo, "Attention !") = vbYes Then Range("B3:B26,C3:C26,F3:F26,H3:H26,M17:P17,M19:P19,M21:P21,M23:P23,M25:P25,M27:P27,M29:P29,M30:P30,M31:P31,M32:P32,M33:P33").ClearContents
End If
End Sub


            le else pose problème mais si je l enlève, y a un autre problème .....
            Je ne connais pas le vba et je ne sais pas du tout comment m en sortir la

            Apparemment ce que tu m'as donner comme réponse conviendrais parfaitement mais je ne sais pas du tout l'exploiter.
            0
            1. michel_m Contributeur
              Bonjour à tous

              petite maquette pour le principe 
              Sub xxxx()

Set Source = Union(Range("M17:P17"), Range("M23:P23"))
If Application.CountA(Source) = 0 Then
MsgBox "vide"
Else
MsgBox "au moins une valeur"
End If


              maintenant eb regardant ton code tu sembles n'avoir besoin que de M17 et M23,

              donc si par ex M17 est vide mais N17= "azerty", problème...

              Ps: ca va M@rina, bien longtemps que je ne t'avais croisé!
              0
              1. m@rina Modérateur
                Hello Michel !! ;))) Je te laisse prendre le relais !
                Moi je vais me reposer ! :) A +
                0
            2. ced3c Auteur
              Merci de vos réponses

              Je ne comprends pas
              j'essai plusieurs choses mais rien à faire
              Si vous acceptez encore de m'aider je vous joint le fichier excel
              Le code est sur la feuille vente

              http://www.cijoint.fr/cjlink.php?file=cj201111/cijgtvZG1R.xlsm

              Peut être que ce sera plus facile comme cela
              0
              1. eriiic Contributeur
                Bonjour,

                Ton code : 
                Set Source = Union(Range("M17:P17"), Range("M23:P17")) 
If Application.CountA(Source) = 0 Then

                Oublions l'erreur de saisie M23:P17...

                Tes colonne M:P sont fusionnées, dans ce cas seule M est utilisée, inutile de spécifier les autres (elles seront toujours vides).
                Il faut savoir que la fusion de colonne pose beaucoup de pb (ici ce n'est pas ce qui bloque mais il faut le savoir) et il faut l'éviter au maximum. Tu peux très bien t'en passer en élargissant M

                Ton erreur :
                Si j'ai bien compris tu veux que les 2 cellules soient remplies. Donc : 
                Set Source = Union(Range("M17"), Range("M23")) 
If Application.CountA(Source) < 2 Then


                Teste et dis...

                eric
                0
                1. ced3c Auteur
                  Bonjour Eriiic

                  T'es un king cela marche niquel
                  C'est tout juste ce que je désirais

                  Je vais suivre ton conseil et éviter un maximum les fusions de cellules

                  Je vous remercie tous les trois de vos aides et conseils :)

                  et de votre patiente ^^

                  Merci et à très bientôt je pense
                  0

                  Discussions similaires

                  Où faire l'authentification et vérification des Transcash ?
                  Yoyo

                  5 réponses
                  Ticket Transcash, 10 premiers chiffres du code
                  AirTT

                  3 réponses
                  vérification de mot de passe transcash
                  cartergood

                  2 réponses
                  Authentification d'un ticket transcash
                  Vans

                  5 réponses
                  Billet transcash pas encaisser juste voir si j'ai pas été piraté
                  Moi

                  8 réponses