Discussion :

[mouftie]

Bonjour,
J'ai écris un code pour que dans la colonne "Date de début", j'ai une validation des données pour les dates supérieures au 01/01/2020
Je voudrais que dans la colonne "Date de fin", j'ai une validation des données pour les dates supérieures à la date de début

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
19
20
    ActiveSheet.ListObjects(1).ListColumns("Date de début").Range.Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
        xlGreater, Formula1:="1/1/2020"
        .IgnoreBlank = True
        .ShowInput = True
        .ShowError = True
    End With
    ActiveSheet.ListObjects(1).ListColumns("Date de fin").Range.Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
        xlGreater, Formula1:="=I3"
        .IgnoreBlank = True
        .InCellDropdown = True
 
        .ShowInput = True
        .ShowError = True
    End With

avec ce code, les 2 colonnes ont la même validation à savoir supérieure au 01/01/2020
Est-ce que qq'1 peut m'aider, svp. Merci

[Pierre Fauconnier]

Salut.

Il n'est pas nécessaire de passer par un listobject, ni de sélectionner les plages avant de travailler avec. Le principe est ici, en Excel d'abord^*, de savoir comment il faut faire. Tu dois renseigner la cellule d'à côté en laissant la ligne en relative pour que la validation soit correcte sur toutes les données du tableau.



Attention que tu ne peux pas utiliser les références structurées dans l'outil de validation. En VBA, tu vas donc devoir recomposer l'adresse classique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Test()
  With Range("tableau4[fin]").Validation
    .Delete
    .Add xlValidateDate, , xlGreater, "=" & Range("tableau4[Début]")(1).Address(False, True)
  End With
End Sub

La question que je me pose est la suivante: Pourquoi as-tu besoin de réaliser cela en VBA? Normalement, on crée le tableau en Excel et on y met la validation en Excel car elle se propage aux nouvelles lignes. Il est rarement nécessaire de créer le tableau par code vba, voire jamais.

^* VBA pour Excel? Pensez D'ABORD en Excel avant de penser VBA

[Philippe Tulliez]

Bonjour Pierre,

Attention que tu ne peux pas utiliser les références structurées dans l'outil de validation.

Sauf si on utilise la fonction INDIRECT =F2>INDIRECT("t_Data[@Début]") où F2 est la cellule à valider (date de fin) et Début la colonne contenant la date de début

et pour une Validation de donnée-Liste =INDIRECT("t_Ville")

Par contre =INDIRECT("t_Data[@Fin]")>INDIRECT("t_Data[@Début]") ne fonctionne pas

Même si je suis prudent quant à son utilisation dû au fait qu'elle soit volatile, il est utile de savoir qu'il est possible de référencer une référence structurée avec la fonctionnalité Validation de données comme la mise en forme conditionnelle avec la fonction INDIRECT

[Pierre Fauconnier]

Salut Philippe, tu vas bien?

Oui, sauf que l'on n'utilise pas la "référence" structurée mais son nom => on ne sait donc pas utiliser une référence structurée en validation (c'est juste pour pinailler sur les termes, quoique ).

Plus sérieusement, je préfère les formules nommées qui s'adapteront aux modifications d'appellation des tableaux et colonnes là où INDIRECT fige les noms dans du hard coding, mais tu as raison de souligner qu'INDIRECT fonctionne également.

Le lecteur notera que les références classiques s'appuyant sur un tableau structuré s'adaptent comme les structurées à la croissance du tableau. Il peut donc les utiliser sans craindre de ne pas reprendre toutes les données.

[Philippe Tulliez]

Bonjour Pierre,
Je préfère également l'usage de cellule ou plage nommée d'où ma réserve.
De plus en utilisant la fonction INDIRECT, on fige le nom de la table structurée et le nom de l'étiquette de colonne comme dans le "HardCodage" en VBA alors qu'en utilisant le gestionnaire des noms, le référencement s'adapte dynamiquement.

[EDIT]
Comme solution pour le cas qui nous occupe, j'aurais privilégié évidemment la validation de données avec cellules nommées



La cellule nommée DateDébut fait référence à =t_Data[@Début] et DateFin à =t_Data[@Fin]

[Pierre Fauconnier]

Mwouais...

Monter des formules nommées et passer par une validation formulée là ou la validation d'une date suffit me semble un peu lourd, perso . J'ai illustré la formule ">$A2" dans une validation de date qui suffit largement ici, il me semble.

Mais chacun sa façon de procéder, bien sûr. Perso, plus c'est simple, mieux c'est. J'ai d'autres choses à faire que créer des trucs inutiles pour "complexifier" la solution

[mouftie]

Bonjour Pierre, bonjour Philippe,

Merci pour vos réponses et vos explications ; désolée de ne pas vous avoir répondu plus tôt, j'ai été indisponible involontairement.

Pierre :

La question que je me pose est la suivante: Pourquoi as-tu besoin de réaliser cela en VBA? Normalement, on crée le tableau en Excel et on y met la validation en Excel car elle se propage aux nouvelles lignes. Il est rarement nécessaire de créer le tableau par code vba, voire jamais.

Je comprends la question, mais je travaille sur un fichier dont je ne suis pas l'auteur et il y a une cinquantaine feuilles à traiter.

En tout cas la solution répond parfaitement à ma demande, encore merci