Appeler une liste nommée dans un autre classeur

Résolu/Fermé

djamel - 4 déc. 2017 à 18:07
yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 - 10 déc. 2017 à 15:12

Bonjour,
Voici un bout de code, qui sert à appeler une liste nommée "Liste_Codes" située dans un classeur appelé "Fournisseurs" , l'appele se fait d'un autre classeur appelé "OLiv" (pas celle de poppey.. lol)

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

If Me.TextBox1.Value <> "" Then

For Each c In Workbooks("Fournisseurs.xlsx")![Liste_Codes]
If UCase(c) Like UCase(Me.TextBox1) Then

Mon code

End If

Next c

End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True

Seulement ça ne marche pas, alors si quelqu'un pourrait me venir en aide j'en serais très reconnaissant.

A voir également:

Appeler une liste nommée dans un autre classeur
Liste déroulante excel - Guide
Appeler en privé - Guide
Liste déroulante en cascade - Guide
Liste de diffusion whatsapp - Guide
Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
4 déc. 2017 à 18:42

Bonjour,

Workbooks("Fournisseurs.xlsx")

Ce classeur est ouvert ou pas ?

djamel
5 déc. 2017 à 10:13

Bonjour,
le classeur "Fournisseurs" est ouvert

Réponse 2 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
5 déc. 2017 à 11:35

Bonjour,

Private Sub CommandButton1_Click()
    Dim Liste As Range, c As Range
    
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    If Me.TextBox1.Value <> "" Then
        Set Liste = Workbooks("Fournisseurs.xlsx").Worksheets("feuil1").Range("Liste_Codes")       'recuperation liste
        ValTxt = UCase(Me.TextBox1)     'passage en majuscule
        'boucle sur liste
        For Each c In Liste
            If UCase(c) Like ValTxt Then

            'Mon code

            End If
        Next c
    End If
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

djamel
7 déc. 2017 à 15:42

Merci pour votre aide

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471 > djamel
7 déc. 2017 à 19:07

bonjour, cela marche, le sujet peut être marqué comme résolu?

djamel
10 déc. 2017 à 13:15

Non le sujet n'est pas résolu mais j'ai opter pour une autre solution, un grand merci quand même à f894009.

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471 > djamel
10 déc. 2017 à 13:25

tu as opté pour une autre solution, attends-tu autre chose pour ce sujet?

djamel
Modifié le 10 déc. 2017 à 14:24

Pour ce sujet non, j’espère que d'autres personnes en profiteront.
Je ne sais pas si je dois mettre le sujet comme résolu ?

Discussions similaires

Accéder à la liste de numéros de téléphone en 07

Annuaire inversé liste rouge

liste de noms par ordre alphabétique

Rechercher un numéro sur liste rouge

Comment tomber directement sur la messagerie

Discussions similaires

Newsletters