1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2016 Récupérer le contenu de cellule dans une InputBox

Discussion dans 'Forum Excel' démarrée par Fab117, 12 Janvier 2019 à 09:15.

  1. Fab117

    Fab117 XLDnaute Occasionnel

    Inscrit depuis le :
    2 Avril 2005
    Messages :
    476
    "J'aime" reçus :
    1
    Hello,

    Pour faire du classement, je dois récupérer diverses informations contenues dans plusieurs cellules de mon onglet (j'ai par exemple une cellule contenant une date, une autre un Nom, ...).

    Je voudrais donc qu'il m'ouvre une InputBox en me demandant par exemple: "Date" et qu'au lieu de renseigner le champ de l'inputbox manuellement (clavier) avec la date, je puisse cliquer dans la cellule contenant la date.
    Ensuite, il démarrera la 2ème InputBox (Nom), et aisni de suite.

    Quelqu'un saurait-il comment procéder ?

    Excellent week-end.

    Fab
     
  2. Chargement...


  3. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    14739
    "J'aime" reçus :
    904
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    Bonjour.
    Je m'orienterais plus vers un UserForm comportant une TextBox pour chaque information, affiché en non modal, prenant en charge l'évènement SheetSelectionChange d'un objet Application.
    (Ou d'ailleurs l'évènement SelectionChange d'un objet Worksheet, c'est peut être plus familier)
    Si c'est un travail préparatoire qui doit définir plusieurs plages devant intervenir dans un traitement lancé à la fin, j'ai aussi un excellent UFmSelect fait pour ça.
     
    Dernière édition: 12 Janvier 2019 à 09:55
  4. Fab117

    Fab117 XLDnaute Occasionnel

    Inscrit depuis le :
    2 Avril 2005
    Messages :
    476
    "J'aime" reçus :
    1
    Salut,
    Merci pour ta proposition. Le UserForm est une bonne idée. Je vais creuser et je reviendrai si je bloque.
    Bonne soirée.

    Fab
     
  5. laurent950

    laurent950 XLDnaute Impliqué

    Inscrit depuis le :
    11 Janvier 2009
    Messages :
    704
    "J'aime" reçus :
    33
    Sexe :
    Masculin
    Bonsoir,
    La construction d'un usurform sera je pense aussi plus adapter.
    le principe avec une ImputBox ci dessous.
    Code (Visual Basic):

    Sub test1()
    ' Pour la selection d'une cellule
    Dim txt As Range
    Set txt = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8)
    MsgBox txt.Value
    End Sub
     
    Code (Visual Basic):

    Sub test2()
    ' Pour la selection de plusieurs cellules
    Dim txt As Range
    Set txt = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8)
    For Each res In txt
        MsgBox res.Value
    Next res
    End Sub
     
    Code (Visual Basic):

    Sub test3()
    ' Pour la selection d'une ou de plusieurs cellules
    Dim txt As Range
    Set txt = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8)
    If txt.Count = 1 Then
        MsgBox txt.Value
    Else
        For Each res In txt
            MsgBox res.Value
        Next res
    End If
    End Sub
     
     

Partager cette page