voir exemples de boucles dans pj: http://cjoint.com/?fzudJD4Wjv
JB
Kic
bonsoir
je me suis mal expliqué: je voudrais copier les cellules c2 à e2 dans un fichier "tartenpion" copier les cellules c3 à e3 dans un fichier "duchemolle" copier les cellules c4 à e4 dans un fichier "trucmuche" avec une boucle pour les colonnes et une pour les différents fichiers car je possède 60 lignes à distribuer à 60 fichiers.
merci a+
"Kic" a écrit dans le message de news: 4475ee0c$0$1613$
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel. comment peut-on nommé des cellules avec un boucle for to next? du style:
for i=1 to10 Range("Ai").Select 'A étant la colonne et i la ligne next i
car cela ne fonctionne pas. quel est la synthaxe?
merci a+ kic
bonsoir
je me suis mal expliqué:
je voudrais copier les cellules c2 à e2 dans un fichier "tartenpion"
copier les cellules c3 à e3 dans un fichier "duchemolle"
copier les cellules c4 à e4 dans un fichier "trucmuche"
avec une boucle pour les colonnes et une pour les différents fichiers
car je possède 60 lignes à distribuer à 60 fichiers.
merci
a+
"Kic" <nospam@msn.com> a écrit dans le message de news:
4475ee0c$0$1613$636a55ce@news.free.fr...
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel.
comment peut-on nommé des cellules avec un boucle for to next?
du style:
for i=1 to10
Range("Ai").Select 'A étant la colonne et i la ligne
next i
je me suis mal expliqué: je voudrais copier les cellules c2 à e2 dans un fichier "tartenpion" copier les cellules c3 à e3 dans un fichier "duchemolle" copier les cellules c4 à e4 dans un fichier "trucmuche" avec une boucle pour les colonnes et une pour les différents fichiers car je possède 60 lignes à distribuer à 60 fichiers.
merci a+
"Kic" a écrit dans le message de news: 4475ee0c$0$1613$
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel. comment peut-on nommé des cellules avec un boucle for to next? du style:
for i=1 to10 Range("Ai").Select 'A étant la colonne et i la ligne next i
car cela ne fonctionne pas. quel est la synthaxe?
merci a+ kic
JLuc
*Bonjour Kic*, Tout simplement : For i = 1 To 10 Range("A" & i).Select Next i
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel. comment peut-on nommé des cellules avec un boucle for to next? du style:
for i=1 to10 Range("Ai").Select 'A étant la colonne et i la ligne next i
car cela ne fonctionne pas. quel est la synthaxe?
merci a+ kic
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Kic*,
Tout simplement :
For i = 1 To 10
Range("A" & i).Select
Next i
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel.
comment peut-on nommé des cellules avec un boucle for to next?
du style:
for i=1 to10
Range("Ai").Select 'A étant la colonne et i la ligne
next i
*Bonjour Kic*, Tout simplement : For i = 1 To 10 Range("A" & i).Select Next i
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel. comment peut-on nommé des cellules avec un boucle for to next? du style:
for i=1 to10 Range("Ai").Select 'A étant la colonne et i la ligne next i
car cela ne fonctionne pas. quel est la synthaxe?
merci a+ kic
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
JLuc
*Bonjour Kic*, Alors là, peut etre :
MesFichiers = Array("tartempion", "duchmolle", "trucmuche", ...) For x = 2 To Range("A" & Rows.Count).End(xlup).Row Workbooks(MesFichiers(x - 1)).Sheets("Feuil1").Cells(x - 1,1) = _ Thisworkbook.Cells(x, 3) 'C2 dans A1 de MesFichiers Next x
Cet exemple ne copie que la cellule C2 du classeur actif dans la cellule A1 du classeur prit dans MesFichiers ATTENTION de ne pas avoir plus de ligne que de fichier, sinon tu aura une erreur d'index sur MesFichiers !
Ou peut etre : MesFichiers = Array("tartempion", "duchmolle", "trucmuche", ...) x = 2 For Each Fichier In MesFichiers Workbooks(Fichier).Sheets(1).Range("A1:C1") = _ Thisworkbook.Range(Cells(x, 3),Cells(X, 5)) x = x + 1 Next Fichier
bonsoir
je me suis mal expliqué: je voudrais copier les cellules c2 à e2 dans un fichier "tartenpion" copier les cellules c3 à e3 dans un fichier "duchemolle" copier les cellules c4 à e4 dans un fichier "trucmuche" avec une boucle pour les colonnes et une pour les différents fichiers car je possède 60 lignes à distribuer à 60 fichiers.
merci a+
"Kic" a écrit dans le message de news: 4475ee0c$0$1613$
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel. comment peut-on nommé des cellules avec un boucle for to next? du style:
for i=1 to10 Range("Ai").Select 'A étant la colonne et i la ligne next i
car cela ne fonctionne pas. quel est la synthaxe?
merci a+ kic
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Kic*,
Alors là, peut etre :
MesFichiers = Array("tartempion", "duchmolle", "trucmuche", ...)
For x = 2 To Range("A" & Rows.Count).End(xlup).Row
Workbooks(MesFichiers(x - 1)).Sheets("Feuil1").Cells(x - 1,1) = _
Thisworkbook.Cells(x, 3) 'C2 dans A1 de MesFichiers
Next x
Cet exemple ne copie que la cellule C2 du classeur actif dans la
cellule A1 du classeur prit dans MesFichiers
ATTENTION de ne pas avoir plus de ligne que de fichier, sinon tu aura
une erreur d'index sur MesFichiers !
Ou peut etre :
MesFichiers = Array("tartempion", "duchmolle", "trucmuche", ...)
x = 2
For Each Fichier In MesFichiers
Workbooks(Fichier).Sheets(1).Range("A1:C1") = _
Thisworkbook.Range(Cells(x, 3),Cells(X, 5))
x = x + 1
Next Fichier
bonsoir
je me suis mal expliqué:
je voudrais copier les cellules c2 à e2 dans un fichier "tartenpion"
copier les cellules c3 à e3 dans un fichier "duchemolle"
copier les cellules c4 à e4 dans un fichier "trucmuche"
avec une boucle pour les colonnes et une pour les différents fichiers
car je possède 60 lignes à distribuer à 60 fichiers.
merci
a+
"Kic" <nospam@msn.com> a écrit dans le message de news:
4475ee0c$0$1613$636a55ce@news.free.fr...
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel.
comment peut-on nommé des cellules avec un boucle for to next?
du style:
for i=1 to10
Range("Ai").Select 'A étant la colonne et i la ligne
next i
MesFichiers = Array("tartempion", "duchmolle", "trucmuche", ...) For x = 2 To Range("A" & Rows.Count).End(xlup).Row Workbooks(MesFichiers(x - 1)).Sheets("Feuil1").Cells(x - 1,1) = _ Thisworkbook.Cells(x, 3) 'C2 dans A1 de MesFichiers Next x
Cet exemple ne copie que la cellule C2 du classeur actif dans la cellule A1 du classeur prit dans MesFichiers ATTENTION de ne pas avoir plus de ligne que de fichier, sinon tu aura une erreur d'index sur MesFichiers !
Ou peut etre : MesFichiers = Array("tartempion", "duchmolle", "trucmuche", ...) x = 2 For Each Fichier In MesFichiers Workbooks(Fichier).Sheets(1).Range("A1:C1") = _ Thisworkbook.Range(Cells(x, 3),Cells(X, 5)) x = x + 1 Next Fichier
bonsoir
je me suis mal expliqué: je voudrais copier les cellules c2 à e2 dans un fichier "tartenpion" copier les cellules c3 à e3 dans un fichier "duchemolle" copier les cellules c4 à e4 dans un fichier "trucmuche" avec une boucle pour les colonnes et une pour les différents fichiers car je possède 60 lignes à distribuer à 60 fichiers.
merci a+
"Kic" a écrit dans le message de news: 4475ee0c$0$1613$
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel. comment peut-on nommé des cellules avec un boucle for to next? du style:
for i=1 to10 Range("Ai").Select 'A étant la colonne et i la ligne next i
car cela ne fonctionne pas. quel est la synthaxe?
merci a+ kic
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Kic
ok! ça marche! avec tous vos exemples, j'arrive à m'en sortir.
autre question: comment je peux ouvrir un fichier qui porte le nom d'une cellule. je veux ouvrir le fichier "100001.xls" en passant par la cellule A2 qui comporte 100001 du style: "C:Documents and Settings"range(cells(A2)).xls"
merci a+ kic
"JLuc" a écrit dans le message de news:
*Bonjour Kic*, Tout simplement : For i = 1 To 10 Range("A" & i).Select Next i
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel. comment peut-on nommé des cellules avec un boucle for to next? du style:
for i=1 to10 Range("Ai").Select 'A étant la colonne et i la ligne next i
car cela ne fonctionne pas. quel est la synthaxe?
merci a+ kic
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
ok! ça marche!
avec tous vos exemples, j'arrive à m'en sortir.
autre question:
comment je peux ouvrir un fichier qui porte le nom d'une cellule.
je veux ouvrir le fichier "100001.xls" en passant par la cellule A2 qui
comporte 100001
du style: "C:Documents and Settings"range(cells(A2)).xls"
merci
a+
kic
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.d24b7d65a56cc1aa.40692@free.fr.ns...
*Bonjour Kic*,
Tout simplement :
For i = 1 To 10
Range("A" & i).Select
Next i
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel.
comment peut-on nommé des cellules avec un boucle for to next?
du style:
for i=1 to10
Range("Ai").Select 'A étant la colonne et i la ligne
next i
ok! ça marche! avec tous vos exemples, j'arrive à m'en sortir.
autre question: comment je peux ouvrir un fichier qui porte le nom d'une cellule. je veux ouvrir le fichier "100001.xls" en passant par la cellule A2 qui comporte 100001 du style: "C:Documents and Settings"range(cells(A2)).xls"
merci a+ kic
"JLuc" a écrit dans le message de news:
*Bonjour Kic*, Tout simplement : For i = 1 To 10 Range("A" & i).Select Next i
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel. comment peut-on nommé des cellules avec un boucle for to next? du style:
for i=1 to10 Range("Ai").Select 'A étant la colonne et i la ligne next i
car cela ne fonctionne pas. quel est la synthaxe?
merci a+ kic
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
JLuc
*Bonjour Kic*,
autre question: comment je peux ouvrir un fichier qui porte le nom d'une cellule. je veux ouvrir le fichier "100001.xls" en passant par la cellule A2 qui comporte 100001 du style: "C:Documents and Settings"range(cells(A2)).xls" Fichier = "C:Documents and Settings" & Range("A2") & ".xls"
merci De rien
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Kic*,
autre question:
comment je peux ouvrir un fichier qui porte le nom d'une cellule.
je veux ouvrir le fichier "100001.xls" en passant par la cellule A2 qui
comporte 100001
du style: "C:Documents and Settings"range(cells(A2)).xls"
Fichier = "C:Documents and Settings" & Range("A2") & ".xls"
autre question: comment je peux ouvrir un fichier qui porte le nom d'une cellule. je veux ouvrir le fichier "100001.xls" en passant par la cellule A2 qui comporte 100001 du style: "C:Documents and Settings"range(cells(A2)).xls" Fichier = "C:Documents and Settings" & Range("A2") & ".xls"
merci De rien
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
isabelle
bonjour Kic,,
Workbooks.Open Filename:= "C:Documents and Settings" & Range("A2")) & ".xls"
isabelle
ok! ça marche! avec tous vos exemples, j'arrive à m'en sortir.
autre question: comment je peux ouvrir un fichier qui porte le nom d'une cellule. je veux ouvrir le fichier "100001.xls" en passant par la cellule A2 qui comporte 100001 du style: "C:Documents and Settings"range(cells(A2)).xls"
merci a+ kic
"JLuc" a écrit dans le message de news:
*Bonjour Kic*, Tout simplement : For i = 1 To 10 Range("A" & i).Select Next i
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel. comment peut-on nommé des cellules avec un boucle for to next? du style:
for i=1 to10 Range("Ai").Select 'A étant la colonne et i la ligne next i
car cela ne fonctionne pas. quel est la synthaxe?
merci a+ kic
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
bonjour Kic,,
Workbooks.Open Filename:= "C:Documents and Settings" & Range("A2")) & ".xls"
isabelle
ok! ça marche!
avec tous vos exemples, j'arrive à m'en sortir.
autre question:
comment je peux ouvrir un fichier qui porte le nom d'une cellule.
je veux ouvrir le fichier "100001.xls" en passant par la cellule A2 qui
comporte 100001
du style: "C:Documents and Settings"range(cells(A2)).xls"
merci
a+
kic
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.d24b7d65a56cc1aa.40692@free.fr.ns...
*Bonjour Kic*,
Tout simplement :
For i = 1 To 10
Range("A" & i).Select
Next i
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel.
comment peut-on nommé des cellules avec un boucle for to next?
du style:
for i=1 to10
Range("Ai").Select 'A étant la colonne et i la ligne
next i
Workbooks.Open Filename:= "C:Documents and Settings" & Range("A2")) & ".xls"
isabelle
ok! ça marche! avec tous vos exemples, j'arrive à m'en sortir.
autre question: comment je peux ouvrir un fichier qui porte le nom d'une cellule. je veux ouvrir le fichier "100001.xls" en passant par la cellule A2 qui comporte 100001 du style: "C:Documents and Settings"range(cells(A2)).xls"
merci a+ kic
"JLuc" a écrit dans le message de news:
*Bonjour Kic*, Tout simplement : For i = 1 To 10 Range("A" & i).Select Next i
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel. comment peut-on nommé des cellules avec un boucle for to next? du style:
for i=1 to10 Range("Ai").Select 'A étant la colonne et i la ligne next i
car cela ne fonctionne pas. quel est la synthaxe?
merci a+ kic
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Kic
tout fonctionne, j'avance dans mon projet petit à petit.
je vous remercie pour votre aide. je n'hésiterai pas à vous recontacter pour de nouveaux renseignements!
merci a+ kic
"isabelle" a écrit dans le message de news:
bonjour Kic,,
Workbooks.Open Filename:= "C:Documents and Settings" & Range("A2")) & ".xls"
isabelle
ok! ça marche! avec tous vos exemples, j'arrive à m'en sortir.
autre question: comment je peux ouvrir un fichier qui porte le nom d'une cellule. je veux ouvrir le fichier "100001.xls" en passant par la cellule A2 qui comporte 100001 du style: "C:Documents and Settings"range(cells(A2)).xls"
merci a+ kic
"JLuc" a écrit dans le message de news:
*Bonjour Kic*, Tout simplement : For i = 1 To 10 Range("A" & i).Select Next i
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel. comment peut-on nommé des cellules avec un boucle for to next? du style:
for i=1 to10 Range("Ai").Select 'A étant la colonne et i la ligne next i
car cela ne fonctionne pas. quel est la synthaxe?
merci a+ kic
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
tout fonctionne, j'avance dans mon projet petit à petit.
je vous remercie pour votre aide.
je n'hésiterai pas à vous recontacter pour de nouveaux renseignements!
merci
a+
kic
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
efFZpcPgGHA.3984@TK2MSFTNGP02.phx.gbl...
bonjour Kic,,
Workbooks.Open Filename:= "C:Documents and Settings" & Range("A2")) &
".xls"
isabelle
ok! ça marche!
avec tous vos exemples, j'arrive à m'en sortir.
autre question:
comment je peux ouvrir un fichier qui porte le nom d'une cellule.
je veux ouvrir le fichier "100001.xls" en passant par la cellule A2 qui
comporte 100001
du style: "C:Documents and Settings"range(cells(A2)).xls"
merci
a+
kic
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.d24b7d65a56cc1aa.40692@free.fr.ns...
*Bonjour Kic*,
Tout simplement :
For i = 1 To 10
Range("A" & i).Select
Next i
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel.
comment peut-on nommé des cellules avec un boucle for to next?
du style:
for i=1 to10
Range("Ai").Select 'A étant la colonne et i la ligne
next i
tout fonctionne, j'avance dans mon projet petit à petit.
je vous remercie pour votre aide. je n'hésiterai pas à vous recontacter pour de nouveaux renseignements!
merci a+ kic
"isabelle" a écrit dans le message de news:
bonjour Kic,,
Workbooks.Open Filename:= "C:Documents and Settings" & Range("A2")) & ".xls"
isabelle
ok! ça marche! avec tous vos exemples, j'arrive à m'en sortir.
autre question: comment je peux ouvrir un fichier qui porte le nom d'une cellule. je veux ouvrir le fichier "100001.xls" en passant par la cellule A2 qui comporte 100001 du style: "C:Documents and Settings"range(cells(A2)).xls"
merci a+ kic
"JLuc" a écrit dans le message de news:
*Bonjour Kic*, Tout simplement : For i = 1 To 10 Range("A" & i).Select Next i
bonsoir
je connais un peu le vb et je voudrais me mettre au vba sous excel. comment peut-on nommé des cellules avec un boucle for to next? du style:
for i=1 to10 Range("Ai").Select 'A étant la colonne et i la ligne next i
