bonjour
cela fait 2h que je me bats, en vain

Je cherche à controler que le contenu du combobox1.
celui ci doit different de 0 ou non vide et sa valeur ne doit pas deja exister dans la colonne "m" de la feuil2.

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
30
31
32
33
34
35
 
Private Sub CommandButton3_Click() 'bouton valide pour la saisie des donnnee
'Dim derlignesaisie As Integer
Dim reponsequestion As String
reponsequestion = ""
 
 
'Confirmation saisie poser la question et attednre reponse de confirmaton
reponsequestion = MsgBox("CONFIRMEZ VOUS LE CONTENU DE LA NOUVELLE FICHE", vbQuestion + vbYesNo + 256, "CONFIRMATION")
If reponsequestion = vbYes Then
 
     'derlignesaisie = 0 'initialise la derniere ligne
 
      derniereligne = Range("M4").End(xlDown).Row 'derniere ligne occupee dans colonne m
      'derlignesaisie = derniereligne + 1
      If ComboBox1.Value = 0 Or ComboBox1.Value = "" Then
         messagealerte = MsgBox("ATTENTION ERREUR LE N° DE LA FICHE DE DYSFONCTIONNEMENT EST FAUX", vbCritical + 256, "ATTENTION ERREUR DE SAISIE")
         CommandButton2.Enabled = False 'desactive le bouton nouvelle fiche
         CommandButton3.Enabled = True 'active le bouton validation
       Else
          For ligne = 4 To derniereligne 'verifie que la fiche de dysfonctionnement n'existe pas ou =vide
              If ComboBox1.Text = Sheets("feuil2").Range("m" & ligne).Value Then
                  messagealerte = MsgBox("ATTENTION ERREUR LE N° DE LA FICHE DE DYSFONCTIONNEMENT EXISTE DEJA", vbCritical + 256, "ATTENTION ERREUR DE SAISIE")
                  CommandButton3_Click
                  'ComboBox1.Value = ""
                   'ElseIf ComboBox9.Text = Sheets("feuil2").Range("p" & ligne).Value Then '(verifie que le N° de la fiche d'attachement n'existe pas
                   'messagealerte = MsgBox("LE N° DE LA FICHE D'ATTACHEMENT DE L'ENTRPRISE  EXISTE DEJA", vbCritical + 256, "ATTENTION ERREUR DE SAISIE")
                   'ComboBox9.Value
               End If
           Next ligne
    End If
 
saisiedansfeuilexcel 'lance la procedure de copie des donnees des divers combobx et text box dans les colonne du  tableau excel
 
      End If

si quelqu'un a une idee