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.

recherchev vba formulaire

Discussion dans 'Forum Excel' démarrée par JoJodu76, 6 Décembre 2018.

  1. JoJodu76

    JoJodu76 XLDnaute Nouveau

    Inscrit depuis le :
    13 Juillet 2015
    Messages :
    5
    "J'aime" reçus :
    0
    Bonjour à tous,

    Je suis en train de creer un formulaire, affichable via un bouton dans le fichier.

    Dans ma feuille excel, j'ai des lignes avec des dates
    Dans mon formulaire, j'ai un calendrier qui prend la date du jour, mais que l'on peut changer a sa guise

    je souhaite que la valeur de la textbox2 (nb demande fournies), prenne la valeur de la colonne B, correspondant a la date du calendrier...

    j'essaye d'utiliser la fonction vlookup pour ca.. mais je n'y arrive pas ^^

    voici le code utilisé => TextBox2.Value = Application.VLookup(calendrier, Range("A5:b60"), 2, False)

    En PJ mon fichier...

    Je ne vois pas comment faire...

    Merci d'avance à tout les aidants xD
     

    Pièces jointes:

  2. Chargement...

    Discussions similaires - recherchev vba formulaire Forum Date
    XL 2016 Fonction rechercheV en VBA sur plusieurs colonnes Forum Excel 25 Juillet 2018
    XL 2016 Recherchev multi-critères en VBA Forum Excel 12 Juin 2018
    VBA + rechercheV avec plage variable Forum Excel 23 Février 2018
    Vba recherchev + Si Forum Excel 23 Janvier 2018
    RECHERCHEV avec condition en VBA Forum Excel 6 Octobre 2017

  3. cp4

    cp4 XLDnaute Occasionnel

    Inscrit depuis le :
    7 Novembre 2015
    Messages :
    400
    "J'aime" reçus :
    17
    Utilise:
    Excel 2010 (PC)
    Bonjour,

    un essai à tester à mettre dans l'userform
    Code (Visual Basic):
    Private Sub trouve()
       Set c = Feuil1.Range("A5:A35").Find(what:=CDate(Me.calendrier.Value), lookat:=xlWhole)
       If Not c Is Nothing Then
          Me.TextBox2.Value = c.Offset(, 1).Value
       Else
          MsgBox "non trouvé"
       End If
    End Sub

    Private Sub calendrier_Change()
       If Me.calendrier = "" Then Exit Sub
      Call trouve
    End Sub

    Private Sub CommandButton1_Click()
       On Error Resume Next
       TextBox1.Value = TextBox1.Value + 1
    End Sub

    Private Sub CommandButton2_Click()
       On Error Resume Next
       TextBox1.Value = TextBox1.Value - 1
    End Sub

    Private Sub CommandButton3_Click()
       Dim colonne As Integer, derligne As Integer, ctrl As Control, dmdrecues As Integer

       'derligne devient la ligne qui suit la derniere valeur du tableau
       derligne = Sheets("feuil1").Range("A560000").End(xlUp).Row + 1

       'balaye les control un par un avec le for... next
       For Each ctrl In formulaire.Controls

          'la valeur de "colonne" est egale a la valeur du tag du controle
          colonne = Val(ctrl.Tag)

          'si la valeur du tag >0, l'intersection n°de derligne et n° de colonne est une cellule qui contiendra la valeur "ctrl"
          'cad celle contenu dans le control
          If colonne > 0 Then Sheets("feuil1").Cells(derligne, colonne) = ctrl

          'next=> on passe au controle suivant
       Next

    End Sub

    Private Sub UserForm_Initialize()

       Me.calendrier = Format(Now, "dd/mm/yyyy")
      Call trouve
    End Sub
     
    Bonne journée.
     

Partager cette page