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

Question

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.

Configuration: Windows / Chrome 62.0.3202.94

f894009 · Answer

Bonjour,

Workbooks("Fournisseurs.xlsx")
Ce classeur est ouvert ou pas ?

f894009 · Answer

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

Appeler une liste nommée dans un autre classeur

2 réponses

Discussions similaires

Newsletters