Validation de donnée

merci_de_votre_aide Messages postés 61 Statut Membre -  
merci_de_votre_aide Messages postés 61 Statut Membre -
Bonjour,

Y aurait il quelqu'un qui pourrait m'aider, svp.

Mon problème est le suivant:
j'aimerais faire une validation de donnée liste (pour cela pas de soucis), cependant mon problème est que ma validation de donnée liste serait en rapport avec des onglets (c'est là que je n'y arrive pas).

Mon deuxième soucis est que j'aimerais faire une foncition index sur une feuille mais qui aurait rapport avec la validation liste.

Je me permet de joindre ce fichier, afin de vous expliquer mon problème plus correctement.

http://www.cijoint.fr/cjlink.php?file=cj200912/cijFMdBh4q.xlsm

En vous remerciant énormément à l'avance.
Configuration: Windows XP Internet Explorer 6.0

10 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour

    cette macro inscrit le nom des onglets fournisseurs dans la colonne K de la feuille recherche

    Sub fournisseurs()
    Dim nbre As Byte, cptr As Byte
    nbre = ThisWorkbook.Sheets.Count
    For cptr = 3 To nbre
        Sheets("recherche").Cells(cptr - 1, 11) = Sheets(cptr).Name
    Next
    End Sub


    0
  2. merci_de_votre_aide Messages postés 61 Statut Membre 16
     
    Bonjour Michel,

    Je te remercie pour tes informations.

    Grace à toi, j'arrive à résoudre mon premier problème.

    Pourrais-tu m'aider pour mon dernier problème.
    J'aimerais après validation d'un fournisseur, grace à la fonction index récupérer les informations du fournisseur choisis dans la colonne B en rapport avec les produits de la colonne A

    Je te remet une pièce jointe avec les modifications

    http://www.cijoint.fr/cjlink.php?file=cj200912/cijoDpgy23.xlsm
    0
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Re,

    Je m'attendais un peu à ta question!

    Par formule en B4 à tirer vers le bas
    =SI(A4="";"";RECHERCHEV(A4;INDIRECT("'"&B$2&"'!A$2:B$1000");2;0))

    Si tu veux en VBA, Merci de me communiquer ton classeur enregistré en .xls: je n'ai pas 2007
    0
  4. merci_de_votre_aide Messages postés 61 Statut Membre 16
     
    Bonjour,

    T'es un chef, ça marche nickel

    si tu passe dans la région de liège, fais un signe, ont boiras un bon verre.

    encore merci.

    Sans abuser, une bête question

    Est ce possible d'avoir seulement les lignes remplies dans ma validation de donnée.
    Je m'explique
    quand tu va dans la validation de donnée, la liste déroulante s'affiche et me marque tous. j'aimerais que celle-ci ne m'affiche que les lignes ou il y a des informations et pas les lignes vide.

    En te remerciant

    J'espère que ce fichier ira pour toi

    http://www.cijoint.fr/cjlink.php?file=cj200912/cijDLe8f02.xlsx
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Re,

    a copier coller dans "source" de ta validation de données
    =DECALER(Fournisseurs;0;0;NBVAL(Fournisseurs);1)


    Bonne soirée et à 1 de ces 4 à Liège!
    0
  7. merci_de_votre_aide Messages postés 61 Statut Membre 16
     
    Bonjour,

    C'est cool encore merci
    et pour le verre pas de soucis, je tiens toujours mes promesses.

    je travail sur ton premier aide

    serait il possible grace à ton code ou je récupérer les onglets de:

    si je supprime un onglet qu'il me supprime le nom en colonne k

    Merci
    0
  8. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    tu relances simplement la macro mais ajoute une ligne

    Sub fournisseurs()
    Dim nbre As Byte, cptr As Byte
    nbre = ThisWorkbook.Sheets.Count
    range("fournisseurs").clearcontents
    For cptr = 3 To nbre
        Sheets("recherche").Cells(cptr - 1, 11) = Sheets(cptr).Name
    Next

    End Sub
    0
  9. merci_de_votre_aide Messages postés 61 Statut Membre 16
     
    Bonsoir,

    Tous marche parfaitement

    Une bête question

    j'ai mis la formule que tu m'avais donné pour la validation de donnée
    =DECALER(Fournisseurs;0;0;NBVAL(Fournisseurs);1)

    dans un combobox, mais rien ne s'affiche

    est ce que je dois l'écrire différemment

    En te remerciant
    0
  10. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    ce n'est pas pour un combobox mais pour une liste à validation de données classique comme indiqué
    à la place de "=fournisseurs" que tu avais marqué
    0
  11. merci_de_votre_aide Messages postés 61 Statut Membre 16
     
    Bonjour,

    merci michel, pour un combobox je c'est en réaliser, je me demander si j'aurais su éliminer les lignes vierges aussi comme que m'afficher aider par la validation de donnée.

    Bonne journée
    0