Besoin d'un petit coup de main

Résolu/Fermé
Mixou04 Messages postés 11 Date d'inscription vendredi 15 novembre 2019 Statut Membre Dernière intervention 16 novembre 2019 - 15 nov. 2019 à 18:29
Mixou04 Messages postés 11 Date d'inscription vendredi 15 novembre 2019 Statut Membre Dernière intervention 16 novembre 2019 - 16 nov. 2019 à 13:13
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?

1 réponse

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
15 nov. 2019 à 18:30
bonjour, peux-tu partager ton fichier?
0
Mixou04 Messages postés 11 Date d'inscription vendredi 15 novembre 2019 Statut Membre Dernière intervention 16 novembre 2019
15 nov. 2019 à 19:49
Est-ce possible de partager un ficher excel?
0
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476 > Mixou04 Messages postés 11 Date d'inscription vendredi 15 novembre 2019 Statut Membre Dernière intervention 16 novembre 2019
15 nov. 2019 à 20:40
tu le publies sur internet (google drive, cjoint.com, ...), et puis tu publies le lien ici.
0
Mixou04 Messages postés 11 Date d'inscription vendredi 15 novembre 2019 Statut Membre Dernière intervention 16 novembre 2019
15 nov. 2019 à 20:46
0
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476 > Mixou04 Messages postés 11 Date d'inscription vendredi 15 novembre 2019 Statut Membre Dernière intervention 16 novembre 2019
15 nov. 2019 à 22:45
suggestion:
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 Sub
0
Mixou04 Messages postés 11 Date d'inscription vendredi 15 novembre 2019 Statut Membre Dernière intervention 16 novembre 2019
15 nov. 2019 à 23:01
Super merci beaucoup à toi tu assures.
C'est plus difficile que ce que je pense.

Bonne soirée a toi.
0