Appeler une liste nommée dans un autre classeur [Résolu]

djamel - 4 déc. 2017 à 18:07 - Dernière réponse : yg_be 4106 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 10 décembre 2017 Dernière intervention
- 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.

Afficher la suite 

9 réponses

Répondre au sujet
f894009 12528 Messages postés dimanche 25 novembre 2007Date d'inscription 10 décembre 2017 Dernière intervention - 4 déc. 2017 à 18:42
0
Utile
1
Bonjour,

Workbooks("Fournisseurs.xlsx")

Ce classeur est ouvert ou pas ?
Bonjour,
le classeur "Fournisseurs" est ouvert
Commenter la réponse de f894009
f894009 12528 Messages postés dimanche 25 novembre 2007Date d'inscription 10 décembre 2017 Dernière intervention - 5 déc. 2017 à 11:35
0
Utile
6
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
yg_be 4106 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 10 décembre 2017 Dernière intervention > djamel - 7 déc. 2017 à 19:07
bonjour, cela marche, le sujet peut être marqué comme résolu?
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 4106 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 10 décembre 2017 Dernière intervention > djamel - 10 déc. 2017 à 13:25
tu as opté pour une autre solution, attends-tu autre chose pour ce sujet?
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 ?
yg_be 4106 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 10 décembre 2017 Dernière intervention > djamel - 10 déc. 2017 à 15:12
je l'ai mis en résolu, pour que d'autres n'essaient pas de t'aider.
Commenter la réponse de f894009