Appeler une liste nommée dans un autre classeur

Résolu

djamel -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur 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.

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 déroulante en cascade - Guide
Liste code ascii - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Workbooks("Fournisseurs.xlsx")

Ce classeur est ouvert ou pas ?

djamel

Bonjour,
le classeur "Fournisseurs" est ouvert

Réponse 2 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Merci pour votre aide

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584 > djamel

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

djamel

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 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584 > djamel

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

djamel

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

Je peux appeler mais ne peux pas recevoir d'appel

Prix d'un appel locale = gratuit ?

Votre réponse

Discussions similaires