Vérifier des champs vides

Bonjour,

pour placer des XX dans la colonne AP je dois verifier ces champs la(I,S,T,AH,AI,AJ,AF,AG) aussi avec les autres conditions si ils sont bien remplis je mets un XX si ils ne sont pas je dois envoyer un message d'erreur qui indique le numero du champ vide , est ce que c'est possible ?

vocii mon code :

Sub Decision()

    Dim cell As Range

    Dim i As Integer
    Dim j As Integer

  For i = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
        If CStr(ActiveSheet.Cells(i, 31).Value) = "Completed - Appointment made / Complété - Nomination faite" Then

                If CStr(ActiveSheet.Cells(i, 14).Value) = "AEP" _
                Or CStr(ActiveSheet.Cells(i, 14).Value) = "CMC_REV" _
                Or CStr(ActiveSheet.Cells(i, 14).Value) = "CMC_APT" _
                Or CStr(ActiveSheet.Cells(i, 14).Value) = "CS_TPD" _
                Or CStr(ActiveSheet.Cells(i, 14).Value) = "DM_ID" Then

                             ActiveSheet.Cells(i, 42).Value = "XX"
            End If

        End If

    Next i

      For j = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

If CStr(ActiveSheet.Cells(j, 31).Value) = "Completed - Pool Created/ Complété - Bassin crée" Then
    If CStr(ActiveSheet.Cells(j, 14).Value) = "EA_CPC" _
                Or CStr(ActiveSheet.Cells(j, 14).Value) = "EA_DPD" Then
                            ActiveSheet.Cells(j, 42).Value = "XX"
    End If

    End If

Next j
end sub

Bonsoir,

pas sur de pouvoir t'aider mais...

Il est toujours préférable d'ajouter un petit fichier d'exemple, ça aide

Voila je vous ai joint le fichier excel

le bouton valider permet d'affecter des xx devant chaque suite a une liste de controle , j'aimerais bien ajouter une conditons sur les champs qui doivent etre obligatoirement remplis avant l'affectation des xx


Rechercher des sujets similaires à "verifier champs vides"