Collage selectif avec macro

Bonjour

Mais qu'est-ce qu'on fout à l'intérieure devant son écran par un temps
pareil?????

Enc e qui me concerne, c'est pour le boulot, et au moin je suis sur la
terrasse


Enfin, après une entrée en matière comme celle-là, je crois que je limite
le

nombre de réponses potentiels

:-((((((


Voici la question
VERSION COURTE
Comment, via macro envoyer une info vers une cellule spécifique suivant sa
valeure comparée à une valeur fixe

VERSION LONGUE

Sur une feuille mes clients
Sur une feuille une liste de produits avec prix
Sur une autre une Forme pour confirmer mes ventes
Sur une autre feuille une listes des ventes

J'utilise la ci-dessous (ce n'est qu'un bout) pour copier et stocker les
infos
de ma feuille de confirmation de ventes vers ma liste de ventes

(Macro répéter une vingtaine de fois)

Sheets("Make Offer").Range("C8").Copy
Sheets("Offers").Range("g3").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse

Sheets("Make Offer").Range("C9").Copy
Sheets("Offers").Range("h3").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse


Je dois récupérer cette info pour des calculs postérieure et cela pose
probléme

Comme mon système est fait actuellement dans la même colonne je retrouve
toutes sortes de produits différents
ce qui complique mes analyses
Ce que je voudrais est d'envoyer l'info dans des colonnes spécifiques

Exemple si l'article en C8 est égale à xx22 alors mettre la valeur de
C8 en H3
si l'article en C8 est égale à xx28 alors mettre la
valeur

de C8 en H9

Voilà j'espère que c'est suffisament clair
Et que vous me répondrez avant d'aller profiter du soleil

Un grand merci à vous

Rex

Bonjour

J'ai oublié

Si cela vous aide voici une version courte du fichier

http://cjoint.com/?eplCaXJ1eW




Merci

Rex



"Rex" <rthompspamon@skynet.be> a écrit dans le message de news:
u9qnu8zfHHA.1252@TK2MSFTNGP04.phx.gbl...

Bonjour

Mais qu'est-ce qu'on fout à l'intérieure devant son écran par un temps
pareil?????

Enc e qui me concerne, c'est pour le boulot, et au moin je suis sur la
terrasse


Enfin, après une entrée en matière comme celle-là, je crois que je
limite

le

nombre de réponses potentiels

:-((((((


Voici la question
VERSION COURTE
Comment, via macro envoyer une info vers une cellule spécifique suivant
sa

valeure comparée à une valeur fixe

VERSION LONGUE

Sur une feuille mes clients
Sur une feuille une liste de produits avec prix
Sur une autre une Forme pour confirmer mes ventes
Sur une autre feuille une listes des ventes

J'utilise la ci-dessous (ce n'est qu'un bout) pour copier et stocker les
infos
de ma feuille de confirmation de ventes vers ma liste de ventes

(Macro répéter une vingtaine de fois)

Sheets("Make Offer").Range("C8").Copy
Sheets("Offers").Range("g3").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse

Sheets("Make Offer").Range("C9").Copy
Sheets("Offers").Range("h3").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse


Je dois récupérer cette info pour des calculs postérieure et cela pose
probléme

Comme mon système est fait actuellement dans la même colonne je retrouve
toutes sortes de produits différents
ce qui complique mes analyses
Ce que je voudrais est d'envoyer l'info dans des colonnes spécifiques

Exemple si l'article en C8 est égale à xx22 alors mettre la valeur
de

C8 en H3
si l'article en C8 est égale à xx28 alors mettre la
valeur

de C8 en H9

Voilà j'espère que c'est suffisament clair
Et que vous me répondrez avant d'aller profiter du soleil

Un grand merci à vous

Rex

Bonjour

Mais qu'est-ce qu'on fout à l'intérieure devant son écran par un temps
pareil?????

Enc e qui me concerne, c'est pour le boulot, et au moin je suis sur la
terrasse


Enfin, après une entrée en matière comme celle-là, je crois que je limite le
nombre de réponses potentiels

:-((((((


Voici la question
VERSION COURTE
Comment, via macro envoyer une info vers une cellule spécifique suivant sa
valeure comparée à une valeur fixe

VERSION LONGUE

Sur une feuille mes clients
Sur une feuille une liste de produits avec prix
Sur une autre une Forme pour confirmer mes ventes
Sur une autre feuille une listes des ventes

J'utilise la ci-dessous (ce n'est qu'un bout) pour copier et stocker les
infos
de ma feuille de confirmation de ventes vers ma liste de ventes

(Macro répéter une vingtaine de fois)

Sheets("Make Offer").Range("C8").Copy
Sheets("Offers").Range("g3").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse

Sheets("Make Offer").Range("C9").Copy
Sheets("Offers").Range("h3").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse


Je dois récupérer cette info pour des calculs postérieure et cela pose
probléme

Comme mon système est fait actuellement dans la même colonne je retrouve
toutes sortes de produits différents
ce qui complique mes analyses
Ce que je voudrais est d'envoyer l'info dans des colonnes spécifiques

Exemple si l'article en C8 est égale à xx22 alors mettre la valeur de
C8 en H3
si l'article en C8 est égale à xx28 alors mettre la valeur
de C8 en H9

Voilà j'espère que c'est suffisament clair
Et que vous me répondrez avant d'aller profiter du soleil

Un grand merci à vous

Rex

Bonjour Rex
'Raccourci pour la macro Confirmer_Vente()
'À ajuster pour les autres

Sheets("Sales").Select
Sheets("Conclude Sale").Range("D10:D16").Copy
Range("A3").Pastespecial Paste:=xlPasteValues, Transpose:=True

Sheets("Conclude Sale").Range("G10:G16").Copy
Range("H3").Pastespecial Paste:=xlPasteValues, Transpose:=True

Range("N3").Select
For i = 0 To 8
For j = 0 To 3
Sheets("Conclude Sale").Range("d19").Offset(, j).Copy
Selection.Offset(, 1).Pastespecial Paste:=xlPasteValues
Next j
Next i

Sheets("Conclude Sale").Range("G28:G34").Copy
Range("AY3").Pastespecial Paste:=xlPasteValues, Transpose:=True

Sheets("Conclude Sale").Range("J30:K30").Copy
Range("BF3").Pastespecial Paste:=xlPasteValues

End Sub

Bye

Gaston

"Rex" wrote:

Bonjour

Mais qu'est-ce qu'on fout à l'intérieure devant son écran par un temps
pareil?????

Enc e qui me concerne, c'est pour le boulot, et au moin je suis sur la
terrasse


Enfin, après une entrée en matière comme celle-là, je crois que je
limite le

nombre de réponses potentiels

:-((((((


Voici la question
VERSION COURTE
Comment, via macro envoyer une info vers une cellule spécifique suivant
sa

valeure comparée à une valeur fixe

VERSION LONGUE

Sur une feuille mes clients
Sur une feuille une liste de produits avec prix
Sur une autre une Forme pour confirmer mes ventes
Sur une autre feuille une listes des ventes

J'utilise la ci-dessous (ce n'est qu'un bout) pour copier et stocker les
infos
de ma feuille de confirmation de ventes vers ma liste de ventes

(Macro répéter une vingtaine de fois)

Sheets("Make Offer").Range("C8").Copy
Sheets("Offers").Range("g3").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse

Sheets("Make Offer").Range("C9").Copy
Sheets("Offers").Range("h3").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse


Je dois récupérer cette info pour des calculs postérieure et cela pose
probléme

Comme mon système est fait actuellement dans la même colonne je retrouve
toutes sortes de produits différents
ce qui complique mes analyses
Ce que je voudrais est d'envoyer l'info dans des colonnes spécifiques

Exemple si l'article en C8 est égale à xx22 alors mettre la valeur
de

C8 en H3
si l'article en C8 est égale à xx28 alors mettre la
valeur

de C8 en H9

Voilà j'espère que c'est suffisament clair
Et que vous me répondrez avant d'aller profiter du soleil

Un grand merci à vous

Rex

Bonjour

J'essaye et je te tiens au courant

Merci beaucoup pour la réponse

Rex


"Gaston" <gasjospamspam@sympatico.ca> a écrit dans le message de news:
427A15CC-BB51-4EFE-A2CE-F0021A0486E9@microsoft.com...

Bonjour Rex
'Raccourci pour la macro Confirmer_Vente()
'À ajuster pour les autres

Sheets("Sales").Select
Sheets("Conclude Sale").Range("D10:D16").Copy
Range("A3").Pastespecial Paste:=xlPasteValues, Transpose:=True

Sheets("Conclude Sale").Range("G10:G16").Copy
Range("H3").Pastespecial Paste:=xlPasteValues, Transpose:=True

Range("N3").Select
For i = 0 To 8
For j = 0 To 3
Sheets("Conclude Sale").Range("d19").Offset(, j).Copy
Selection.Offset(, 1).Pastespecial Paste:=xlPasteValues
Next j
Next i

Sheets("Conclude Sale").Range("G28:G34").Copy
Range("AY3").Pastespecial Paste:=xlPasteValues, Transpose:=True

Sheets("Conclude Sale").Range("J30:K30").Copy
Range("BF3").Pastespecial Paste:=xlPasteValues

End Sub

Bye

Gaston

"Rex" wrote:

Bonjour

Mais qu'est-ce qu'on fout à l'intérieure devant son écran par un temps
pareil?????

Enc e qui me concerne, c'est pour le boulot, et au moin je suis sur la
terrasse


Enfin, après une entrée en matière comme celle-là, je crois que je
limite le

nombre de réponses potentiels

:-((((((


Voici la question
VERSION COURTE
Comment, via macro envoyer une info vers une cellule spécifique suivant
sa

valeure comparée à une valeur fixe

VERSION LONGUE

Sur une feuille mes clients
Sur une feuille une liste de produits avec prix
Sur une autre une Forme pour confirmer mes ventes
Sur une autre feuille une listes des ventes

J'utilise la ci-dessous (ce n'est qu'un bout) pour copier et stocker les
infos
de ma feuille de confirmation de ventes vers ma liste de ventes

(Macro répéter une vingtaine de fois)

Sheets("Make Offer").Range("C8").Copy
Sheets("Offers").Range("g3").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse

Sheets("Make Offer").Range("C9").Copy
Sheets("Offers").Range("h3").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse


Je dois récupérer cette info pour des calculs postérieure et cela pose
probléme

Comme mon système est fait actuellement dans la même colonne je retrouve
toutes sortes de produits différents
ce qui complique mes analyses
Ce que je voudrais est d'envoyer l'info dans des colonnes spécifiques

Exemple si l'article en C8 est égale à xx22 alors mettre la valeur
de

C8 en H3
si l'article en C8 est égale à xx28 alors mettre la
valeur

de C8 en H9

Voilà j'espère que c'est suffisament clair
Et que vous me répondrez avant d'aller profiter du soleil

Un grand merci à vous

Rex

Bonjour Rex,
Il y a une erreur:
Sheets("Conclude Sale").Range("d19").Offset(, j).Copy
devrait être écrit:
Sheets("Conclude Sale").Range("d19").Offset(i, j).Copy
Bon test
Gaston
"Rex" wrote:

Bonjour

J'essaye et je te tiens au courant

Merci beaucoup pour la réponse

Rex


"Gaston" <gasjospamspam@sympatico.ca> a écrit dans le message de news:
427A15CC-BB51-4EFE-A2CE-F0021A0486E9@microsoft.com...

Bonjour Rex
'Raccourci pour la macro Confirmer_Vente()
'À ajuster pour les autres

Sheets("Sales").Select
Sheets("Conclude Sale").Range("D10:D16").Copy
Range("A3").Pastespecial Paste:=xlPasteValues, Transpose:=True

Sheets("Conclude Sale").Range("G10:G16").Copy
Range("H3").Pastespecial Paste:=xlPasteValues, Transpose:=True

Range("N3").Select
For i = 0 To 8
For j = 0 To 3
Sheets("Conclude Sale").Range("d19").Offset(, j).Copy
Selection.Offset(, 1).Pastespecial Paste:=xlPasteValues
Next j
Next i

Sheets("Conclude Sale").Range("G28:G34").Copy
Range("AY3").Pastespecial Paste:=xlPasteValues, Transpose:=True

Sheets("Conclude Sale").Range("J30:K30").Copy
Range("BF3").Pastespecial Paste:=xlPasteValues

End Sub

Bye

Gaston

"Rex" wrote:

Bonjour

Mais qu'est-ce qu'on fout à l'intérieure devant son écran par un
temps
pareil?????

Enc e qui me concerne, c'est pour le boulot, et au moin je suis sur
la
terrasse


Enfin, après une entrée en matière comme celle-là, je crois que je
limite le

nombre de réponses potentiels

:-((((((


Voici la question
VERSION COURTE
Comment, via macro envoyer une info vers une cellule spécifique
suivant
sa

valeure comparée à une valeur fixe

VERSION LONGUE

Sur une feuille mes clients
Sur une feuille une liste de produits avec prix
Sur une autre une Forme pour confirmer mes ventes
Sur une autre feuille une listes des ventes

J'utilise la ci-dessous (ce n'est qu'un bout) pour copier et stocker
les
infos
de ma feuille de confirmation de ventes vers ma liste de ventes

(Macro répéter une vingtaine de fois)

Sheets("Make Offer").Range("C8").Copy
Sheets("Offers").Range("g3").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse

Sheets("Make Offer").Range("C9").Copy
Sheets("Offers").Range("h3").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse


Je dois récupérer cette info pour des calculs postérieure et cela
pose
probléme

Comme mon système est fait actuellement dans la même colonne je
retrouve
toutes sortes de produits différents
ce qui complique mes analyses
Ce que je voudrais est d'envoyer l'info dans des colonnes spécifiques

Exemple si l'article en C8 est égale à xx22 alors mettre la
valeur
de

C8 en H3
si l'article en C8 est égale à xx28 alors mettre la
valeur

de C8 en H9

Voilà j'espère que c'est suffisament clair
Et que vous me répondrez avant d'aller profiter du soleil

Un grand merci à vous

Rex