Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Liste sans vide sur un fichier seul

Liste sans vide sur un fichier seul

10 réponses
Avatar
clyver
Bonjour le forum,

J'ai un classeur nomm=E9 listes.xls en colone $A:$A
j'aimerai alimenter plusieurs fichiers via cette liste bien sur sans
vide

je ne peux pas utiliser donn=E9es/valitation/ liste :
=3DDECALER(Liste!$A$1;0;0;NBVAL(Liste!$A:$A)-1)
o=F9
=3DDECALER(Liste!$A:$A;0;0;NB.SI(Liste!$A:$A;"<>"))
car mon fichier n'apartient pas a ce classeur, est il possible de
cr=E9er une relation sans d=E9porter en liaison ma feuille lise sur tous
les classeurs?

peux etre une macro qui appel la liste

merci

Franck
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Clyver,

Un fichier exemple :

Note qu'une référence a été ajoutée au classeur :
Dans la fenêtre de l'éditeur de code (macro)
Barre des menus / outils / références / et tu coches :
"Microsoft Activex Data Objects 2.x Librairy"

http://cjoint.com/?jmnEE5GSy6




"clyver" a écrit dans le message de groupe de discussion :

Bonjour le forum,

J'ai un classeur nommé listes.xls en colone $A:$A
j'aimerai alimenter plusieurs fichiers via cette liste bien sur sans
vide

je ne peux pas utiliser données/valitation/ liste :
ÞCALER(Liste!$A$1;0;0;NBVAL(Liste!$A:$A)-1)
où
ÞCALER(Liste!$A:$A;0;0;NB.SI(Liste!$A:$A;"<>"))
car mon fichier n'apartient pas a ce classeur, est il possible de
créer une relation sans déporter en liaison ma feuille lise sur tous
les classeurs?

peux etre une macro qui appel la liste

merci

Franck
Avatar
clyver
Salut michdenis,


Je voudrais appeler ma liste qui se trouve sur un fichier nomé
Listes.xls feuil1(Liste)
pour la transcrire en menu déroulant dans mes fichiers comme
l'utilisation (données/valitation/liste)
mais sans copier celle ci sur une feuille de mes classeurs.

merci


On 12 sep, 13:31, "michdenis" wrote:
Bonjour Clyver,

Un fichier exemple  :

Note qu'une référence a été ajoutée au classeur :
Dans la fenêtre de l'éditeur de code (macro)
Barre des menus / outils / références / et tu coches :
"Microsoft Activex Data Objects 2.x Librairy"

http://cjoint.com/?jmnEE5GSy6

"clyver" a écrit dans le message de groupe de discussi on :

Bonjour le forum,

J'ai un classeur nommé listes.xls en colone $A:$A
j'aimerai alimenter plusieurs fichiers via cette liste bien sur sans
vide

je ne peux pas utiliser données/valitation/ liste :
ÞCALER(Liste!$A$1;0;0;NBVAL(Liste!$A:$A)-1)
où
ÞCALER(Liste!$A:$A;0;0;NB.SI(Liste!$A:$A;"<>"))
car mon fichier n'apartient pas a ce classeur, est il possible de
créer une relation sans déporter en liaison ma feuille lise sur tous
les classeurs?

peux etre une macro qui appel la liste

merci

Franck


Avatar
michdenis
Afin d'insérer les informations directement dans une liste,
c'est le mieux que je peux t'offrir.
Il s'agit soit d'une Listbox ou d'un combobox émanant de la
boîte d'outils "Contrôle".

Au besoin, tu peux ajouter du code pour que le combobox se
situe dans la cellule que tu viens de cliquer et qu'il prenne les
dimensions de celle-ci.

Je ne crois pas qu'Excel peut réaliser directement ce que tu demandes.
Attendons, tu auras peut être des suggestions :

Fichier Exemple :
http://cjoint.com/?jmtrjIXsbX



"clyver" a écrit dans le message de groupe de discussion :

Salut michdenis,


Je voudrais appeler ma liste qui se trouve sur un fichier nomé
Listes.xls feuil1(Liste)
pour la transcrire en menu déroulant dans mes fichiers comme
l'utilisation (données/valitation/liste)
mais sans copier celle ci sur une feuille de mes classeurs.

merci


On 12 sep, 13:31, "michdenis" wrote:
Bonjour Clyver,

Un fichier exemple :

Note qu'une référence a été ajoutée au classeur :
Dans la fenêtre de l'éditeur de code (macro)
Barre des menus / outils / références / et tu coches :
"Microsoft Activex Data Objects 2.x Librairy"

http://cjoint.com/?jmnEE5GSy6

"clyver" a écrit dans le message de groupe de discussion :

Bonjour le forum,

J'ai un classeur nommé listes.xls en colone $A:$A
j'aimerai alimenter plusieurs fichiers via cette liste bien sur sans
vide

je ne peux pas utiliser données/valitation/ liste :
ÞCALER(Liste!$A$1;0;0;NBVAL(Liste!$A:$A)-1)
où
ÞCALER(Liste!$A:$A;0;0;NB.SI(Liste!$A:$A;"<>"))
car mon fichier n'apartient pas a ce classeur, est il possible de
créer une relation sans déporter en liaison ma feuille lise sur tous
les classeurs?

peux etre une macro qui appel la liste

merci

Franck


Avatar
isabelle
bonjour Franck,

voici un autre méthode, le fichier Listes peut resté fermer.

Sub Macro1()
Dim plg()
Dim x, i As Integer, ligne As Integer
Dim rep As String, fichier As String
rep = "c:zaza"
fichier = "Listes.xls"
For ligne = 1 To 20 'à adapter
x = ExecuteExcel4Macro("'" & rep & "[" & fichier & "]Feuil1'!R" &
ligne & "C1")
If x <> 0 Then
ReDim Preserve plg(i)
plg(i) = x
i = i + 1
End If
Next
ActiveSheet.Shapes("Combobox1").OLEFormat.Object.Object.Clear
ActiveSheet.Shapes("Combobox1").OLEFormat.Object.Object.List =
Application.Transpose(plg)
End Sub

isabelle

clyver a écrit :
Salut michdenis,


Je voudrais appeler ma liste qui se trouve sur un fichier nomé
Listes.xls feuil1(Liste)
pour la transcrire en menu déroulant dans mes fichiers comme
l'utilisation (données/valitation/liste)
mais sans copier celle ci sur une feuille de mes classeurs.

merci


On 12 sep, 13:31, "michdenis" wrote:

Bonjour Clyver,

Un fichier exemple :

Note qu'une référence a été ajoutée au classeur :
Dans la fenêtre de l'éditeur de code (macro)
Barre des menus / outils / références / et tu coches :
"Microsoft Activex Data Objects 2.x Librairy"

http://cjoint.com/?jmnEE5GSy6

"clyver" a écrit dans le message de groupe de discussion :

Bonjour le forum,

J'ai un classeur nommé listes.xls en colone $A:$A
j'aimerai alimenter plusieurs fichiers via cette liste bien sur sans
vide

je ne peux pas utiliser données/valitation/ liste :
ÞCALER(Liste!$A$1;0;0;NBVAL(Liste!$A:$A)-1)
où
ÞCALER(Liste!$A:$A;0;0;NB.SI(Liste!$A:$A;"<>"))
car mon fichier n'apartient pas a ce classeur, est il possible de
créer une relation sans déporter en liaison ma feuille lise sur tous
les classeurs?

peux etre une macro qui appel la liste

merci

Franck







Avatar
michdenis
Si tu veux avoir une idée avec les déplacements dans la feuille
en colonne H:H

http://cjoint.com/?jmtItkpZpM

Si tu adoptes cette méthode, il serait sage de modifier l'événement
qui se charge d'appeler la procédure "La requête " pour charger
le combobox.





"michdenis" a écrit dans le message de groupe de discussion :

Afin d'insérer les informations directement dans une liste,
c'est le mieux que je peux t'offrir.
Il s'agit soit d'une Listbox ou d'un combobox émanant de la
boîte d'outils "Contrôle".

Au besoin, tu peux ajouter du code pour que le combobox se
situe dans la cellule que tu viens de cliquer et qu'il prenne les
dimensions de celle-ci.

Je ne crois pas qu'Excel peut réaliser directement ce que tu demandes.
Attendons, tu auras peut être des suggestions :

Fichier Exemple :
http://cjoint.com/?jmtrjIXsbX



"clyver" a écrit dans le message de groupe de discussion :

Salut michdenis,


Je voudrais appeler ma liste qui se trouve sur un fichier nomé
Listes.xls feuil1(Liste)
pour la transcrire en menu déroulant dans mes fichiers comme
l'utilisation (données/valitation/liste)
mais sans copier celle ci sur une feuille de mes classeurs.

merci


On 12 sep, 13:31, "michdenis" wrote:
Bonjour Clyver,

Un fichier exemple :

Note qu'une référence a été ajoutée au classeur :
Dans la fenêtre de l'éditeur de code (macro)
Barre des menus / outils / références / et tu coches :
"Microsoft Activex Data Objects 2.x Librairy"

http://cjoint.com/?jmnEE5GSy6

"clyver" a écrit dans le message de groupe de discussion :

Bonjour le forum,

J'ai un classeur nommé listes.xls en colone $A:$A
j'aimerai alimenter plusieurs fichiers via cette liste bien sur sans
vide

je ne peux pas utiliser données/valitation/ liste :
ÞCALER(Liste!$A$1;0;0;NBVAL(Liste!$A:$A)-1)
où
ÞCALER(Liste!$A:$A;0;0;NB.SI(Liste!$A:$A;"<>"))
car mon fichier n'apartient pas a ce classeur, est il possible de
créer une relation sans déporter en liaison ma feuille lise sur tous
les classeurs?

peux etre une macro qui appel la liste

merci

Franck


Avatar
clyver
bonsoir a tous



isabelle =>jen'arivepas a utiliser t'as macro? peux tu me faire un
exemple

merci



On 12 sep, 19:26, isabelle wrote:
bonjour Franck,

voici un autre méthode, le fichier Listes peut resté fermer.

Sub Macro1()
Dim plg()
Dim x, i As Integer, ligne As Integer
Dim rep As String, fichier As String
rep = "c:zaza"
fichier = "Listes.xls"
For ligne = 1 To 20 'à adapter
  x = ExecuteExcel4Macro("'" & rep & "[" & fichier & "]Feuil1'!R" &
ligne & "C1")
  If x <> 0 Then
    ReDim Preserve plg(i)
    plg(i) = x
    i = i + 1
  End If
  Next
ActiveSheet.Shapes("Combobox1").OLEFormat.Object.Object.Clear
ActiveSheet.Shapes("Combobox1").OLEFormat.Object.Object.List =
Application.Transpose(plg)
End Sub

isabelle

clyvera écrit :



> Salut michdenis,

>  Je  voudrais appeler ma liste qui se trouve sur un fichier nomé
> Listes.xls feuil1(Liste)
> pour la transcrire en menu déroulant dans mes fichiers comme
> l'utilisation (données/valitation/liste)
> mais sans copier celle ci sur une feuille de mes classeurs.

> merci

> On 12 sep, 13:31, "michdenis" wrote:

>> BonjourClyver,

>> Un fichier exemple  :

>> Note qu'une référence a été ajoutée au classeur :
>> Dans la fenêtre de l'éditeur de code (macro)
>> Barre des menus / outils / références / et tu coches :
>> "Microsoft Activex Data Objects 2.x Librairy"

>>http://cjoint.com/?jmnEE5GSy6

>> "clyver" a écrit dans le message de groupe de discu ssion :
>>
>> Bonjour le forum,

>> J'ai un classeur nommé listes.xls en colone $A:$A
>> j'aimerai alimenter plusieurs fichiers via cette liste bien sur sans
>> vide

>> je ne peux pas utiliser données/valitation/ liste :
>> ÞCALER(Liste!$A$1;0;0;NBVAL(Liste!$A:$A)-1)
>> où
>> ÞCALER(Liste!$A:$A;0;0;NB.SI(Liste!$A:$A;"<>"))
>> car mon fichier n'apartient pas a ce classeur, est il possible de
>> créer une relation sans déporter en liaison ma feuille lise sur to us
>> les classeurs?

>> peux etre une macro qui appel la liste

>> merci

>> Franck- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Avatar
isabelle
bonjour Franck,

regarde les commentaires que j'ai mit dans la macro,
il faut adapter au besoin les valeurs des variables "rep", "fichier" et
"feuille"

fichier Listes.xls----------> http://cjoint.com/?jmu0enxHHS
fichier avec combobox-----> http://cjoint.com/?jmu1hmbP01

isabelle

clyver a écrit :
bonsoir a tous



isabelle =>jen'arivepas a utiliser t'as macro? peux tu me faire un
exemple

merci



On 12 sep, 19:26, isabelle wrote:

bonjour Franck,

voici un autre méthode, le fichier Listes peut resté fermer.

Sub Macro1()
Dim plg()
Dim x, i As Integer, ligne As Integer
Dim rep As String, fichier As String
rep = "c:zaza"
fichier = "Listes.xls"
For ligne = 1 To 20 'à adapter
x = ExecuteExcel4Macro("'" & rep & "[" & fichier & "]Feuil1'!R" &
ligne & "C1")
If x <> 0 Then
ReDim Preserve plg(i)
plg(i) = x
i = i + 1
End If
Next
ActiveSheet.Shapes("Combobox1").OLEFormat.Object.Object.Clear
ActiveSheet.Shapes("Combobox1").OLEFormat.Object.Object.List >> Application.Transpose(plg)
End Sub

isabelle

clyvera écrit :




Salut michdenis,

Je voudrais appeler ma liste qui se trouve sur un fichier nomé
Listes.xls feuil1(Liste)
pour la transcrire en menu déroulant dans mes fichiers comme
l'utilisation (données/valitation/liste)
mais sans copier celle ci sur une feuille de mes classeurs.

merci

On 12 sep, 13:31, "michdenis" wrote:

BonjourClyver,

Un fichier exemple :

Note qu'une référence a été ajoutée au classeur :
Dans la fenêtre de l'éditeur de code (macro)
Barre des menus / outils / références / et tu coches :
"Microsoft Activex Data Objects 2.x Librairy"

http://cjoint.com/?jmnEE5GSy6

"clyver" a écrit dans le message de groupe de discussion :

Bonjour le forum,

J'ai un classeur nommé listes.xls en colone $A:$A
j'aimerai alimenter plusieurs fichiers via cette liste bien sur sans
vide

je ne peux pas utiliser données/valitation/ liste :
ÞCALER(Liste!$A$1;0;0;NBVAL(Liste!$A:$A)-1)
où
ÞCALER(Liste!$A:$A;0;0;NB.SI(Liste!$A:$A;"<>"))
car mon fichier n'apartient pas a ce classeur, est il possible de
créer une relation sans déporter en liaison ma feuille lise sur tous
les classeurs?

peux etre une macro qui appel la liste

merci

Franck- Masquer le texte des messages précédents -





- Afficher le texte des messages précédents -







Avatar
clyver
Bonsoir Isabelle,

1/ Est-il possible d'appeler la macro (Alimente_le_ComboBox) à
l'ouverture de mon fichier?

2/ Sinon est-il également possible d'utiliser (données/valitation/
liste) pour dupliquer sur plusieurs cellules ma liste?

Merci Franck
Avatar
isabelle
bonjour Frank,

oui tu peut ajouter cette macro sur la page code de ThisWorkBook,

Private Sub Workbook_Open()
Alimente_le_ComboBox
End Sub

isabelle

clyver a écrit :
Bonsoir Isabelle,

1/ Est-il possible d'appeler la macro (Alimente_le_ComboBox) à
l'ouverture de mon fichier?

2/ Sinon est-il également possible d'utiliser (données/valitation/
liste) pour dupliquer sur plusieurs cellules ma liste?

Merci Franck



Avatar
clyver
Bonsoir encore merci tout fonctionne très bien encore merci