envoie de donnée à partir d'userform

[Sylvain]

bonjour à tous,

J'aimerais à partir d'un userform envoyer le contenu des textbox dans des colonnes bien définies; Je voulais utiliser la fonction suivante :

[bdd!C9].Offset([F18], 0) = [Données!E15]

Mais le problème c'est qu'elle m'envoie toujous les données au même endroit alors que je voudrais que les données s'enregistre sur la ligne du dessous et ainsi de suite.

Ci joint un exemple afin de mieux comprendre.

merci d'avance

sylvain

 

[K@d]

Bonjour,

voici le même fichier mais dont le code est modifié pour te convenir....

Note : dans le code, j'ai utilisé pour me déplacer des Activecell.Offset(0,n), n étant le nombre de colonnes mais il vaut mieux nommer chaque colonne et utiliser une formule VBA du type :
Intersect(activecell.entirerow,range("NomEleveur")).value=AjoutéEleveur.textbox1.value

Voilà, à ta disposition pour plus d'informations !

Clément

"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème." (devise Shadock)

 

[Sylvain]

Rebonjour,

Je viens d'essayer ton code mais sans succès. Je suis débutant en VBA .
j'ai un message d'erreur que je ne comprends pas.

Merci pour le coup de main

sylvain

 

[arnaud]

salut,

le classeur que tu rejoins sylvain n'est plus du tout le même que celui de Clément qui m'a l'air de bien fonctionner. Donc tu as du t'emmeler les pinceaux et prendre un autre fichier.

 

[Sylvain]

Re,

En fait le classeur de clément ne contient rien ! je pense qu'il a du faire une mauvaise manip.
il n' y avait pas le code .

Merci

sylvain

 

[arnaud]

re,

il a mi le code dans un module et non dans le Userform ( ce qui je l'avoue est bizarre mais fonctionne très bien quand même )

 

[Sylvain]

re,

tu as raison c'est moi qui me suis emmêlé les pinceaux, désolé
Ca marche beaucoup mieux comme ça

Encore merci à tous

chiao

sylvain

 

[K@d]

Salut à tous deux,

je mets en fait mon code dans le module et non dans le userform car lorsque j'utilise des userforms, j'ai pour habitude de vérifier le contenu de chacun de mes champs (non vides, format de date, etc) et tant que les champs ne sont pas valides, je continue d'afficher le userform ;

Cela me permet également de ne pas avoir à ouvrir trop de fenêtres lors de successions de userform sur des projets volumineux...

Clément

 

[Sylvain]

Bonsoir,

En fait, il y a un problème dans le code de clément, si il n'y a rien aucun enregistrement le code vba plante et je ne vois pas d'où ça peut venir.

Ci joint le fichier excel

merci bien

sylvain

 

[K@d]

Salut,

pas de problème, c'est que mon fichier se réfère lors de l'ajout d'une nouvelle ligne à la première ligne saisie (cellule "Premier"). Or, lorsque celle-ci est vide, la macro ne gérait pas cette situation ;
Le "bug" est réparé puisque j'ai corrigé ton code de façon à ajouter la première ligne si elle n'existe pas.

Voilà, @ + !

Clément

"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème." (devise Shadock)

 

[Sylvain]

Salut,

Impécable la boucle dans le code c'est génial
Merci encore

@+

sylvain