bonjour a tous

J'ai un petit probleme pour definir mais if

je vous montre mon code et apres je vous dit en francais se que je cherche a faire

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
 
 
    With ActiveSheet
        For i = 1 To 10
            probleme = ""
            If .Cells(i, "A") = "" Or .Cells(i, "B") = "" Then
                If .Cells(i, "A") = "" Then probleme = "Pas de nom de personne"
                If .Cells(i, "B") = "" Then
                    If probleme = "" Then probleme = "Pas de prenom de personne"
                    Else
                        probleme = probleme & " , Pas de prenom de personne"
                    End If
                End If         
 
            Cells(i, 5) = probleme
 
        Next i
    End With
pour simplifié la fase de test, j'ai simplifier a A et B pour les test mais en réaliter se sera A B E F G H
moi se que je souhaiter c'est :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
si colonne A ou B vide alors
   si A vide alor probleme = "pas de nom"
   fin si
   si B vide alor
      si probleme vide alor probleme ="pas de prenom"
      sinon
         probleme=probleme & ", pas de prenom"
      fin si
   fin si
   colone E = probleme
sinon
   traitement a faire pour les ligne avec tous les champ obligatoire remplit
fin si
donc dans ma colone E par exempli si
la colonne A vide mais B rempli, E = pas de nom
la colonne A rempli mais B vide, E = pas de prenom
la colonne A vide et B vide,E = pas de nom, pas de prenom

mais avec mon code pour l'instan j'obtient :
la colonne A vide mais B rempli, E = pas de nom, pas de prenom
la colonne A rempli mais B vide, E = pas de prenom
la colonne A vide et B vide,E = pas de nom

je ne compren pas pourquoi