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
JB
Bonjour,
NomClas = "z.xls" For Each c In Range(Workbooks(NomClas).Sheets("feuil1").[A1], _ Workbooks(NomClas).Sheets("feuil1").[A65000].End(xlUp)) MsgBox c Next c
JB
On 7 mar, 12:23, "Jacques" <none> wrote:
Bonjour,
Je voudrais récupérer des valeurs d'une liste d'un autre classeur en identifiant ce classeur
Cette instruction marche mais n'identifie pas le classeur :
For Each c In Range(Sheets("Renommage").[A2], Sheets("Renommage").[A65000].End(xlUp))
For Each C In Range(Workbooks(Nom_Classeur).Sheets("Renommage").[A2], Workbooks(Nom_Classeur).Sheets("Renommage").[A65000].End(xlUp))
Nom_Classeur contenant le nom du classeur, mais cela ne marche pas. La variable "c" est vide. Où ai-je fait une erreur?
Merci
Bonjour,
NomClas = "z.xls"
For Each c In Range(Workbooks(NomClas).Sheets("feuil1").[A1], _
Workbooks(NomClas).Sheets("feuil1").[A65000].End(xlUp))
MsgBox c
Next c
JB
On 7 mar, 12:23, "Jacques" <none> wrote:
Bonjour,
Je voudrais récupérer des valeurs d'une liste d'un autre classeur en
identifiant ce classeur
Cette instruction marche mais n'identifie pas le classeur :
For Each c In Range(Sheets("Renommage").[A2],
Sheets("Renommage").[A65000].End(xlUp))
For Each C In Range(Workbooks(Nom_Classeur).Sheets("Renommage").[A2],
Workbooks(Nom_Classeur).Sheets("Renommage").[A65000].End(xlUp))
Nom_Classeur contenant le nom du classeur, mais cela ne marche pas. La
variable "c" est vide. Où ai-je fait une erreur?
NomClas = "z.xls" For Each c In Range(Workbooks(NomClas).Sheets("feuil1").[A1], _ Workbooks(NomClas).Sheets("feuil1").[A65000].End(xlUp)) MsgBox c Next c
JB
On 7 mar, 12:23, "Jacques" <none> wrote:
Bonjour,
Je voudrais récupérer des valeurs d'une liste d'un autre classeur en identifiant ce classeur
Cette instruction marche mais n'identifie pas le classeur :
For Each c In Range(Sheets("Renommage").[A2], Sheets("Renommage").[A65000].End(xlUp))
For Each C In Range(Workbooks(Nom_Classeur).Sheets("Renommage").[A2], Workbooks(Nom_Classeur).Sheets("Renommage").[A65000].End(xlUp))
Nom_Classeur contenant le nom du classeur, mais cela ne marche pas. La variable "c" est vide. Où ai-je fait une erreur?
Merci
francois.forcet
Salut à toi
Ce code :
For Each c In Workbooks("Classeur Source").Sheets("Onglet").Range("A2", "A" & Workbooks("Classeur Source").Sheets("Onglet").Range("A65535").End(xlUp).Row) Range("A2").Offset(i, 0) = c i = i + 1 Next
Recopie les valeurs du classeur "Classeur Source" de la feuille "Onglet" toutes les cellules non vides de la colonne A Vers ton classeur actif feuille active à partir de la cellule A2 vers le bas colonne A
Celà devrait te convenir
Dis moi !!!!
Salut à toi
Ce code :
For Each c In Workbooks("Classeur
Source").Sheets("Onglet").Range("A2", "A" & Workbooks("Classeur
Source").Sheets("Onglet").Range("A65535").End(xlUp).Row)
Range("A2").Offset(i, 0) = c
i = i + 1
Next
Recopie les valeurs du classeur "Classeur Source" de la feuille
"Onglet" toutes les cellules non vides de la colonne A
Vers ton classeur actif feuille active à partir de la cellule A2 vers
le bas colonne A
For Each c In Workbooks("Classeur Source").Sheets("Onglet").Range("A2", "A" & Workbooks("Classeur Source").Sheets("Onglet").Range("A65535").End(xlUp).Row) Range("A2").Offset(i, 0) = c i = i + 1 Next
Recopie les valeurs du classeur "Classeur Source" de la feuille "Onglet" toutes les cellules non vides de la colonne A Vers ton classeur actif feuille active à partir de la cellule A2 vers le bas colonne A
Celà devrait te convenir
Dis moi !!!!
Jacques
Ca marche merci
mais je me rends compte que j'avais écrit la même chose. C'est la variable Nom_Classeur qui était vide (pas public) . je devrais être plus attentif ;-)
"JB" a écrit dans le message de groupe de discussion :
Bonjour,
NomClas = "z.xls" For Each c In Range(Workbooks(NomClas).Sheets("feuil1").[A1], _ Workbooks(NomClas).Sheets("feuil1").[A65000].End(xlUp)) MsgBox c Next c
JB
On 7 mar, 12:23, "Jacques" <none> wrote:
Bonjour,
Je voudrais récupérer des valeurs d'une liste d'un autre classeur en identifiant ce classeur Cette instruction marche mais n'identifie pas le classeur : For Each c In Range(Sheets("Renommage").[A2], Sheets("Renommage").[A65000].End(xlUp))
For Each C In Range(Workbooks(Nom_Classeur).Sheets("Renommage").[A2], Workbooks(Nom_Classeur).Sheets("Renommage").[A65000].End(xlUp))
Nom_Classeur contenant le nom du classeur, mais cela ne marche pas. La variable "c" est vide. Où ai-je fait une erreur?
Merci
Ca marche merci
mais je me rends compte que j'avais écrit la même chose. C'est la variable
Nom_Classeur qui était vide (pas public) . je devrais être plus attentif ;-)
"JB" <boisgontier@hotmail.com> a écrit dans le message de groupe de
discussion :
003a0ac8-d248-4957-8f7b-b8c21f08af3a@m36g2000hse.googlegroups.com...
Bonjour,
NomClas = "z.xls"
For Each c In Range(Workbooks(NomClas).Sheets("feuil1").[A1], _
Workbooks(NomClas).Sheets("feuil1").[A65000].End(xlUp))
MsgBox c
Next c
JB
On 7 mar, 12:23, "Jacques" <none> wrote:
Bonjour,
Je voudrais récupérer des valeurs d'une liste d'un autre classeur en
identifiant ce classeur
Cette instruction marche mais n'identifie pas le classeur :
For Each c In Range(Sheets("Renommage").[A2],
Sheets("Renommage").[A65000].End(xlUp))
For Each C In Range(Workbooks(Nom_Classeur).Sheets("Renommage").[A2],
Workbooks(Nom_Classeur).Sheets("Renommage").[A65000].End(xlUp))
Nom_Classeur contenant le nom du classeur, mais cela ne marche pas. La
variable "c" est vide. Où ai-je fait une erreur?
mais je me rends compte que j'avais écrit la même chose. C'est la variable Nom_Classeur qui était vide (pas public) . je devrais être plus attentif ;-)
"JB" a écrit dans le message de groupe de discussion :
Bonjour,
NomClas = "z.xls" For Each c In Range(Workbooks(NomClas).Sheets("feuil1").[A1], _ Workbooks(NomClas).Sheets("feuil1").[A65000].End(xlUp)) MsgBox c Next c
JB
On 7 mar, 12:23, "Jacques" <none> wrote:
Bonjour,
Je voudrais récupérer des valeurs d'une liste d'un autre classeur en identifiant ce classeur Cette instruction marche mais n'identifie pas le classeur : For Each c In Range(Sheets("Renommage").[A2], Sheets("Renommage").[A65000].End(xlUp))
For Each C In Range(Workbooks(Nom_Classeur).Sheets("Renommage").[A2], Workbooks(Nom_Classeur).Sheets("Renommage").[A65000].End(xlUp))
Nom_Classeur contenant le nom du classeur, mais cela ne marche pas. La variable "c" est vide. Où ai-je fait une erreur?
Merci
Jacques
merci ca marche mais je comprends mieux la formule de JB
a écrit dans le message de groupe de discussion : Salut à toi
Ce code :
For Each c In Workbooks("Classeur Source").Sheets("Onglet").Range("A2", "A" & Workbooks("Classeur Source").Sheets("Onglet").Range("A65535").End(xlUp).Row) Range("A2").Offset(i, 0) = c i = i + 1 Next
Recopie les valeurs du classeur "Classeur Source" de la feuille "Onglet" toutes les cellules non vides de la colonne A Vers ton classeur actif feuille active à partir de la cellule A2 vers le bas colonne A
Celà devrait te convenir
Dis moi !!!!
merci ca marche mais je comprends mieux la formule de JB
<francois.forcet@wanadoo.fr> a écrit dans le message de groupe de discussion
: 73c5636d-fd49-44c2-b0c2-ca66f9cb7512@13g2000hsb.googlegroups.com...
Salut à toi
Ce code :
For Each c In Workbooks("Classeur
Source").Sheets("Onglet").Range("A2", "A" & Workbooks("Classeur
Source").Sheets("Onglet").Range("A65535").End(xlUp).Row)
Range("A2").Offset(i, 0) = c
i = i + 1
Next
Recopie les valeurs du classeur "Classeur Source" de la feuille
"Onglet" toutes les cellules non vides de la colonne A
Vers ton classeur actif feuille active à partir de la cellule A2 vers
le bas colonne A
merci ca marche mais je comprends mieux la formule de JB
a écrit dans le message de groupe de discussion : Salut à toi
Ce code :
For Each c In Workbooks("Classeur Source").Sheets("Onglet").Range("A2", "A" & Workbooks("Classeur Source").Sheets("Onglet").Range("A65535").End(xlUp).Row) Range("A2").Offset(i, 0) = c i = i + 1 Next
Recopie les valeurs du classeur "Classeur Source" de la feuille "Onglet" toutes les cellules non vides de la colonne A Vers ton classeur actif feuille active à partir de la cellule A2 vers le bas colonne A