Bonjour a tous et merci a tous ceux qui m'aident!!
JB, Isteph (merci j'ai compris comment faire pour la copie value et fomat),
et j'en passe m'ont permis d'aller plus loin.
A ce stade j'ai une macro qui copie des cellules vers un endroit precis sur
une autre feuille.
Mais j'ai rencontré des problemes de copier-coller avec le code suivant. En
effet si la premire cellule offset(1, 0) (voir tout en bas du code)de la
feuille "recap" est remplie(apres collage) avec une cellule vide, lors du
copier-coller suivant toute la ligne est ecarsée.
Comment faire pour eviter cela?
merci
emeric
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1
If Sheets(1).ListeFeuilles.Selected(i) = True Then
nf = Sheets(1).ListeFeuilles.List(i)
'nf est le n° de la feuille detenant les informations a copier
'Validation a mettre en dernier
Sheets(nf).[E4].Copy 'A4 est la cellule de départ
' offset va selectionner une autre cellule a partir de A3
Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial
(xlPasteValues)
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
lSteph
Bonsoir, Si je peux me permettre, pourquoi tous ces copier coller disparates par macro? Il semblerait un rien plus simple de créeer une ligne de synthèse de toutes ces cellules éparses par formule dans ta feuille d'origine et que la macro n'ait plus à attribuer que les valeurs d'une ligne en destination.
Cordialement.
lSteph "Swoap" a écrit dans le message de news:
Bonjour a tous et merci a tous ceux qui m'aident!!
JB, Isteph (merci j'ai compris comment faire pour la copie value et fomat), et j'en passe m'ont permis d'aller plus loin. A ce stade j'ai une macro qui copie des cellules vers un endroit precis sur une autre feuille.
Mais j'ai rencontré des problemes de copier-coller avec le code suivant. En effet si la premire cellule offset(1, 0) (voir tout en bas du code)de la feuille "recap" est remplie(apres collage) avec une cellule vide, lors du copier-coller suivant toute la ligne est ecarsée. Comment faire pour eviter cela?
merci emeric
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1 If Sheets(1).ListeFeuilles.Selected(i) = True Then nf = Sheets(1).ListeFeuilles.List(i)
'nf est le n° de la feuille detenant les informations a copier
'Validation a mettre en dernier Sheets(nf).[E4].Copy 'A4 est la cellule de départ ' offset va selectionner une autre cellule a partir de A3 Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
End If
Bonsoir,
Si je peux me permettre, pourquoi tous ces copier coller disparates par
macro?
Il semblerait un rien plus simple de créeer une ligne de synthèse de
toutes ces
cellules éparses par formule dans ta feuille d'origine
et que la macro n'ait plus à attribuer que les valeurs d'une ligne en
destination.
Cordialement.
lSteph
"Swoap" <nospam-swoap1@hotmail.com> a écrit dans le message de news:
uwwZLf0SGHA.1204@TK2MSFTNGP12.phx.gbl...
Bonjour a tous et merci a tous ceux qui m'aident!!
JB, Isteph (merci j'ai compris comment faire pour la copie value et
fomat), et j'en passe m'ont permis d'aller plus loin.
A ce stade j'ai une macro qui copie des cellules vers un endroit precis
sur une autre feuille.
Mais j'ai rencontré des problemes de copier-coller avec le code suivant.
En effet si la premire cellule offset(1, 0) (voir tout en bas du code)de
la feuille "recap" est remplie(apres collage) avec une cellule vide, lors
du copier-coller suivant toute la ligne est ecarsée.
Comment faire pour eviter cela?
merci
emeric
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1
If Sheets(1).ListeFeuilles.Selected(i) = True Then
nf = Sheets(1).ListeFeuilles.List(i)
'nf est le n° de la feuille detenant les informations a copier
'Validation a mettre en dernier
Sheets(nf).[E4].Copy 'A4 est la cellule de départ
' offset va selectionner une autre cellule a partir de A3
Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial
(xlPasteValues)
Bonsoir, Si je peux me permettre, pourquoi tous ces copier coller disparates par macro? Il semblerait un rien plus simple de créeer une ligne de synthèse de toutes ces cellules éparses par formule dans ta feuille d'origine et que la macro n'ait plus à attribuer que les valeurs d'une ligne en destination.
Cordialement.
lSteph "Swoap" a écrit dans le message de news:
Bonjour a tous et merci a tous ceux qui m'aident!!
JB, Isteph (merci j'ai compris comment faire pour la copie value et fomat), et j'en passe m'ont permis d'aller plus loin. A ce stade j'ai une macro qui copie des cellules vers un endroit precis sur une autre feuille.
Mais j'ai rencontré des problemes de copier-coller avec le code suivant. En effet si la premire cellule offset(1, 0) (voir tout en bas du code)de la feuille "recap" est remplie(apres collage) avec une cellule vide, lors du copier-coller suivant toute la ligne est ecarsée. Comment faire pour eviter cela?
merci emeric
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1 If Sheets(1).ListeFeuilles.Selected(i) = True Then nf = Sheets(1).ListeFeuilles.List(i)
'nf est le n° de la feuille detenant les informations a copier
'Validation a mettre en dernier Sheets(nf).[E4].Copy 'A4 est la cellule de départ ' offset va selectionner une autre cellule a partir de A3 Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
End If
Swoap
bonjour Isteph!!
Alors ton explication a l'air d'etre surper mais a vrai dire, j'aurais vraiment du mal a la mettre en place . Si tu peux m'eguiller.
Merci Emeric "lSteph" a écrit dans le message de news: eWGc%
Bonsoir, Si je peux me permettre, pourquoi tous ces copier coller disparates par macro? Il semblerait un rien plus simple de créeer une ligne de synthèse de toutes ces cellules éparses par formule dans ta feuille d'origine et que la macro n'ait plus à attribuer que les valeurs d'une ligne en destination.
Cordialement.
lSteph "Swoap" a écrit dans le message de news:
Bonjour a tous et merci a tous ceux qui m'aident!!
JB, Isteph (merci j'ai compris comment faire pour la copie value et fomat), et j'en passe m'ont permis d'aller plus loin. A ce stade j'ai une macro qui copie des cellules vers un endroit precis sur une autre feuille.
Mais j'ai rencontré des problemes de copier-coller avec le code suivant. En effet si la premire cellule offset(1, 0) (voir tout en bas du code)de la feuille "recap" est remplie(apres collage) avec une cellule vide, lors du copier-coller suivant toute la ligne est ecarsée. Comment faire pour eviter cela?
merci emeric
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1 If Sheets(1).ListeFeuilles.Selected(i) = True Then nf = Sheets(1).ListeFeuilles.List(i)
'nf est le n° de la feuille detenant les informations a copier
'Validation a mettre en dernier Sheets(nf).[E4].Copy 'A4 est la cellule de départ ' offset va selectionner une autre cellule a partir de A3 Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
End If
bonjour Isteph!!
Alors ton explication a l'air d'etre surper mais a vrai dire, j'aurais
vraiment du mal a la mettre en place . Si tu peux m'eguiller.
Merci
Emeric
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eWGc%23Z3SGHA.4792@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Si je peux me permettre, pourquoi tous ces copier coller disparates par
macro?
Il semblerait un rien plus simple de créeer une ligne de synthèse de
toutes ces
cellules éparses par formule dans ta feuille d'origine
et que la macro n'ait plus à attribuer que les valeurs d'une ligne en
destination.
Cordialement.
lSteph
"Swoap" <nospam-swoap1@hotmail.com> a écrit dans le message de news:
uwwZLf0SGHA.1204@TK2MSFTNGP12.phx.gbl...
Bonjour a tous et merci a tous ceux qui m'aident!!
JB, Isteph (merci j'ai compris comment faire pour la copie value et
fomat), et j'en passe m'ont permis d'aller plus loin.
A ce stade j'ai une macro qui copie des cellules vers un endroit precis
sur une autre feuille.
Mais j'ai rencontré des problemes de copier-coller avec le code suivant.
En effet si la premire cellule offset(1, 0) (voir tout en bas du code)de
la feuille "recap" est remplie(apres collage) avec une cellule vide, lors
du copier-coller suivant toute la ligne est ecarsée.
Comment faire pour eviter cela?
merci
emeric
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1
If Sheets(1).ListeFeuilles.Selected(i) = True Then
nf = Sheets(1).ListeFeuilles.List(i)
'nf est le n° de la feuille detenant les informations a copier
'Validation a mettre en dernier
Sheets(nf).[E4].Copy 'A4 est la cellule de départ
' offset va selectionner une autre cellule a partir de A3
Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial
(xlPasteValues)
Alors ton explication a l'air d'etre surper mais a vrai dire, j'aurais vraiment du mal a la mettre en place . Si tu peux m'eguiller.
Merci Emeric "lSteph" a écrit dans le message de news: eWGc%
Bonsoir, Si je peux me permettre, pourquoi tous ces copier coller disparates par macro? Il semblerait un rien plus simple de créeer une ligne de synthèse de toutes ces cellules éparses par formule dans ta feuille d'origine et que la macro n'ait plus à attribuer que les valeurs d'une ligne en destination.
Cordialement.
lSteph "Swoap" a écrit dans le message de news:
Bonjour a tous et merci a tous ceux qui m'aident!!
JB, Isteph (merci j'ai compris comment faire pour la copie value et fomat), et j'en passe m'ont permis d'aller plus loin. A ce stade j'ai une macro qui copie des cellules vers un endroit precis sur une autre feuille.
Mais j'ai rencontré des problemes de copier-coller avec le code suivant. En effet si la premire cellule offset(1, 0) (voir tout en bas du code)de la feuille "recap" est remplie(apres collage) avec une cellule vide, lors du copier-coller suivant toute la ligne est ecarsée. Comment faire pour eviter cela?
merci emeric
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1 If Sheets(1).ListeFeuilles.Selected(i) = True Then nf = Sheets(1).ListeFeuilles.List(i)
'nf est le n° de la feuille detenant les informations a copier
'Validation a mettre en dernier Sheets(nf).[E4].Copy 'A4 est la cellule de départ ' offset va selectionner une autre cellule a partir de A3 Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
End If
lSteph
Bonsoir Emeric,
Dans tes feuilles crée une ligne matrice avec toutes tes refs ¤ ¨ ¸ ... etc Cela ne fait plus qu'une ligne à récupèrer par macro dans ta boucle sur les feuilles.
Cordialement.
LSteph
"Swoap" a écrit dans le message de news: eCV6vD$
bonjour Isteph!!
Alors ton explication a l'air d'etre surper mais a vrai dire, j'aurais vraiment du mal a la mettre en place . Si tu peux m'eguiller.
Merci Emeric "lSteph" a écrit dans le message de news: eWGc%
Bonsoir, Si je peux me permettre, pourquoi tous ces copier coller disparates par macro? Il semblerait un rien plus simple de créeer une ligne de synthèse de toutes ces cellules éparses par formule dans ta feuille d'origine et que la macro n'ait plus à attribuer que les valeurs d'une ligne en destination.
Cordialement.
lSteph "Swoap" a écrit dans le message de news:
Bonjour a tous et merci a tous ceux qui m'aident!!
JB, Isteph (merci j'ai compris comment faire pour la copie value et fomat), et j'en passe m'ont permis d'aller plus loin. A ce stade j'ai une macro qui copie des cellules vers un endroit precis sur une autre feuille.
Mais j'ai rencontré des problemes de copier-coller avec le code suivant. En effet si la premire cellule offset(1, 0) (voir tout en bas du code)de la feuille "recap" est remplie(apres collage) avec une cellule vide, lors du copier-coller suivant toute la ligne est ecarsée. Comment faire pour eviter cela?
merci emeric
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1 If Sheets(1).ListeFeuilles.Selected(i) = True Then nf = Sheets(1).ListeFeuilles.List(i)
'nf est le n° de la feuille detenant les informations a copier
'Validation a mettre en dernier Sheets(nf).[E4].Copy 'A4 est la cellule de départ ' offset va selectionner une autre cellule a partir de A3 Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
End If
Bonsoir Emeric,
Dans tes feuilles crée une ligne matrice avec toutes
tes refs ¤ ¨ ¸ ... etc
Cela ne fait plus qu'une ligne à récupèrer par macro dans ta boucle sur les
feuilles.
Cordialement.
LSteph
"Swoap" <nospam-swoap1@hotmail.com> a écrit dans le message de news:
eCV6vD$SGHA.4384@tk2msftngp13.phx.gbl...
bonjour Isteph!!
Alors ton explication a l'air d'etre surper mais a vrai dire, j'aurais
vraiment du mal a la mettre en place . Si tu peux m'eguiller.
Merci
Emeric
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eWGc%23Z3SGHA.4792@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Si je peux me permettre, pourquoi tous ces copier coller disparates par
macro?
Il semblerait un rien plus simple de créeer une ligne de synthèse de
toutes ces
cellules éparses par formule dans ta feuille d'origine
et que la macro n'ait plus à attribuer que les valeurs d'une ligne en
destination.
Cordialement.
lSteph
"Swoap" <nospam-swoap1@hotmail.com> a écrit dans le message de news:
uwwZLf0SGHA.1204@TK2MSFTNGP12.phx.gbl...
Bonjour a tous et merci a tous ceux qui m'aident!!
JB, Isteph (merci j'ai compris comment faire pour la copie value et
fomat), et j'en passe m'ont permis d'aller plus loin.
A ce stade j'ai une macro qui copie des cellules vers un endroit precis
sur une autre feuille.
Mais j'ai rencontré des problemes de copier-coller avec le code suivant.
En effet si la premire cellule offset(1, 0) (voir tout en bas du code)de
la feuille "recap" est remplie(apres collage) avec une cellule vide,
lors du copier-coller suivant toute la ligne est ecarsée.
Comment faire pour eviter cela?
merci
emeric
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1
If Sheets(1).ListeFeuilles.Selected(i) = True Then
nf = Sheets(1).ListeFeuilles.List(i)
'nf est le n° de la feuille detenant les informations a copier
'Validation a mettre en dernier
Sheets(nf).[E4].Copy 'A4 est la cellule de départ
' offset va selectionner une autre cellule a partir de A3
Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial
(xlPasteValues)
Dans tes feuilles crée une ligne matrice avec toutes tes refs ¤ ¨ ¸ ... etc Cela ne fait plus qu'une ligne à récupèrer par macro dans ta boucle sur les feuilles.
Cordialement.
LSteph
"Swoap" a écrit dans le message de news: eCV6vD$
bonjour Isteph!!
Alors ton explication a l'air d'etre surper mais a vrai dire, j'aurais vraiment du mal a la mettre en place . Si tu peux m'eguiller.
Merci Emeric "lSteph" a écrit dans le message de news: eWGc%
Bonsoir, Si je peux me permettre, pourquoi tous ces copier coller disparates par macro? Il semblerait un rien plus simple de créeer une ligne de synthèse de toutes ces cellules éparses par formule dans ta feuille d'origine et que la macro n'ait plus à attribuer que les valeurs d'une ligne en destination.
Cordialement.
lSteph "Swoap" a écrit dans le message de news:
Bonjour a tous et merci a tous ceux qui m'aident!!
JB, Isteph (merci j'ai compris comment faire pour la copie value et fomat), et j'en passe m'ont permis d'aller plus loin. A ce stade j'ai une macro qui copie des cellules vers un endroit precis sur une autre feuille.
Mais j'ai rencontré des problemes de copier-coller avec le code suivant. En effet si la premire cellule offset(1, 0) (voir tout en bas du code)de la feuille "recap" est remplie(apres collage) avec une cellule vide, lors du copier-coller suivant toute la ligne est ecarsée. Comment faire pour eviter cela?
merci emeric
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1 If Sheets(1).ListeFeuilles.Selected(i) = True Then nf = Sheets(1).ListeFeuilles.List(i)
'nf est le n° de la feuille detenant les informations a copier
'Validation a mettre en dernier Sheets(nf).[E4].Copy 'A4 est la cellule de départ ' offset va selectionner une autre cellule a partir de A3 Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
