Appeler une liste nommée dans un autre classeur
Résolu
djamel
-
yg_be Messages postés 24281 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 24281 Date d'inscription Statut Contributeur Dernière intervention -
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.
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
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Liste code ascii - Guide
- Liste déroulante en cascade - Guide
2 réponses
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
le classeur "Fournisseurs" est ouvert