USF ecrire sur plusieur onglet

J

jp14

XLDnaute Barbatruc

• 4 Février 2010

• #2

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

 

Pièces jointes

• UserForm1.zip

  2.6 KB · Affichages: 40
• UserForm1.zip

  2.6 KB · Affichages: 40
• UserForm1.zip

  2.6 KB · Affichages: 42

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 4 Février 2010

• #3

Re : USF ecrire sur plusieur onglet

merci JP14 je teste tout cela de suite

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 4 Février 2010

• #4

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 4 Février 2010

• #5

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.

Code:

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

Code:

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

JP

 

Dernière édition: 4 Février 2010

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 4 Février 2010

• #6

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 4 Février 2010

• #7

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

 

Pièces jointes

• UserForm1.zip

  2.5 KB · Affichages: 44
• UserForm1.zip

  2.5 KB · Affichages: 47
• UserForm1.zip

  2.5 KB · Affichages: 46

Vote positif 0 Vote négatif