Vérifier si une variable est disponible sur VBA
Bonjour à tous,
Tout d'abord, je vous souhaite de joyeuses fêtes !!
Je suis débutante en VBA et j'ai quelques interrogations.
Je dois faire apparaître un message d'information avec saisie (j'ai réussi) puis vérifier que la valeur saisie (imaginons que c'est un cadeau pour Noël) soit présente sur une autre feuille dans un tableau (imaginons que ce tableau soit la liste des cadeaux disponibles).
Si la valeur n'est pas présente dans cette nouvelle feuille, je dois afficher un message disant que la valeur n'est pas présente. Si la valeur est présente, je dois afficher un message demandant combien de valeur(s) (combien de cadeaux) l'utilisateur souhaite prendre et calculer le prix de ce cadeau.
Voici ce que j'ai commencé... mais je bloque totalement.
Quelqu'un pourrait-il m'aider ?
Merci mille fois par avance !!!!
Léa
Sub Info_Cadeaux()
'Activation de la feuille Cadeaux
Sheets("Cadeaux").Activate
'Selection de la cellule B5
Range("B5").Select
'Déclarer une variable avec du texte
Dim valeur As String
'Apparition d'un message avec saisie d'information
valeur = InputBox("Quel cadeaux voulez-vous pour Noël ?")
'Apparition de la réponse saisie
If valeur <> "" Then
Range("B5") = valeur
End If
Bonjour,
Pour commencer, les instructions .Activate et .Select sont inutiles, il suffit simplement de bien définir "où" on travaille (sur quel objet). Exemple :
Sheets("Cadeaux").Range("B5") = "Cadeau!"Ensuite, la déclaration des variables est de préférence groupée et réalisée en tout début de macro (c'est plus clair et moins source d'erreur ou d'omission).
Concernant le coeur de votre demande, je vous invite faire des recherches sur la fonction find.
https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Range.Find
Super merci mille fois pour votre réponse, j'essaie cela et je vous dis si j'ai réussi
Léa
Bonjour,
Une inputbox pour une saisie d'info me paraît mal approprié dans l'exemple.
- Premier problème les fautes de frappe vont faire apparaître le même message : "Cadeau non disponible" … alors qu'il est
disponible si on l'écrit sans faute.
Pour deux trois infos une inputbox ok mais si c'est pour aller comparait ensuite avec une liste complète alors à mon avis
c'est loin d'être top.
Une combobox à choix sur la liste de produits disponible évitera le problème d'un choix non répertorié et plus besoin de vérification.
Bonsoir,
Malheureusement je ne peux pas prendre beaucoup d'initiatives, il s'agit d'un devoir à rendre, je dois donc suivre des consignes de manière exacte mais l'idée du combobox était idéale !
J'ai pris en compte vos conseils concernant la présentation de mon code, mais je ne suis pas parvenue à trouver la solution pour savoir si la valeur saisie est bien présente dans la liste de la feuille "Liste"...
Auriez-vous un petit coup de pouce supplémentaire à me donner ?
Merci mille fois...
Léa