Soit la superbe macro réalisée grâce à vos précieux conseils qui me permet
de copier une zone dans une feuille en décalant chaque mois du nombre de
colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante :
Sheets("feuil2").Select
afin que cette recopie ne se fasse pas systématiquement dans feuil2, mais
dans une feuille dont le nom est contenu dans une cellule de feuil1
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
garnote
Bonjour Michèle,
Si tu écris le nom de la feuille à atteindre dans la cellule B1 de ta feuille1, je crois que cette macro conviendrait.
Serge
Sub collage_perso() Dim test As Variant test = [A1] feuille = [b1] Range("A2:C50").Copy Sheets(feuille).Select Cells(1, 1 + test).Select Selection.PasteSpecial Paste:=xlValues End Sub
"michele" a écrit dans le message de news: #
Bonjour,
Soit la superbe macro réalisée grâce à vos précieux conseils qui me permet de copier une zone dans une feuille en décalant chaque mois du nombre de colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante : Sheets("feuil2").Select afin que cette recopie ne se fasse pas systématiquement dans feuil2, mais dans une feuille dont le nom est contenu dans une cellule de feuil1
Merci d'avance et bonne journée
Michèle
Bonjour Michèle,
Si tu écris le nom de la feuille à atteindre
dans la cellule B1 de ta feuille1, je crois
que cette macro conviendrait.
Serge
Sub collage_perso()
Dim test As Variant
test = [A1]
feuille = [b1]
Range("A2:C50").Copy
Sheets(feuille).Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
"michele" <ce@afpa-nice.com> a écrit dans le message de news:
#pZ4mEK9DHA.2432@TK2MSFTNGP10.phx.gbl...
Bonjour,
Soit la superbe macro réalisée grâce à vos précieux conseils qui me permet
de copier une zone dans une feuille en décalant chaque mois du nombre de
colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante :
Sheets("feuil2").Select
afin que cette recopie ne se fasse pas systématiquement dans feuil2, mais
dans une feuille dont le nom est contenu dans une cellule de feuil1
Si tu écris le nom de la feuille à atteindre dans la cellule B1 de ta feuille1, je crois que cette macro conviendrait.
Serge
Sub collage_perso() Dim test As Variant test = [A1] feuille = [b1] Range("A2:C50").Copy Sheets(feuille).Select Cells(1, 1 + test).Select Selection.PasteSpecial Paste:=xlValues End Sub
"michele" a écrit dans le message de news: #
Bonjour,
Soit la superbe macro réalisée grâce à vos précieux conseils qui me permet de copier une zone dans une feuille en décalant chaque mois du nombre de colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante : Sheets("feuil2").Select afin que cette recopie ne se fasse pas systématiquement dans feuil2, mais dans une feuille dont le nom est contenu dans une cellule de feuil1
Merci d'avance et bonne journée
Michèle
michele
Bonsoir,
et merci, ça marche impec. Cela m'a permis de comprendre la différence entre les [ ] et les ( ) ça rentre doucement ...... Bonne soirée
Michèle
"garnote" a écrit dans le message de news: iv5Yb.58523$
Bonjour Michèle,
Si tu écris le nom de la feuille à atteindre dans la cellule B1 de ta feuille1, je crois que cette macro conviendrait.
Serge
Sub collage_perso() Dim test As Variant test = [A1] feuille = [b1] Range("A2:C50").Copy Sheets(feuille).Select Cells(1, 1 + test).Select Selection.PasteSpecial Paste:=xlValues End Sub
"michele" a écrit dans le message de news: #
Bonjour,
Soit la superbe macro réalisée grâce à vos précieux conseils qui me permet
de copier une zone dans une feuille en décalant chaque mois du nombre de
colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante : Sheets("feuil2").Select afin que cette recopie ne se fasse pas systématiquement dans feuil2, mais
dans une feuille dont le nom est contenu dans une cellule de feuil1
Merci d'avance et bonne journée
Michèle
Bonsoir,
et merci, ça marche impec.
Cela m'a permis de comprendre la différence entre les [ ] et les ( )
ça rentre doucement ......
Bonne soirée
Michèle
"garnote" <rien@absent.net> a écrit dans le message de news:
iv5Yb.58523$2g.15241@charlie.risq.qc.ca...
Bonjour Michèle,
Si tu écris le nom de la feuille à atteindre
dans la cellule B1 de ta feuille1, je crois
que cette macro conviendrait.
Serge
Sub collage_perso()
Dim test As Variant
test = [A1]
feuille = [b1]
Range("A2:C50").Copy
Sheets(feuille).Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
"michele" <ce@afpa-nice.com> a écrit dans le message de news:
#pZ4mEK9DHA.2432@TK2MSFTNGP10.phx.gbl...
Bonjour,
Soit la superbe macro réalisée grâce à vos précieux conseils qui me
permet
de copier une zone dans une feuille en décalant chaque mois du nombre
de
colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante :
Sheets("feuil2").Select
afin que cette recopie ne se fasse pas systématiquement dans feuil2,
mais
dans une feuille dont le nom est contenu dans une cellule de feuil1
et merci, ça marche impec. Cela m'a permis de comprendre la différence entre les [ ] et les ( ) ça rentre doucement ...... Bonne soirée
Michèle
"garnote" a écrit dans le message de news: iv5Yb.58523$
Bonjour Michèle,
Si tu écris le nom de la feuille à atteindre dans la cellule B1 de ta feuille1, je crois que cette macro conviendrait.
Serge
Sub collage_perso() Dim test As Variant test = [A1] feuille = [b1] Range("A2:C50").Copy Sheets(feuille).Select Cells(1, 1 + test).Select Selection.PasteSpecial Paste:=xlValues End Sub
"michele" a écrit dans le message de news: #
Bonjour,
Soit la superbe macro réalisée grâce à vos précieux conseils qui me permet
de copier une zone dans une feuille en décalant chaque mois du nombre de
colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante : Sheets("feuil2").Select afin que cette recopie ne se fasse pas systématiquement dans feuil2, mais
dans une feuille dont le nom est contenu dans une cellule de feuil1
Merci d'avance et bonne journée
Michèle
garnote
Par curiosité, est-ce que les cellules que tu copies contiennent des formules ?
Serge
"michele" a écrit dans le message de news: #
Bonsoir,
et merci, ça marche impec. Cela m'a permis de comprendre la différence entre les [ ] et les ( ) ça rentre doucement ...... Bonne soirée
Michèle
"garnote" a écrit dans le message de news: iv5Yb.58523$
Bonjour Michèle,
Si tu écris le nom de la feuille à atteindre dans la cellule B1 de ta feuille1, je crois que cette macro conviendrait.
Serge
Sub collage_perso() Dim test As Variant test = [A1] feuille = [b1] Range("A2:C50").Copy Sheets(feuille).Select Cells(1, 1 + test).Select Selection.PasteSpecial Paste:=xlValues End Sub
"michele" a écrit dans le message de news: #
Bonjour,
Soit la superbe macro réalisée grâce à vos précieux conseils qui me permet
de copier une zone dans une feuille en décalant chaque mois du nombre
de
colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante : Sheets("feuil2").Select afin que cette recopie ne se fasse pas systématiquement dans feuil2, mais
dans une feuille dont le nom est contenu dans une cellule de feuil1
Merci d'avance et bonne journée
Michèle
Par curiosité, est-ce que les cellules que tu
copies contiennent des formules ?
Serge
"michele" <ce@afpa-nice.com> a écrit dans le message de news:
#96zjUL9DHA.1504@TK2MSFTNGP12.phx.gbl...
Bonsoir,
et merci, ça marche impec.
Cela m'a permis de comprendre la différence entre les [ ] et les ( )
ça rentre doucement ......
Bonne soirée
Michèle
"garnote" <rien@absent.net> a écrit dans le message de news:
iv5Yb.58523$2g.15241@charlie.risq.qc.ca...
Bonjour Michèle,
Si tu écris le nom de la feuille à atteindre
dans la cellule B1 de ta feuille1, je crois
que cette macro conviendrait.
Serge
Sub collage_perso()
Dim test As Variant
test = [A1]
feuille = [b1]
Range("A2:C50").Copy
Sheets(feuille).Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
"michele" <ce@afpa-nice.com> a écrit dans le message de news:
#pZ4mEK9DHA.2432@TK2MSFTNGP10.phx.gbl...
Bonjour,
Soit la superbe macro réalisée grâce à vos précieux conseils qui me
permet
de copier une zone dans une feuille en décalant chaque mois du
nombre
de
colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante :
Sheets("feuil2").Select
afin que cette recopie ne se fasse pas systématiquement dans feuil2,
mais
dans une feuille dont le nom est contenu dans une cellule de feuil1
Par curiosité, est-ce que les cellules que tu copies contiennent des formules ?
Serge
"michele" a écrit dans le message de news: #
Bonsoir,
et merci, ça marche impec. Cela m'a permis de comprendre la différence entre les [ ] et les ( ) ça rentre doucement ...... Bonne soirée
Michèle
"garnote" a écrit dans le message de news: iv5Yb.58523$
Bonjour Michèle,
Si tu écris le nom de la feuille à atteindre dans la cellule B1 de ta feuille1, je crois que cette macro conviendrait.
Serge
Sub collage_perso() Dim test As Variant test = [A1] feuille = [b1] Range("A2:C50").Copy Sheets(feuille).Select Cells(1, 1 + test).Select Selection.PasteSpecial Paste:=xlValues End Sub
"michele" a écrit dans le message de news: #
Bonjour,
Soit la superbe macro réalisée grâce à vos précieux conseils qui me permet
de copier une zone dans une feuille en décalant chaque mois du nombre
de
colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante : Sheets("feuil2").Select afin que cette recopie ne se fasse pas systématiquement dans feuil2, mais
dans une feuille dont le nom est contenu dans une cellule de feuil1
Merci d'avance et bonne journée
Michèle
michele
Bonsoir,
Par curiosité, est-ce que les cellules que tu copies contiennent des formules ? Serge
Oui et c'est la raison pour laquelle je fais un collage spécial et ne copie que les valeurs. Pourquoi ? et bonne nuit,
Michèle
"michele" a écrit dans le message de news: #
Bonsoir,
et merci, ça marche impec. Cela m'a permis de comprendre la différence entre les [ ] et les ( ) ça rentre doucement ...... Bonne soirée
Michèle
"garnote" a écrit dans le message de news: iv5Yb.58523$
Bonjour Michèle,
Si tu écris le nom de la feuille à atteindre dans la cellule B1 de ta feuille1, je crois que cette macro conviendrait.
Serge
Sub collage_perso() Dim test As Variant test = [A1] feuille = [b1] Range("A2:C50").Copy Sheets(feuille).Select Cells(1, 1 + test).Select Selection.PasteSpecial Paste:=xlValues End Sub
"michele" a écrit dans le message de news: #
Bonjour,
Soit la superbe macro réalisée grâce à vos précieux conseils qui me
permet
de copier une zone dans une feuille en décalant chaque mois du nombre
de
colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante : Sheets("feuil2").Select afin que cette recopie ne se fasse pas systématiquement dans feuil2,
mais
dans une feuille dont le nom est contenu dans une cellule de feuil1
Merci d'avance et bonne journée
Michèle
Bonsoir,
Par curiosité, est-ce que les cellules que tu
copies contiennent des formules ?
Serge
Oui et c'est la raison pour laquelle je fais un collage spécial et ne copie
que les valeurs.
Pourquoi ?
et bonne nuit,
Michèle
"michele" <ce@afpa-nice.com> a écrit dans le message de news:
#96zjUL9DHA.1504@TK2MSFTNGP12.phx.gbl...
Bonsoir,
et merci, ça marche impec.
Cela m'a permis de comprendre la différence entre les [ ] et les ( )
ça rentre doucement ......
Bonne soirée
Michèle
"garnote" <rien@absent.net> a écrit dans le message de news:
iv5Yb.58523$2g.15241@charlie.risq.qc.ca...
Bonjour Michèle,
Si tu écris le nom de la feuille à atteindre
dans la cellule B1 de ta feuille1, je crois
que cette macro conviendrait.
Serge
Sub collage_perso()
Dim test As Variant
test = [A1]
feuille = [b1]
Range("A2:C50").Copy
Sheets(feuille).Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
"michele" <ce@afpa-nice.com> a écrit dans le message de news:
#pZ4mEK9DHA.2432@TK2MSFTNGP10.phx.gbl...
Bonjour,
Soit la superbe macro réalisée grâce à vos précieux conseils qui
me
permet
de copier une zone dans une feuille en décalant chaque mois du
nombre
de
colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante :
Sheets("feuil2").Select
afin que cette recopie ne se fasse pas systématiquement dans
feuil2,
mais
dans une feuille dont le nom est contenu dans une cellule de
feuil1
Par curiosité, est-ce que les cellules que tu copies contiennent des formules ? Serge
Oui et c'est la raison pour laquelle je fais un collage spécial et ne copie que les valeurs. Pourquoi ? et bonne nuit,
Michèle
"michele" a écrit dans le message de news: #
Bonsoir,
et merci, ça marche impec. Cela m'a permis de comprendre la différence entre les [ ] et les ( ) ça rentre doucement ...... Bonne soirée
Michèle
"garnote" a écrit dans le message de news: iv5Yb.58523$
Bonjour Michèle,
Si tu écris le nom de la feuille à atteindre dans la cellule B1 de ta feuille1, je crois que cette macro conviendrait.
Serge
Sub collage_perso() Dim test As Variant test = [A1] feuille = [b1] Range("A2:C50").Copy Sheets(feuille).Select Cells(1, 1 + test).Select Selection.PasteSpecial Paste:=xlValues End Sub
"michele" a écrit dans le message de news: #
Bonjour,
Soit la superbe macro réalisée grâce à vos précieux conseils qui me
permet
de copier une zone dans une feuille en décalant chaque mois du nombre
de
colonnes copiées.
Sub collage_perso()
Dim test As Variant
test = [A1]
Range("A2:C50").Copy
Sheets("feuil2").Select
Cells(1, 1 + test).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
J'aurais besoin, maintenant, de modifier la ligne suivante : Sheets("feuil2").Select afin que cette recopie ne se fasse pas systématiquement dans feuil2,
mais
dans une feuille dont le nom est contenu dans une cellule de feuil1
