Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Verif des cellules vides

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sadia
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sadia

XLDnaute Occasionnel
Bonjour à tous,

je travaille sur un nouveau fichier et je voudrais faire une vérif automatique, sur 4 cellules.
sur la 1ere colonne on doit mettre une date ou pas (selon le mois de cloture) si oui, il faut absolument qu'il y ai un C ou D des l'une des 3 colonnes qui suivent.
si c'est pas le cas, je souhaite un message d'alerte.
J'ai 2000 lignes sur mon fichier.

merci à vous
 

Pièces jointes

Trier par date Trier par votes
Re : Verif des cellules vides

Bonsoir

Une possibilité en pièce jointe, avec une formule matricielle à valider avec Ctrl+majuscule temporaire + entrer.

Si tu as 2000 lignes, cela risque de poser problème, peut être. A tester donc...

@ plus
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Verif des cellules vides

Bonsoir sadia, CISCO,

Validation de données sur toute la colonne A du fichier joint :

Code: 
=(LIGNE()=1)+ESTNUM(MOIS(A1))*(NB.SI(B1:D1;"C")+NB.SI(B1:D1;"D"))
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Verif des cellules vides

Re,

Comme la validation de données ne fonctionne pas si l'on fait du copier-coller, voici une solution VBA :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, an%, mois As Byte, a%, m As Byte, flag As Boolean
Set r = Intersect(Target, [A2:A65536], Me.UsedRange)
If r Is Nothing Then Exit Sub
an = Year([G2]) 'cellule à adapter
mois = Month([G2])
For Each r In r 'si entrées multiples (copier-coller)
  If r <> "" Then
    a = 0: m = 0
    If IsDate(r) Then a = Year(r): m = Month(r)
    If a <> an Or m <> mois Or Application.CountIf(r(1, 2).Resize(, 3), "C") = 0 _
      And Application.CountIf(r(1, 2).Resize(, 3), "D") = 0 Then
      r = ""
      r.Select
      flag = True
    End If
  End If
Next
If flag Then MsgBox "Date du mois en colonne A et ""C"" ou ""D"" en colonnes B:D !"
End Sub
Fichier joint.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Verif des cellules vides

Re,

En fait ce que vous voulez c'est une vérification a posteriori.

Double-clic en colonne A, la macro recherche la 1ère erreur sous la cellule sélectionnée :

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Then Exit Sub
Dim an%, mois As Byte, i&, r As Range, a%, m As Byte
Cancel = True
an = Year([G2]) 'cellule à adapter
mois = Month([G2])
For i = Target.Row + 1 To [A65536].End(xlUp).Row
  Set r = Cells(i, 1)
  If r <> "" Then
    a = 0: m = 0
    If IsDate(r) Then a = Year(r): m = Month(r)
    If a <> an Or m <> mois Or Application.CountIf(r(1, 2).Resize(, 3), "C") = 0 _
      And Application.CountIf(r(1, 2).Resize(, 3), "D") = 0 Then
      r.Resize(, 4).Select
      MsgBox "Erreur en ligne " & i
      Exit For
    End If
  End If
Next
End Sub
Fichier (2).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Verif des cellules vides

Alors ma colonne de date se trouve en colonne I
mes 3 cellules a vérifier en j, k, l
et j'ai mis la date en AE2


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Then Exit Sub
Dim an%, mois As Byte, i&, r As Range, a%, m As Byte
Cancel = True
an = Year([AE2]) 'cellule à adapter
mois = Month([AE2])
For i = Target.Row + 1 To [I65536].End(xlUp).Row
Set r = Cells(i, 1)
If r <> "" Then
a = 0: m = 0
If IsDate(r) Then a = Year(r): m = Month(r)
If a <> an Or m <> mois Or Application.CountIf(r(1, 2).Resize(, 3), "C") = 0 _
And Application.CountIf(r(1, 2).Resize(, 3), "D") = 0 Then
r.Resize(, 4).Select
MsgBox "Erreur en ligne " & i
Exit For
End If
End If
Next
End Sub


depuis mes modifs, il se passe plus rien... j'ai du oublier qlq chose...
 
Vote positif 0 Vote négatif
Re : Verif des cellules vides

j'avais pas vu !!!!! je crois que je suis pas bien reveillée !!!!!!!!

merci à vous 2 !!!!!!

je pense que finalement, je vais prendre une formule... ca sera plus simple en cas d'absence...

bonne jouurnée à vous et bon week end !
 
Vote positif 0 Vote négatif
Re : Verif des cellules vides

Re sadia,

C'était donc moi 😀 j'en suis fort aise.

Il faut aussi adapter à la colonne de recherche I (colonne 9) :

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 9 Then Exit Sub
Dim an%, mois As Byte, i&, r As Range, a%, m As Byte
Cancel = True
an = Year([AE2]) 'cellule à adapter
mois = Month([AE2])
For i = Target.Row + 1 To [I65536].End(xlUp).Row
  Set r = Cells(i, 9)
  If r <> "" Then
    a = 0: m = 0
    If IsDate(r) Then a = Year(r): m = Month(r)
    If a <> an Or m <> mois Or Application.CountIf(r(1, 2).Resize(, 3), "C") = 0 _
      And Application.CountIf(r(1, 2).Resize(, 3), "D") = 0 Then
      r.Resize(, 4).Select
      MsgBox "Erreur en ligne " & i
      Exit For
    End If
  End If
Next
End Sub
Fichier (3).

PS : bien sûr vous pouvez utiliser la formule de CISCO, elle est très bien, c'est une autre méthode.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Verif des cellules vides

Re,

Allez, j'y vais aussi de ma formule matricielle, en N2 :

Code: 
=PETITE.VALEUR(SI((I$2:I$9<>"")*MOIS(""&AE$2);SI(ESTERR(LN((ANNEE(I$2:I$9)=ANNEE(AE$2))*(MOIS(I$2:I$9)=MOIS(AE$2))*(NB.SI(DECALER(J$1:L$1;LIGNE($2:$9)-1;);"C")+NB.SI(DECALER(J$1:L$1;LIGNE(I$2:I$9)-1;);"D"))));LIGNE($2:$9)));LIGNES($2:2))
Edit : ajouté *MOIS(""&AE$2) dans la formule, c'est un peu du pinaillage.

Fichier joint.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Verif des cellules vides

Re,

J'ai testé la durée d'exécution de la formule matricielle pour un tableau de 2000 lignes.

Sur Win XP - Excel 2003, avec une seule cellule calculée en colonne N, la durée est de 0,013 seconde.

A multiplier par le nombre de cellules calculées en colonne N.

A+
 
Vote positif 0 Vote négatif
Re : Verif des cellules vides

Re,

J'ai testé aussi sur 2000 lignes la formule de CISCO.

Elle s'exécute en 0,163 seconde, et elle ne contrôle pas le mois et l'année.

L'analyse des caractères avec concaténation, NBCAR et SUBSTITUE prend donc beaucoup de temps.

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Autres Je cherche à extraire des cellules en ordre croissant et sans doublons Les colonnes de référence ne peuvent être triées.
Réponses
5
Affichages
167
Dranreb
B
  • Résolu(e)
XL 2019 Macro pour copier des cellules d'une feuille de barèmes
Réponses
6
Affichages
328
berru76
B
Z
  • Question Question
Microsoft 365 Définir des plages de dates
Réponses
12
Affichages
719
Zazagally
Z
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
325
Nico Gre
N
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
U
  • Question Question
Autres [RÉSOLU] Comment faire masquer mes plages de cellules vides par macro
2
Réponses
17
Affichages
762
un internaute
U
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
741
Musbek
M
P
  • Résolu(e)
Microsoft 365 Comparaison 2 tableaux EXCEL différents
Réponses
12
Affichages
804
Peter DOE
P
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
135
Eric 888
H
  • Question Question
XL 2019 masquer des colonne sous condition d'une cellule en vba
Réponses
5
Affichages
260
sylvanu
  • Question Question
XL 2019 Gestion de 4 sources de revenu (A, B, C et D). Et rajout du jour en cours et MEFC qui doit varier selon le mois en cours...
Réponses
8
Affichages
271
sylvanu
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
207
sylvanu
G
  • Question Question
XL 2016 Calcul en boucle de valeurs cibles
Réponses
6
Affichages
408
job75
P
  • Question Question
Microsoft 365 Mettre en surbrillance les trois cellules avec les plus grandes valeurs
Réponses
4
Affichages
297
Perceval973
P
  • Question Question
XL 2019 Copier des fichiers ".txt" selon la date de modification ou création
Réponses
10
Affichages
424
fanch55
N
  • Question Question
XL 2019 Envoi par mail ma feuille sous condition
2
Réponses
19
Affichages
748
ngexcel
N
G
  • Question Question
Microsoft 365 Validation des Données
Réponses
3
Affichages
403
AtTheOne
U
  • Résolu(e)
Autres Comment modifier les macros pour qu’elles arrivent à faire ce que je veux
Réponses
6
Affichages
280
un internaute
U
  • Question Question
XL 2021 Encadrement de cellule sur tableau dynamique
2
Réponses
21
Affichages
1 K
Phil69970
M
  • Question Question
Microsoft 365 Aide à une formule sur un calendrier semainier
Réponses
4
Affichages
426
GALOUGALOU
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…