feuille et userform

Bonjour a vous tous
J’aimerai connaître la raison qui fasse que l’userform qui prends ses informations en feuil x , les trouvent quand je l’ouvre sur la page ou se trouve ces informations
car je voudrais son bouton d’appel sur une autre feuille
Actuellement l’userform fonctionne bien sur la feuille des informations mais je voudrais qu’il y prenne ses information tout en étant ouvert sur une autre feuille
Voici le code « change » puis « enter » des combobox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub ComboBox2_Change() Dim vVar1 As String, vVar2 As String vVar1 = ComboBox1.Value: vVar2 = ComboBox2.Value For Each c In Range("C2", Range("C2").End(xlDown).Address) If c = vVar1 And c.Offset(0, 1) = vVar2 Then c.EntireRow.Cells(1, 2).Interior.ColorIndex = 4 c.EntireRow.Cells(1, 3).Interior.ColorIndex = 4 c.EntireRow.Cells(1, 4).Interior.ColorIndex = 4 c.EntireRow.Cells(1, 5).Interior.ColorIndex = 4 c.EntireRow.Cells(1, 6).Interior.ColorIndex = 4 c.EntireRow.Cells(1, 7).Interior.ColorIndex = 4 c.EntireRow.Cells(1, 8).Interior.ColorIndex = 4 c.EntireRow.Cells(1, 9).Interior.ColorIndex = 4 TextBox13 = c.Offset(0, 2) TextBox14 = c.Offset(0, 3) TextBox15 = c.Offset(0, 4) TextBox16 = c.Offset(0, 5) TextBox17 = c.Offset(0, 6) End If Next End Sub

---

Je ne sais pas si vous avez besoin de plus d’information, mais n’hésitez pas a me le demander
Par ailleurs 2 autre combo sur le multipage de l’userform fonctionne avec le même code que ci-dessus mais je voudrais que lors du clic sur bouton OK supprime la ligne sélectionnée par la couleur et fait remonter d’une ligne le reste en remettant a jour l’incrémentation qui se trouve en col B

Bonne journée

Pascal

Bonjour

Tout simplement parce que à aucun moment tu ne donnes le nom de la feuille, tu parles uniquement des cellules, donc il prend les données dans la feuille active.

Philippe

bonjour Philippe

Merci de m'éclairer car je ne sais pas ou je dois rentrer le nom des feuilles car c'est code que j'ai récupérer et modifié et je ne suis pas assez bon pour comprendre toutes les ficelles de vba

merci pour ta réponse

Pascal

Bonjour,

Il y a n solutions.

La plus simple, si vous n'avez pas de très nombreux mouvements de feuilles à faire est :

Code:

---

Worksheets("nomdelafeuille").Activate

---

que vous placez, par exemple, avant la ligne :

Code:

---

For Each c In Range("C2", Range("C2").End(xlDown).Address)

---

Sinon, vous pouvez aussi utiliser :

Code:

---

Set wks = Worksheets("nomdelafeuille")

---

et mettre wks. devant chaque instruction

bonjour jean jacques

ou dois je mettre le code

Code:

---

Worksheets("nomdelafeuille").Activate

---

entre private et début de code ou ailleurscar je l'ai déja essayer et sans succès, mais si tu veux plus de détail j'ai envoyer mon fichier a zybach pour autre chose ce matin et je te l'envoie

bonne journée et merci beaucoup

Pascal

Bonjour,

Il faudrait peut-être expliquer ce que vous voulez faire avec ces deux procédures, car je ne comprends pas très bien le but.

Le ComboBox2 se trouve sur le formulaire "Userform2" et sur l'onglet "liste des clients". Or, il ne contient aucun nom de client, il semble prévu pour entrer un nom de client, ce qui ne justifie pas un "ComboBox".

D'autre part, cet objet comporte deux procédures évènementielles :

Code:

---

1 2 3

Private Sub ComboBox2_Change() et Private Sub ComboBox2_Enter().

---

La première doit déclencher une série d'instructions si le nom du client et la civilité attachée à ce client existent déjà dans la feuille "clients".

Alors, avant d'aller plus loin, il y a beaucoup de choses à modifier dans votre code et pour commencer celles-ci :

- votre ComboBox1 comprend une liste de civilités correctement enregistrées, mais pas toutes celles qui existent sur vos enregistrements sur la feuille "clients".

- regardez bien ces enregistrements sur la feuille "clients". Tous les enregistrements de la colonne "civilité" comprennent un espace à la fin du mot, sauf un qui comprend deux espaces et le dernier qui n'en comprend pas.

- donc si vous ne choisissez pas les données du dernier enregistrement, l'égalité ne sera jamais trouvée et en fait il n'y a pas lieu, pour l'instant en fonction du code, d'ajouter une référence à la feuille, c'est bien la feuille "clients" qui à ce niveau est active.

bonjour jean jacques

merci de ta réponse, c'est un code que j'ai modifié a mes besoins mais qui me pose des soucis comme tu le soulèves, je te joints mon 1er fichier créer avec ce code, si tu peux l'améliorer tant mieux car sur sa propre feuille il fonctione bien mais si le bouton est sur une autre fuile c'est la que je ne comprends pas
de plus je ne trouve pas la bonne formule qui consiste a supprimer un client n'importe ou dans le tableausans supprimer la ligne entière pour cause de données latérales

Merci beaucoup de ta réponse

je vais y réfléchir de mon coté

bonne soirée

Pascal

bonjour

voila ce qui arrive quand on copie un code que l'on a glanner ici et la sans le comprendre

il te manque des données

en l'etat il ne te sert a rien l'userform

je vais essayer de le reprendre pour qu'il puisse alimenter un feuille listeclient par exemple

voila maintenant tu peu suprimer le nom que tu veux en selectionnant dans le combobox 6 et click sur supprimer

j'ai fait en sorte aussi que l'incrementation (numerotation client soit automatique


si c'est ce que tu voulais c'est bon sinon peut tu donner des explications

oupss!!!

rebonsoir voila je reviens j'en ai profité pour le faire fonctionner quand on est sur la feuil1


a l'avenir evite de travailler avec worksheet surtout quand tu travail sur une autre feuille que celle que tu a sous les yeux


voila

auplaisir

bonsoir patrick

merci pour ta réponse, l'userform fonctionne bien au niveau de la suppression de client mais a partir du bouton de la feuille client, mais pas avec celui dans la feuil1 l'ouverture est lente et se bloque, mais je vais essayer sur un autre pc ce soir et je te tiens au courant
concernant l'utilisation de worksheets ou sheets, je ne connait pas procédure qui falait adapter alors mes essais malheureux sont relevé par ta compétence

apres essai sur autre pc je comfirme que l'userform est lent a actionné ses boutons et bloque meme
le but est de ne plus avoir de bouton sur la feuille client

merci pour tout

bonne soirée

Pascal

bonjour grizan29

voila je reviens encore avec une 12 eme version de ton fichier

entierement revue et corigé

le code est commenter

j'ai meme rajouter une page dans ton usf multipage pour les modification eventuelles des données clients dinamiquement biensur


voila donne des nouvelles si ca te conviens


au plaisir

bonjour patricktoulon et le forum

un tres grand merci pour ce que tu a fait cela fonctionne a merveille sur les 2 feuilles il n'y a pas plus a dire, l'ajout de la page me plait aussi je n'y avait pas pensé
merci a toi et au forum qui etes d'une efficacité redoutable

bonne journée

Pascal