Récupération de donnée provenant de divers UserForm

Bonjour, cette fois je vous met en pièce jointe le classeur correspondant
à ma question, car là je suis au bord du jettage d'éponge

http://cjoint.com/?ddiIjkCoN7

Ce tableau est destiné à être utilisé par des vendeurs pour me remonter de
manière hebdomadaire l'état de leur portefeuille.
Je veux donc faciliter et standardiser la saisie d'info, qui me sera
envoyer ensuite par mail sous la forme d'un fichier de données brutte que
je traiterais dans des TDC

Dans ce classeur vous avez donc deux feuilles, une liste et une saisie.
Liste contient des données utilisé par des ListBox dans des macros.

Saisie est donc la feuille ou l'utilisateur travaillera.
Dans cette feuille les colonnes A à K sont masqué pour l'utilisateur.

Ce qui ne marche pas :

*Dans la colonne W je souhaite que quand le chiffre 4 est entré mon
UserForm "datevente" apparaisse et que la selectionnée aille se copier
dans la colonne K a la ligne correspondante.
Ceci fonctionne bien pour le UserForm "concurrent" déclenché en cas de la
saisie du chiffre 5 en colone W avec deux variable publique Var et Var2
défini dans le Module 2 qui vont se coller en colonne H et I.
Ceci fonctionne également pour le UserForm "autre" déclenché en cas de
mofi de la colonne U qui renvoi la valeur de la ListBox en colonne J.
En gros ca marche pour deux UserForm et pas pour trois !!! Grrr....

*Dans la feuille saisie existe un Bouton "Envoyer les données" lié à une
macro "Envoi" du module "Navigation".
Je veux que quand l'utilisateur active cette macro, toute les données des
colonnes H à W à partir de la ligne 6 soit copié dans un nouveau classeur
nommé et enregistré "report_nomduvendeur" dans un dossier C:Reporting et
soit envoyé ensuite par mail à mon adresse mail.


Si vous pouvez m'aider...merci d'avance.

Soupull.

Bonjour.
J'ai fait les modifs qui concernent la saisie. Je n'ai pas compris les
problèmes que tu avais avec ta macro envoi.
http://cjoint.com/?ddluF0QGcq
Cordialement.
Daniel
"Soupull" <soupull@wanadoo.fr> a écrit dans le message de news:
%2386xxfpPGHA.2624@TK2MSFTNGP12.phx.gbl...

Bonjour, cette fois je vous met en pièce jointe le classeur correspondant
à ma question, car là je suis au bord du jettage d'éponge

http://cjoint.com/?ddiIjkCoN7

Ce tableau est destiné à être utilisé par des vendeurs pour me remonter de
manière hebdomadaire l'état de leur portefeuille.
Je veux donc faciliter et standardiser la saisie d'info, qui me sera
envoyer ensuite par mail sous la forme d'un fichier de données brutte que
je traiterais dans des TDC

Dans ce classeur vous avez donc deux feuilles, une liste et une saisie.
Liste contient des données utilisé par des ListBox dans des macros.

Saisie est donc la feuille ou l'utilisateur travaillera.
Dans cette feuille les colonnes A à K sont masqué pour l'utilisateur.

Ce qui ne marche pas :

*Dans la colonne W je souhaite que quand le chiffre 4 est entré mon
UserForm "datevente" apparaisse et que la selectionnée aille se copier
dans la colonne K a la ligne correspondante.
Ceci fonctionne bien pour le UserForm "concurrent" déclenché en cas de la
saisie du chiffre 5 en colone W avec deux variable publique Var et Var2
défini dans le Module 2 qui vont se coller en colonne H et I.
Ceci fonctionne également pour le UserForm "autre" déclenché en cas de
mofi de la colonne U qui renvoi la valeur de la ListBox en colonne J.
En gros ca marche pour deux UserForm et pas pour trois !!! Grrr....

*Dans la feuille saisie existe un Bouton "Envoyer les données" lié à une
macro "Envoi" du module "Navigation".
Je veux que quand l'utilisateur active cette macro, toute les données des
colonnes H à W à partir de la ligne 6 soit copié dans un nouveau classeur
nommé et enregistré "report_nomduvendeur" dans un dossier C:Reporting et
soit envoyé ensuite par mail à mon adresse mail.


Si vous pouvez m'aider...merci d'avance.

Soupull.

Merci pour ces corrections,
un problême subsiste : Quand je supprime une ligne par un clik droit sur
le numéro de la ligne puis "Supprimer" cela provoque "une erreur
d'exécution'13'Incompatibilité de type". Comment y remédier ?

Pour ce qui est de la macro Envoi j'ai écrit directement dans le Module 1
du classeur ce qui me pose problême.

http://cjoint.com/?ddmOWyNCPX

Merci

Soupull

Bonjour.
J'ai fait les modifs qui concernent la saisie. Je n'ai pas compris les
problèmes que tu avais avec ta macro envoi.
http://cjoint.com/?ddluF0QGcq
Cordialement.
Daniel
"Soupull" <soupull@wanadoo.fr> a écrit dans le message de news:
%2386xxfpPGHA.2624@TK2MSFTNGP12.phx.gbl...

Bonjour, cette fois je vous met en pièce jointe le classeur
correspondant à ma question, car là je suis au bord du jettage d'éponge

http://cjoint.com/?ddiIjkCoN7

Ce tableau est destiné à être utilisé par des vendeurs pour me remonter
de manière hebdomadaire l'état de leur portefeuille.
Je veux donc faciliter et standardiser la saisie d'info, qui me sera
envoyer ensuite par mail sous la forme d'un fichier de données brutte
que je traiterais dans des TDC

Dans ce classeur vous avez donc deux feuilles, une liste et une saisie.
Liste contient des données utilisé par des ListBox dans des macros.

Saisie est donc la feuille ou l'utilisateur travaillera.
Dans cette feuille les colonnes A à K sont masqué pour l'utilisateur.

Ce qui ne marche pas :

*Dans la colonne W je souhaite que quand le chiffre 4 est entré mon
UserForm "datevente" apparaisse et que la selectionnée aille se copier
dans la colonne K a la ligne correspondante.
Ceci fonctionne bien pour le UserForm "concurrent" déclenché en cas de
la saisie du chiffre 5 en colone W avec deux variable publique Var et
Var2 défini dans le Module 2 qui vont se coller en colonne H et I.
Ceci fonctionne également pour le UserForm "autre" déclenché en cas de
mofi de la colonne U qui renvoi la valeur de la ListBox en colonne J.
En gros ca marche pour deux UserForm et pas pour trois !!! Grrr....

*Dans la feuille saisie existe un Bouton "Envoyer les données" lié à une
macro "Envoi" du module "Navigation".
Je veux que quand l'utilisateur active cette macro, toute les données
des colonnes H à W à partir de la ligne 6 soit copié dans un nouveau
classeur nommé et enregistré "report_nomduvendeur" dans un dossier
C:Reporting et soit envoyé ensuite par mail à mon adresse mail.


Si vous pouvez m'aider...merci d'avance.

Soupull.

Merci pour ces corrections,
un problême subsiste : Quand je supprime une ligne par un clik droit sur
le numéro de la ligne puis "Supprimer" cela provoque "une erreur
d'exécution'13'Incompatibilité de type". Comment y remédier ?

Pour ce qui est de la macro Envoi j'ai écrit directement dans le Module 1
du classeur ce qui me pose problême.

http://cjoint.com/?ddmOWyNCPX

Merci

Soupull

Bonjour.
J'ai fait les modifs qui concernent la saisie. Je n'ai pas compris les
problèmes que tu avais avec ta macro envoi.
http://cjoint.com/?ddluF0QGcq
Cordialement.
Daniel
"Soupull" <soupull@wanadoo.fr> a écrit dans le message de news:
%2386xxfpPGHA.2624@TK2MSFTNGP12.phx.gbl...

Bonjour, cette fois je vous met en pièce jointe le classeur
correspondant à ma question, car là je suis au bord du jettage d'éponge

http://cjoint.com/?ddiIjkCoN7

Ce tableau est destiné à être utilisé par des vendeurs pour me remonter
de manière hebdomadaire l'état de leur portefeuille.
Je veux donc faciliter et standardiser la saisie d'info, qui me sera
envoyer ensuite par mail sous la forme d'un fichier de données brutte
que je traiterais dans des TDC

Dans ce classeur vous avez donc deux feuilles, une liste et une saisie.
Liste contient des données utilisé par des ListBox dans des macros.

Saisie est donc la feuille ou l'utilisateur travaillera.
Dans cette feuille les colonnes A à K sont masqué pour l'utilisateur.

Ce qui ne marche pas :

*Dans la colonne W je souhaite que quand le chiffre 4 est entré mon
UserForm "datevente" apparaisse et que la selectionnée aille se copier
dans la colonne K a la ligne correspondante.
Ceci fonctionne bien pour le UserForm "concurrent" déclenché en cas de
la saisie du chiffre 5 en colone W avec deux variable publique Var et
Var2 défini dans le Module 2 qui vont se coller en colonne H et I.
Ceci fonctionne également pour le UserForm "autre" déclenché en cas de
mofi de la colonne U qui renvoi la valeur de la ListBox en colonne J.
En gros ca marche pour deux UserForm et pas pour trois !!! Grrr....

*Dans la feuille saisie existe un Bouton "Envoyer les données" lié à une
macro "Envoi" du module "Navigation".
Je veux que quand l'utilisateur active cette macro, toute les données
des colonnes H à W à partir de la ligne 6 soit copié dans un nouveau
classeur nommé et enregistré "report_nomduvendeur" dans un dossier
C:Reporting et soit envoyé ensuite par mail à mon adresse mail.


Si vous pouvez m'aider...merci d'avance.

Soupull.

Je n'avais pas vu pour la suppression de colonne :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Exit Sub
If Target.Column = 21 Then
autre.Show
If Var = "" Then Exit Sub
rep = MsgBox("Vous avez choisi " & Var & ", veuillez confirmer.",
vbOKCancel)
If rep = 2 Then Exit Sub
Range("J" & Target.Row) = Var
ElseIf Target.Column = 23 And Target.Value = 5 Then
concurrent.Show
If Var = "" Then Exit Sub
rep = MsgBox("Vous avez choisi " & Var & " et " & Var2 & ", veuillez
confirmer.", vbOKCancel)
If rep = 2 Then Exit Sub
Range("H" & Target.Row) = Var
Range("I" & Target.Row) = Var2
ElseIf Target.Column = 23 And Target.Value = 4 Then
datevente.Show
If Var3 = "" Then Exit Sub
rep = MsgBox("Vous avez choisi " & Var3 & " , veuillez confirmer.",
vbOKCancel)
If rep = 2 Then Exit Sub
Range("K" & Target.Row) = Var3
End If
End Sub

Merci pour cette dernière précisoon. Si je comprend tout tu as rajouté la
ligne : If Target.Column = 1 Then Exit Sub qui dit que si la colonne 1
est modifié, stopper le reste de la Sub. Exact ?

Soupull

Je n'avais pas vu pour la suppression de colonne :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Exit Sub
If Target.Column = 21 Then
autre.Show
If Var = "" Then Exit Sub
rep = MsgBox("Vous avez choisi " & Var & ", veuillez confirmer.",
vbOKCancel)
If rep = 2 Then Exit Sub
Range("J" & Target.Row) = Var
ElseIf Target.Column = 23 And Target.Value = 5 Then
concurrent.Show
If Var = "" Then Exit Sub
rep = MsgBox("Vous avez choisi " & Var & " et " & Var2 & ",
veuillez confirmer.", vbOKCancel)
If rep = 2 Then Exit Sub
Range("H" & Target.Row) = Var
Range("I" & Target.Row) = Var2
ElseIf Target.Column = 23 And Target.Value = 4 Then
datevente.Show
If Var3 = "" Then Exit Sub
rep = MsgBox("Vous avez choisi " & Var3 & " , veuillez
confirmer.", vbOKCancel)
If rep = 2 Then Exit Sub
Range("K" & Target.Row) = Var3
End If
End Sub