Besoin d'un petit coup de main
Résolu
Mixou04
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
Mixou04 Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
Mixou04 Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
Bonsoir à tous,
Voilà mon problème est le suivant:
dans la feuille1 j'ai une plage de données (A1:A10).
Dans la feuille2 j'ai créer une liste déroulante dans laquelle je peux choisir les données de la plage (A1:A10). A côté de ma liste déroulante j'ai créer un bouton "Suivant".
Ce que j'essaie de faire c'est la chose suivant: si dans ma liste déroulante je choisi la 4ème valeur et que j'appuie sur le bouton "suivant" il faudrait que ça m'affiche la 5ème valeur sans que je doivent passer par la liste déroulante.
Est-ce que quelqu'un peut m'aider?
Voilà mon problème est le suivant:
dans la feuille1 j'ai une plage de données (A1:A10).
Dans la feuille2 j'ai créer une liste déroulante dans laquelle je peux choisir les données de la plage (A1:A10). A côté de ma liste déroulante j'ai créer un bouton "Suivant".
Ce que j'essaie de faire c'est la chose suivant: si dans ma liste déroulante je choisi la 4ème valeur et que j'appuie sur le bouton "suivant" il faudrait que ça m'affiche la 5ème valeur sans que je doivent passer par la liste déroulante.
Est-ce que quelqu'un peut m'aider?
A voir également:
- Besoin d'un petit coup de main
- Coup d'un soir avis ✓ - Forum Consommation & Internet
- Petit 1 comme ² ✓ - Forum Windows
- La main de la titi popo ✓ - Forum Musique / Radio / Clip
- A javascript error occurred in the main process - Forum Matériel & Système
- Petit 2 ✓ - Forum Bureautique
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, peux-tu partager ton fichier?
https://drive.google.com/file/d/10zQkbmlo3DiFZ9pnwA7YER6JzBoXRQ-W/view?usp=sharing
Sub bnext() Dim rg As Range, source As Range, trouve As Range Set rg = [A2] Debug.Print rg.Validation.Formula1 Set source = Range(rg.Validation.Formula1) Set trouve = source.Find(rg) If Not trouve Is Nothing Then If Not Intersect(trouve.Offset(1, 0), source) Is Nothing Then rg = trouve.Offset(1, 0) End If End If End SubC'est plus difficile que ce que je pense.
Bonne soirée a toi.