Discussion :

[lucasg02]

Bonjour tout le monde,

Je travaille sur un programme VBA qui cherche des données dans un fichier et une fois les données trouvées, il crée un nouveau document et copie ces données. Sauf que voilà mon problème : on me demande de verrouiller le texte qu'on peut écrire dans certaines cellules par une liste déjà établie dans un autre onglet. En cherchant un peut partout je n'ai trouvé que la façon de créer un menu déroulant (que je souhaite garder), mais rien pour qu'un message d'erreur apparaisse lorsque le contenu de la cellule est différent de celui du menu déroulant.
Voici le code pour l'instant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Sheets("Prépa").Range("I3:I4").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="1, 2, 3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
 
    End With

Dans l'idéal il faudrait que la liste "1, 2, 3" soit une colonne sélectionnée à partir d'un autre onglet appelé "Listes".


Merci d'avance pour votre aide.

[Franc]

Salut, en supposant qu'on se base sur la colonne A de l'onglet "Listes", remplace Formula1:="1, 2, 3" par Formula1:="=Listes!A:A"
Et pour tester la validité, quelque chose comme ça:

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
Dim cell As Range
Dim valeur As Range
Dim found As Boolean
 
For Each cell In Sheets("Prépa").Range("I3:I4")
    found = False
    For Each valeur In Sheets("Listes").Range("A:A")
        If cell.value = valeur.value Then
            found = True
            Exit For
        End If
    Next valeur
    If Not found Then
        MsgBox "Le contenu de la cellule " & cell.Address & " est différent de celui du menu déroulant", vbCritical
    End If
Next cell

[Philippe Tulliez]

Bonjour,
Sauf si vous devez créer régulièrement des listes déroulantes différentes, je ne vois pas trop l'intérêt d'utiliser le VBA pour faire cela.
Création d'une tableau structuré à une colonne dont vous nommez la plage et ensuite dans la zone de texte référence à de la validation de données, il suffit de cliquer sur F3 pour obtenir la liste des plages nommées et faire un clic sur le nom souhaité.

[lucasg02]

@Franc
Salut, le code fonctionne correctement lorsque j'exécute la macro mais je voudrais qu'il fonctionne de façon permanente comme lorsqu'on crée une "Validation des données" manuellement, c'est-à-dire qu'il me faudrait que le programme m'indique une erreur dès que ce qui est saisi dans la cellule est incorrect.
En réalité j'ai fait un programme qui trie des données et lorsqu'il a fini il crée un nouveau document, et il me faudrait implémenter à ce code cette partie de validation des données pour que les utilisateurs ne puissent pas faire d'erreurs lorsqu'ils remplissent certaines cellules de ce nouveau document.

[lucasg02]

Bonjour,
Sauf si vous devez créer régulièrement des listes déroulantes différentes, je ne vois pas trop l'intérêt d'utiliser le VBA pour faire cela.
Création d'une tableau structuré à une colonne dont vous nommez la plage et ensuite dans la zone de texte référence à de la validation de données, il suffit de cliquer sur F3 pour obtenir la liste des plages nommées et faire un clic sur le nom souhaité.

En effet, je vais m'en servir pour créer automatiquement de nouveaux fichiers où certaines colonnes n'accepteront que certaines entrées. Ces nouveaux fichiers doivent être utilisables directement par l'utilisateur sans qu'il n'ait à modifier quoi que ce soit et donc que ce ne soit pas à lui de créer une validation des données sur les colonnes qui le nécessitent mais qu'elle soit déjà existante lors de la création du fichier.

[Franc]

Insère le code dans l'évènement Worksheet_Change qui se déclenche lorsqu'une cellule de la feuille est modifiée.

[lucasg02]

Insère le code dans l'évènement Worksheet_Change qui se déclenche lorsqu'une cellule de la feuille est modifiée.

Comment l'utilise-t-on? J'ai cru comprendre sur d'autres fils qu'ils l'utilisent souvent comme "Private Sub Worksheet_Change(ByVal Target As Range)" mais je ne comprends pas comment on s'en sert.

[Franc]

Dans l'IDE VBA, tu cliques sur la feuille dont tu veux vérifier les cellules, et à droite tu choisis l'évènement Change, tu y insères le code de la macro sans le Sub..End sub ou alors tu insères la macro dans un module et tu l'appelles dans l'évènement _Change avec Call Macro1 par exemple.
L'évènement est déclenché automatiquement quand une cellule est modifiée.

[lucasg02]

Dans l'IDE VBA, tu cliques sur la feuille dont tu veux vérifier les cellules, et à droite tu choisis l'évènement Change, tu y insères le code de la macro sans le Sub..End sub ou alors tu insères la macro dans un module et tu l'appelles dans l'évènement _Change avec Call Macro1 par exemple.
L'évènement est déclenché automatiquement quand une cellule est modifiée.

Merci pour la précision, ça fonctionne comme il me fallait!