j'ai une colonne c avec des donn=E9es de la ligne 15 a la=20
ligne 153
j ai besoin de recuperer c donn=E9es pour les mettres dans=20
une feuilles differentes a chaque fois mais sur la meme=20
cellule de destination (feuil2 celluleb24; feuil3 cellule=20
b24 , etc..)
et je n 'arrive pas a faire la boucle kk un peut il=20
m'aider???
voila ce ke g fait mais c trop long et excel ne le=20
supportera pas car je doit faire ca sur 90 colonnes!!!
Sub copiervaleur()
Sheets(1).Select
range("c15").Copy Worksheets(2).range("b24")
range("c16").Copy Worksheets(3).range("b24")
range("c17").Copy Worksheets(4).range("b24")
range("c18").Copy Worksheets(5).range("b24")
range("c19").Copy Worksheets(6).range("b24")
range("c20").Copy Worksheets(7).range("b24")
range("c21").Copy Worksheets(8).range("b24")
range("c22").Copy Worksheets(9).range("b24")
range("c23").Copy Worksheets(10).range("b24")
range("c24").Copy Worksheets(11).range("b24")
range("c25").Copy Worksheets(12).range("b24")
range("c26").Copy Worksheets(13).range("b24")etc...
a oui ossi je voudrais pouvoir ne copier que la valeur et=20
pas le format de la cellule d'origine (fond en couleur et=20
bordure qui ne me sont pas n=E9cessaire)
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
Jacky
Bonjour Lorant
A condition que les feuilles existent, ceci pourrait convenir '------------- For i = 15 To 153 Worksheets(i - 13).Range("b24") = Worksheets(1).Range("c" & i) Next
Salutations JJ '-------- "lorant" a écrit dans le message de news:057f01c5296d$0356a030$ bonjour et merci d'avance pour les réponses
voila mon souci
j'ai une colonne c avec des données de la ligne 15 a la ligne 153 j ai besoin de recuperer c données pour les mettres dans une feuilles differentes a chaque fois mais sur la meme cellule de destination (feuil2 celluleb24; feuil3 cellule b24 , etc..) et je n 'arrive pas a faire la boucle kk un peut il m'aider???
voila ce ke g fait mais c trop long et excel ne le supportera pas car je doit faire ca sur 90 colonnes!!! Sub copiervaleur()
Sheets(1).Select range("c15").Copy Worksheets(2).range("b24") range("c16").Copy Worksheets(3).range("b24") range("c17").Copy Worksheets(4).range("b24") range("c18").Copy Worksheets(5).range("b24") range("c19").Copy Worksheets(6).range("b24") range("c20").Copy Worksheets(7).range("b24") range("c21").Copy Worksheets(8).range("b24") range("c22").Copy Worksheets(9).range("b24") range("c23").Copy Worksheets(10).range("b24") range("c24").Copy Worksheets(11).range("b24") range("c25").Copy Worksheets(12).range("b24") range("c26").Copy Worksheets(13).range("b24")etc... a oui ossi je voudrais pouvoir ne copier que la valeur et pas le format de la cellule d'origine (fond en couleur et bordure qui ne me sont pas nécessaire)
merci pour tous renseignements.
Bonjour Lorant
A condition que les feuilles existent, ceci pourrait convenir
'-------------
For i = 15 To 153
Worksheets(i - 13).Range("b24") = Worksheets(1).Range("c" & i)
Next
Salutations
JJ
'--------
"lorant" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:057f01c5296d$0356a030$a601280a@phx.gbl...
bonjour et merci d'avance pour les réponses
voila mon souci
j'ai une colonne c avec des données de la ligne 15 a la
ligne 153
j ai besoin de recuperer c données pour les mettres dans
une feuilles differentes a chaque fois mais sur la meme
cellule de destination (feuil2 celluleb24; feuil3 cellule
b24 , etc..)
et je n 'arrive pas a faire la boucle kk un peut il
m'aider???
voila ce ke g fait mais c trop long et excel ne le
supportera pas car je doit faire ca sur 90 colonnes!!!
Sub copiervaleur()
Sheets(1).Select
range("c15").Copy Worksheets(2).range("b24")
range("c16").Copy Worksheets(3).range("b24")
range("c17").Copy Worksheets(4).range("b24")
range("c18").Copy Worksheets(5).range("b24")
range("c19").Copy Worksheets(6).range("b24")
range("c20").Copy Worksheets(7).range("b24")
range("c21").Copy Worksheets(8).range("b24")
range("c22").Copy Worksheets(9).range("b24")
range("c23").Copy Worksheets(10).range("b24")
range("c24").Copy Worksheets(11).range("b24")
range("c25").Copy Worksheets(12).range("b24")
range("c26").Copy Worksheets(13).range("b24")etc...
a oui ossi je voudrais pouvoir ne copier que la valeur et
pas le format de la cellule d'origine (fond en couleur et
bordure qui ne me sont pas nécessaire)
A condition que les feuilles existent, ceci pourrait convenir '------------- For i = 15 To 153 Worksheets(i - 13).Range("b24") = Worksheets(1).Range("c" & i) Next
Salutations JJ '-------- "lorant" a écrit dans le message de news:057f01c5296d$0356a030$ bonjour et merci d'avance pour les réponses
voila mon souci
j'ai une colonne c avec des données de la ligne 15 a la ligne 153 j ai besoin de recuperer c données pour les mettres dans une feuilles differentes a chaque fois mais sur la meme cellule de destination (feuil2 celluleb24; feuil3 cellule b24 , etc..) et je n 'arrive pas a faire la boucle kk un peut il m'aider???
voila ce ke g fait mais c trop long et excel ne le supportera pas car je doit faire ca sur 90 colonnes!!! Sub copiervaleur()
Sheets(1).Select range("c15").Copy Worksheets(2).range("b24") range("c16").Copy Worksheets(3).range("b24") range("c17").Copy Worksheets(4).range("b24") range("c18").Copy Worksheets(5).range("b24") range("c19").Copy Worksheets(6).range("b24") range("c20").Copy Worksheets(7).range("b24") range("c21").Copy Worksheets(8).range("b24") range("c22").Copy Worksheets(9).range("b24") range("c23").Copy Worksheets(10).range("b24") range("c24").Copy Worksheets(11).range("b24") range("c25").Copy Worksheets(12).range("b24") range("c26").Copy Worksheets(13).range("b24")etc... a oui ossi je voudrais pouvoir ne copier que la valeur et pas le format de la cellule d'origine (fond en couleur et bordure qui ne me sont pas nécessaire)
