Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus
Si je mets Paste tout simple elle fonctionne, mais il ma faut uniquement les
veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc
Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select
For Each c In Worksheets("Make Offer").Range([C13], [C65535].End(xlUp))
Sheets("Offers").Select
For Each d In Worksheets("Offers").Range([A1], [IV1].End(xlToLeft))
If d = c Then
d.Offset(3, 0).Select
Range(c.Offset(0, 1), c.Offset(0, 3)).Copy
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks
:=False, Transpose:=False
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
l''AM
au lieu d'"activesheet" mets "selection"
Bonjour à vous toutes et tous
Encore et toujours sur le ême fichier
Cela avance petit à petit
Merci à vous tous et à FFO en particulier
Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus Si je mets Paste tout simple elle fonctionne, mais il ma faut uniquement les veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select For Each c In Worksheets("Make Offer").Range([C13], [C65535].End(xlUp)) Sheets("Offers").Select For Each d In Worksheets("Offers").Range([A1], [IV1].End(xlToLeft)) If d = c Then d.Offset(3, 0).Select Range(c.Offset(0, 1), c.Offset(0, 3)).Copy ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :úlse, Transpose:úlse
End If Next Next
au lieu d'"activesheet" mets "selection"
Bonjour à vous toutes et tous
Encore et toujours sur le ême fichier
Cela avance petit à petit
Merci à vous tous et à FFO en particulier
Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus
Si je mets Paste tout simple elle fonctionne, mais il ma faut uniquement les
veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc
Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select
For Each c In Worksheets("Make Offer").Range([C13], [C65535].End(xlUp))
Sheets("Offers").Select
For Each d In Worksheets("Offers").Range([A1], [IV1].End(xlToLeft))
If d = c Then
d.Offset(3, 0).Select
Range(c.Offset(0, 1), c.Offset(0, 3)).Copy
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks
:úlse, Transpose:úlse
Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus Si je mets Paste tout simple elle fonctionne, mais il ma faut uniquement les veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select For Each c In Worksheets("Make Offer").Range([C13], [C65535].End(xlUp)) Sheets("Offers").Select For Each d In Worksheets("Offers").Range([A1], [IV1].End(xlToLeft)) If d = c Then d.Offset(3, 0).Select Range(c.Offset(0, 1), c.Offset(0, 3)).Copy ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :úlse, Transpose:úlse
End If Next Next
rthompson
Bonjour et merci
Et cela fonctionne
Encore une petite question
J'avais espéré qu'en utilisant Paste Values il ne collerait que les valeurs
Mais il me colle également les ConditionalFormats
As-tu une idée comment empêcher cela?
En tous les cas merci et à bientôt
Rex
"l''AM" a écrit dans le message de news:
au lieu d'"activesheet" mets "selection"
Bonjour à vous toutes et tous
Encore et toujours sur le ême fichier
Cela avance petit à petit
Merci à vous tous et à FFO en particulier
Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus Si je mets Paste tout simple elle fonctionne, mais il ma faut uniquement les veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select For Each c In Worksheets("Make Offer").Range([C13], [C65535].End(xlUp)) Sheets("Offers").Select For Each d In Worksheets("Offers").Range([A1], [IV1].End(xlToLeft)) If d = c Then d.Offset(3, 0).Select Range(c.Offset(0, 1), c.Offset(0, 3)).Copy ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :úlse, Transpose:úlse
End If Next Next
Bonjour et merci
Et cela fonctionne
Encore une petite question
J'avais espéré qu'en utilisant Paste Values il ne collerait que les valeurs
Mais il me colle également les ConditionalFormats
As-tu une idée comment empêcher cela?
En tous les cas merci et à bientôt
Rex
"l''AM" <lAM@discussions.microsoft.com> a écrit dans le message de news:
D8DA38BA-6CBD-4E71-B316-B275EA1204DC@microsoft.com...
au lieu d'"activesheet" mets "selection"
Bonjour à vous toutes et tous
Encore et toujours sur le ême fichier
Cela avance petit à petit
Merci à vous tous et à FFO en particulier
Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus
Si je mets Paste tout simple elle fonctionne, mais il ma faut uniquement
les
veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc
Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select
For Each c In Worksheets("Make Offer").Range([C13],
[C65535].End(xlUp))
Sheets("Offers").Select
For Each d In Worksheets("Offers").Range([A1], [IV1].End(xlToLeft))
If d = c Then
d.Offset(3, 0).Select
Range(c.Offset(0, 1), c.Offset(0, 3)).Copy
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks
:úlse, Transpose:úlse
J'avais espéré qu'en utilisant Paste Values il ne collerait que les valeurs
Mais il me colle également les ConditionalFormats
As-tu une idée comment empêcher cela?
En tous les cas merci et à bientôt
Rex
"l''AM" a écrit dans le message de news:
au lieu d'"activesheet" mets "selection"
Bonjour à vous toutes et tous
Encore et toujours sur le ême fichier
Cela avance petit à petit
Merci à vous tous et à FFO en particulier
Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus Si je mets Paste tout simple elle fonctionne, mais il ma faut uniquement les veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select For Each c In Worksheets("Make Offer").Range([C13], [C65535].End(xlUp)) Sheets("Offers").Select For Each d In Worksheets("Offers").Range([A1], [IV1].End(xlToLeft)) If d = c Then d.Offset(3, 0).Select Range(c.Offset(0, 1), c.Offset(0, 3)).Copy ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :úlse, Transpose:úlse
J'avais espéré qu'en utilisant Paste Values il ne collerait que les valeurs
Mais il me colle également les ConditionalFormats
As-tu une idée comment empêcher cela?
En tous les cas merci et à bientôt
Rex
"l''AM" a écrit dans le message de news:
au lieu d'"activesheet" mets "selection"
Bonjour à vous toutes et tous
Encore et toujours sur le ême fichier
Cela avance petit à petit
Merci à vous tous et à FFO en particulier
Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus Si je mets Paste tout simple elle fonctionne, mais il ma faut uniquement les veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select For Each c In Worksheets("Make Offer").Range([C13], [C65535].End(xlUp)) Sheets("Offers").Select For Each d In Worksheets("Offers").Range([A1], [IV1].End(xlToLeft)) If d = c Then d.Offset(3, 0).Select Range(c.Offset(0, 1), c.Offset(0, 3)).Copy ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :úlse, Transpose:úlse
J'avais espéré qu'en utilisant Paste Values il ne collerait que les valeurs
Mais il me colle également les ConditionalFormats
As-tu une idée comment empêcher cela?
En tous les cas merci et à bientôt
Rex
"l''AM" <lAM@discussions.microsoft.com> a écrit dans le message de news:
D8DA38BA-6CBD-4E71-B316-B275EA1204DC@microsoft.com...
au lieu d'"activesheet" mets "selection"
Bonjour à vous toutes et tous
Encore et toujours sur le ême fichier
Cela avance petit à petit
Merci à vous tous et à FFO en particulier
Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus
Si je mets Paste tout simple elle fonctionne, mais il ma faut uniquement
les
veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc
Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select
For Each c In Worksheets("Make Offer").Range([C13],
[C65535].End(xlUp))
Sheets("Offers").Select
For Each d In Worksheets("Offers").Range([A1], [IV1].End(xlToLeft))
If d = c Then
d.Offset(3, 0).Select
Range(c.Offset(0, 1), c.Offset(0, 3)).Copy
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks
:úlse, Transpose:úlse
J'avais espéré qu'en utilisant Paste Values il ne collerait que les valeurs
Mais il me colle également les ConditionalFormats
As-tu une idée comment empêcher cela?
En tous les cas merci et à bientôt
Rex
"l''AM" a écrit dans le message de news:
au lieu d'"activesheet" mets "selection"
Bonjour à vous toutes et tous
Encore et toujours sur le ême fichier
Cela avance petit à petit
Merci à vous tous et à FFO en particulier
Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus Si je mets Paste tout simple elle fonctionne, mais il ma faut uniquement les veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select For Each c In Worksheets("Make Offer").Range([C13], [C65535].End(xlUp)) Sheets("Offers").Select For Each d In Worksheets("Offers").Range([A1], [IV1].End(xlToLeft)) If d = c Then d.Offset(3, 0).Select Range(c.Offset(0, 1), c.Offset(0, 3)).Copy ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :úlse, Transpose:úlse
End If Next Next
rthompson
Bonjour et MEA culpa et là alors MAXI Culpa
Juste avant la ligne en question il restait une ligne ActivSheet.Paste
Ce qui explique cela
Et pour l'autre petit souci, j'ai aussi trouvé
J'avais pas vu que tu utilisait l'offset
Là aussi c'est du maxi culpa à fond
Donc merci à toi et à "l''AM" pour votre aide
Donc nous voici en route vers de nouvelles aventures
A trés bientôt pour le prochain épisode des aventures de Rex au pays des Macros
J'avais espéré qu'en utilisant Paste Values il ne collerait que les valeurs
Mais il me colle également les ConditionalFormats
As-tu une idée comment empêcher cela?
En tous les cas merci et à bientôt
Rex
"l''AM" a écrit dans le message de news:
au lieu d'"activesheet" mets "selection"
Bonjour à vous toutes et tous
Encore et toujours sur le ême fichier
Cela avance petit à petit
Merci à vous tous et à FFO en particulier
Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus Si je mets Paste tout simple elle fonctionne, mais il ma faut uniquement les veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select For Each c In Worksheets("Make Offer").Range([C13], [C65535].End(xlUp)) Sheets("Offers").Select For Each d In Worksheets("Offers").Range([A1], [IV1].End(xlToLeft)) If d = c Then d.Offset(3, 0).Select Range(c.Offset(0, 1), c.Offset(0, 3)).Copy ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :úlse, Transpose:úlse
End If Next Next
Bonjour et MEA culpa et là alors MAXI Culpa
Juste avant la ligne en question
il restait une ligne ActivSheet.Paste
Ce qui explique cela
Et pour l'autre petit souci, j'ai aussi trouvé
J'avais pas vu que tu utilisait l'offset
Là aussi c'est du maxi culpa à fond
Donc merci à toi et à "l''AM" pour votre aide
Donc nous voici en route vers de nouvelles aventures
A trés bientôt pour le prochain épisode des aventures de Rex au pays des
Macros
Rex ;-))))))))))
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
761DCEEF-6131-4175-88A8-A3D99D58BBAB@microsoft.com...
J'avais espéré qu'en utilisant Paste Values il ne collerait que les
valeurs
Mais il me colle également les ConditionalFormats
As-tu une idée comment empêcher cela?
En tous les cas merci et à bientôt
Rex
"l''AM" <lAM@discussions.microsoft.com> a écrit dans le message de news:
D8DA38BA-6CBD-4E71-B316-B275EA1204DC@microsoft.com...
au lieu d'"activesheet" mets "selection"
Bonjour à vous toutes et tous
Encore et toujours sur le ême fichier
Cela avance petit à petit
Merci à vous tous et à FFO en particulier
Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus
Si je mets Paste tout simple elle fonctionne, mais il ma faut
uniquement
les
veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc
Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select
For Each c In Worksheets("Make Offer").Range([C13],
[C65535].End(xlUp))
Sheets("Offers").Select
For Each d In Worksheets("Offers").Range([A1],
[IV1].End(xlToLeft))
If d = c Then
d.Offset(3, 0).Select
Range(c.Offset(0, 1), c.Offset(0, 3)).Copy
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks
:úlse, Transpose:úlse
J'avais espéré qu'en utilisant Paste Values il ne collerait que les valeurs
Mais il me colle également les ConditionalFormats
As-tu une idée comment empêcher cela?
En tous les cas merci et à bientôt
Rex
"l''AM" a écrit dans le message de news:
au lieu d'"activesheet" mets "selection"
Bonjour à vous toutes et tous
Encore et toujours sur le ême fichier
Cela avance petit à petit
Merci à vous tous et à FFO en particulier
Je bloque ,enfin c'est Excel qui bloque, pas moi ;-))
sur la ligne ActivSheet pasteSpecial de la macro ci-dessus Si je mets Paste tout simple elle fonctionne, mais il ma faut uniquement les veleurs et pas les formules
Donc j'ai remplacé Paste par PasteSpecial etc Mais il bloque sur cette ligne
Si quelqu'un a la gentillesse de m'aider
Merci à vous
Rex
Sheets("Make Offer").Select For Each c In Worksheets("Make Offer").Range([C13], [C65535].End(xlUp)) Sheets("Offers").Select For Each d In Worksheets("Offers").Range([A1], [IV1].End(xlToLeft)) If d = c Then d.Offset(3, 0).Select Range(c.Offset(0, 1), c.Offset(0, 3)).Copy ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :úlse, Transpose:úlse