Vérifier des champs vides
r4944
Messages postés
136
Statut
Membre
-
Frenchie83 Messages postés 2254 Statut Membre -
Frenchie83 Messages postés 2254 Statut Membre -
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 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 :
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 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
| EDIT : Ajout du LANGAGE dans les balises de code.
Explications disponibles ICI Merci d'y penser dans tes prochains messages. |
A voir également:
- Xx.vides
- Verifier compatibilite windows 11 - Guide
- Comment supprimer les pages vides sur word - Guide
- Verifier un lien - Guide
- Vérifier si mot de passe piraté - Guide
- Vérifier version windows - Guide
3 réponses
Bonjour
Si j'ai bien compris, si une des cellules des colonnes suivantes ( I, N, S, T, AF,AG,AH,AI,AJ) est vide, alors on met un message en AP sinon "XX".
A tester
Cdlt
Si j'ai bien compris, si une des cellules des colonnes suivantes ( I, N, S, T, AF,AG,AH,AI,AJ) est vide, alors on met un message en AP sinon "XX".
Sub Decision()
Dim ChampsVides
Dim i As Integer
Application.ScreenUpdating = False
For i = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
ChampsVides = " "
If Cells(i, 9) = "" Then ChampsVides = ChampsVides & "I "
If Cells(i, 19) = "" Then ChampsVides = ChampsVides & "S "
If Cells(i, 20) = "" Then ChampsVides = ChampsVides & "T "
If Cells(i, 32) = "" Then ChampsVides = ChampsVides & "AF "
If Cells(i, 33) = "" Then ChampsVides = ChampsVides & "AG "
If Cells(i, 34) = "" Then ChampsVides = ChampsVides & "AH "
If Cells(i, 35) = "" Then ChampsVides = ChampsVides & "AI "
If Cells(i, 36) = "" Then ChampsVides = ChampsVides & "AJ "
If ChampsVides <> " " Then
Cells(i, 42) = "Les champs suivants sont vides" & ChampsVides
GoTo Suivant
End If
If CStr(ActiveSheet.Cells(i, 31).Value) = "Completed - Appointment made / Complété - Nomination faite" Then
Select Case CStr(ActiveSheet.Cells(i, 14).Value)
Case Is = "AEP", "CMC_REV", "CMC_APT", "CS_TPD", "DM_ID"
ActiveSheet.Cells(i, 42).Value = "XX"
Case Else
Cells(i, 42) = "Le champ N est vide"
End Select
ElseIf CStr(ActiveSheet.Cells(j, 31).Value) = "Completed - Pool Created/ Complété - Bassin crée" Then
Select Case CStr(ActiveSheet.Cells(i, 14).Value)
Case Is = "EA_CPC", "EA_DPD"
ActiveSheet.Cells(i, 42).Value = "XX"
Case Else
Cells(i, 42) = "Le champ N est vide"
End Select
End If
Suivant:
Next i
End Sub
A tester
Cdlt
Bonsoir
-non c'est le contraire si l'un de ces cellules la est vide on met pas un XX-
, donc, d'après votre demande initiale, on met un message d'erreur avec le nom des colonnes correspondantes vides, dans le cas contraire(si toutes ces cellules sont pleines) on met un XX, il me semble pourtant bien que c'est ce que j'ai fait.
Si cela ne correspond pas, pouvez-vous mettre un extrait de votre fichier (sans données confidentielles) sur cjoint.com, avec des exemples précis de ce que vous attendez.?
Cdlt
-non c'est le contraire si l'un de ces cellules la est vide on met pas un XX-
, donc, d'après votre demande initiale, on met un message d'erreur avec le nom des colonnes correspondantes vides, dans le cas contraire(si toutes ces cellules sont pleines) on met un XX, il me semble pourtant bien que c'est ce que j'ai fait.
Si cela ne correspond pas, pouvez-vous mettre un extrait de votre fichier (sans données confidentielles) sur cjoint.com, avec des exemples précis de ce que vous attendez.?
Cdlt
salut vous avez bien raison , mais le probléme c'est que je traite beaucoup de conditions
vous trouverez en piece jointe mon fichier
- je voulais colorier et envoyer un message d'erreur dans le cas ou il y a une ou plusieurs cellules qui sont vides a partir d'une sélection de rangées dèja donnè
vous trouverez en piece jointe mon fichier
- je voulais colorier et envoyer un message d'erreur dans le cas ou il y a une ou plusieurs cellules qui sont vides a partir d'une sélection de rangées dèja donnè
For q = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
Set MaPlage = Range("A:H, J:R").Rows(q)
If CStr(ActiveSheet.Cells(q, 31).Value) = "Completed - Appointment made / Complété - Nomination faite" _
And WorksheetFunction.CountIf(MaPlage, "") = 0 Then
Select Case UCase(ActiveSheet.Cells(q, 14).Value)
Case "INA_CIN"
ActiveSheet.Cells(q, 42).Value = "XX"
End Select
End If
Next q
Bonsoir
"mais le probléme c'est que je traite beaucoup de conditions" d'accord, quelles sont -elles?
"vous trouverez en piece jointe mon fichier" le petit encart que vous avez rajouté n'est pas un fichier.
Décrivez vraiment tous ce que vous voulez avec le plus de précisons possibles en vous aidant d'exemples concrets.
L'idéal étant de déposer un extrait de votre fichier, sans données confidentielles, sur cjoint.com avec des commentaires clairs et précis sur ce que vous attendez.
Cdlt
"mais le probléme c'est que je traite beaucoup de conditions" d'accord, quelles sont -elles?
"vous trouverez en piece jointe mon fichier" le petit encart que vous avez rajouté n'est pas un fichier.
Décrivez vraiment tous ce que vous voulez avec le plus de précisons possibles en vous aidant d'exemples concrets.
L'idéal étant de déposer un extrait de votre fichier, sans données confidentielles, sur cjoint.com avec des commentaires clairs et précis sur ce que vous attendez.
Cdlt
non c'est le contraire si l'un de ces cellules la est vide on met pas un XX