USF ecrire sur plusieur onglet

[creolia]

bojour je reviens vers vous pour la suite de mon projet apres avoir compris comment rechercher sur plusieur onglet different voir fichier join grace a une clef primaire .

je souhaiterais remplir ma base de donnee sur plusieur onglet car le nombre de collone est insufisant pour mon projet.

quelqu'un pourais t'il m'expliquer merci

 

[jp14]

Re : USF ecrire sur plusieur onglet

Bonjour

Ci joint l'userform avec des modifications
Le premier combobox intègre des colonnes cachées qui contiennent la clef et le numéro de ligne du nom sélectionné.
Un code numérique pose des problèmes 001 étant égal à 1 ce qui pose problème lors d'une recherche.

J'ai modifié le nom des textbox
Ils contiennent le numéro de la colonne et si nécessaire le nom de la feuille qui contient les données.
Cette technique simplifie les procédures.
Si on rajoute des colonnes dans les feuilles le code n'a pas à être modifié.

A tester

JP

 

[creolia]

Re : USF ecrire sur plusieur onglet

merci JP14 je teste tout cela de suite

 

[creolia]

Re : USF ecrire sur plusieur onglet

Re JP14 l'USF que tu ma gentiment donner me permer pas d'ecrire mais de rechercher mais sa je l'ai deja

ce que je cherchais c'etait pour ecrire sur plusieur onglet sauf erreur de ma part USF que tu ma donner le permet pas

es ce normal merci

 

[jp14]

Re : USF ecrire sur plusieur onglet

Bonjour

Pour écrire il suffit d'utiliser la procédure de lecture en inversant les codes par rapport au signe égal.

Sheets(Left(Ctrl.Name, 7)).Cells(Lig2,CLng(Replace(Ctrl.Name, "DONNEE2_", "")) ) = Ctrl.Value

Attention
Il faut faire la différence entre la mise à jour et la création.
Il faut tester les valeurs Lig2 et Lig3, si la valeur est égale à 0 , c'est une création dans ce cas
on écrit

Lig2= Sheets("DONNEE2").Cells(Sheets("DONNEE2").Rows.Count, 1).End(xlUp).Row+1

JP

 

[creolia]

Re : USF ecrire sur plusieur onglet

je comprend pas tout l usf que tu ma donner le changement avais ete fais ou pas stp car la je nage n etant pas un crac en vba je suis long a comprendre

 

[jp14]

Re : USF ecrire sur plusieur onglet

Bonsoir

Ci joint l'userform avec la mise à jour et l'ajout des données dans les deux feuilles.
Il n'y pas de création pour la première feuille.
J'ai corrigé les erreurs d'écriture.

A tester

JP