Microsoft 365 Validation des Données

GILBERTO BRAGA · 4 Octobre 2024

Bonjour forum,

"Dans le tableau ci-joint, j'ai un tableau avec une validation de données dans la colonne D. Selon les dates saisies dans les cellules B3 et C3, les lignes du tableau B4:C9
seront remplies ou resteront vides. Dans ce cas, existe-t-il un moyen pour que les cellules de la colonne D, qui contiennent une validation de données, restent également vides si les cellules des colonnes B et C de la même ligne sont vides ?

Cordialement,

Gilberto

sylvanu · 4 Octobre 2024

Bonjour Gilberto,
Ne connaissant pas de solution à votre problème, ne serait il pas suffisant d'utiliser une MFC en colonne D avec police blanche :

VB:

=ET($B4="";$C4="")

Les cellules ne seraient pas vides mais le sembleraient.

GILBERTO BRAGA · 4 Octobre 2024

sylvanu à dit:
Bonjour Gilberto,
Ne connaissant pas de solution à votre problème, ne serait il pas suffisant d'utiliser une MFC en colonne D avec police blanche :

VB:

=ET($B4="";$C4="")

Les cellules ne seraient pas vides mais le sembleraient.

Bonjour forum, Sylvanu

Ça a fonctionné. C'est exactement ce dont j'avais besoin.

Merci beaucoup.

Gilberto

AtTheOne · 6 Octobre 2024

Bonjour à toutes & à tous; bonjour @GILBERTO BRAGA
Maintenant si le contenu des cellules à de l'importance (par exemple si tu les comptes comme sur mon fichier), il faut passer par une petite macro en suivant l'événement de la feuille "Planilha1" (CodeName Feuil1)

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    
     Dim ChpDate As Range
     Set ChpDate = [B3:C4]    'Zone de saisie des dates
    
     If Intersect(Target, ChpDate) Is Nothing Then Exit Sub
    
     For i = 2 To 7   'Parcourir les 6 lignes sous la zone de saisie
          
          'si l 'une des 2 cellules sous la zone de saisie est vide, vider la cellule située à droite de ces 2 cellules
          If ChpDate.Cells(i, 1) = "" Or ChpDate.Cells(i, 2) = "" Then ChpDate.Cells(i, 3) = ""
          
     Next
    
End Sub

Ainsi on efface les choix faits lorsque les années et mois calculés sont vides.
Voir le fichier joint

À bientôt

Microsoft 365 Validation des Données

GILBERTO BRAGA

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

GILBERTO BRAGA

XLDnaute Occasionnel

AtTheOne

XLDnaute Accro

Pièces jointes

Discussions similaires