textbox et mise a jour feuille

[abtony]

Bonjour le forum,

voila dans un userform j'ai une listbox a 16 colonnes, 16 textbox qui affiche la ligne sélectionné de la liste box.

Je souhaiterais savoir comment faire pour mettre a jour les donnée sur la feuille excel depuis les modif des textbox ?

j'utilise ca pour remplir mes textbox

Private Sub ListBox1_Click()
Dim X As Byte
For X = 1 To 16
Controls("Textbox" & X) = ListBox1.List(ListBox1.ListIndex, X - 1)
Next X

End Sub


je joint pas de fichier car volumineux meme compresser !


merci d'avance pour vos précieuses réponses

 

[abtony]

Re : textbox et mise a jour feuille

Re a tout le monde,

il est vrai que ce forum est très riche en informations, pas toujours facile a trouvez ce qu'on cherche avec le moteur de recherche mais on si fait; du beau travail qui est fait ici !

Mais il y a une chose qui me dérange, autant il est désagréable d'aider une personne a résoudre son problème et de ne pas être remercier pour l'aide qu'il a reçu et le temps passer;

autant il est désagréable de poser une question et de voir que ça été afficher plusieurs fois et aucune réponse même pas pour dire on sait pas !!

je poste ça car ce n'est pas la première fois que je pose un problème et je n'ai pas de réponse !

je sait pertinemment que ce n'est pas une obligation, mais un mot ça ne coute rien !!

Voila merci a bon entendeur

Je suis moi même adim d'un forum sur un tout autre sujet.

 

[abtony]

Re : textbox et mise a jour feuille

je précise toute fois une chose, j'ai beaucoup appris avec le forum et depuis que j'y suis inscrit j'ai pu aider certains avec mes maigres connaissances.

C'est ça le partage et l'entraide je sait que ce n'est pas toujours le cas !

 

[Cousinhub]

Re : textbox et mise a jour feuille

a bon entendeur

j'entends bien
je travaillais dessus, mais comme ce n'est pas le seul "chantier" en cours...
Je trouve que pour 2 heures, tu es un peu pressé
De plus, il faut NOUS-MEME créer ton usf, alors que tu aurais pu joindre un exemple, en remplaçant les données....
Donc, mon excel a planté, perdu tout mon travail, c'est ballot....

 

[abtony]

Re : textbox et mise a jour feuille

Bonjour bhbh,

ce n'est pas grave, mais sache que ce n'est pas la première fois comme je l'indique plus haut.

je sait attendre les réponses et remercier ceux qui m'aident quand il y en a !!

mon excel plante aussi très souvent !

Merci quand même

 

[Cousinhub]

Re : textbox et mise a jour feuille

Re-,
fais au moins l'effort de mettre un fichier joint en exemple, ce sera bien plus simple.

 

[phlaurent55]

Re : textbox et mise a jour feuille

Salut abtony

Re a tout le monde,
............
autant il est désagréable de poser une question et de voir que ça été afficher plusieurs fois et aucune réponse même pas pour dire on sait pas !!
.

eh ben moi j'sais pas
et ça ma gène un peu d'allonger ce fil avec cette réponse qui ne sert à rien
peut-être qu'avec un peu de patience ton problème trouvera une solution mais je pense qu'à l'heure à laquelle tu as posté ta question, les "ténors" du forum ne sont pas tous présents car, au boulot, au jardin, au......... et c'est leur droit
un peu de patience donc !😉

 

[abtony]

Re : textbox et mise a jour feuille

Re et merci pour les posts au moins j'ai des réponses (ce n'est pas une provocation) !

je conçois que tout le monde a des occupations la n'est pas le soucis.

je joint un fichier, ce sera plus clair merci a vous

 

[Cousinhub]

Re : textbox et mise a jour feuille

RE-,
la méthode de "zippage" ne doit pas être bonne, car je ne peux pas le dézipper
"Méthode inconnue"
"Pas de fichier à extraire"

 

[abtony]

Re : textbox et mise a jour feuille

re,

compression maxi fonctionne pas, j'ai re supprimer des éléments

merci

 

[Cousinhub]

Re : textbox et mise a jour feuille

Re-,
comme tu utilises des modules de classes, et que je ne maitrise pas trop ce code, ben, je ne sais pas faire

(j'ai répondu)

 

[abtony]

Re : textbox et mise a jour feuille

Re,

Je ne vois pas ce que le module de classe interfère avec mon problème, mais bon ce n'est pas grave je finirais bien par trouver.

Bonne continuation !!

 

[skoobi]

Re : textbox et mise a jour feuille

Bonsoir abtony, phlaurent55, bhbh,

Je suppose que tu veux envoyer les données vers la feuille à l'aide d'un bouton.
Dans ce cas, la propriété ".RowSource" est à proscrire pour la listbox car toutes modifications de cellule dans la feuille fera une mise à jour de la listbox et donc annulera toutes modifications faites dans les textbox (tu me suis?).

Je te propose d'alimenter la listbox à l'initialisation de l'USF (à la fin du code):

 tableau = Range("Débours")
ListBox1.List = tableau

Pour retrouver la ligne du choix fait dans la listbox:

Private Sub ListBox1_Click()
Dim X As Byte
For X = 1 To 16
 Controls("Textbox" & X) = ListBox1.List(ListBox1.ListIndex, X - 1)
Next X
[B]ligne = Sheets("Débours").Cells.Find(ListBox1.List(ListBox1.ListIndex, 0), LookIn:=xlValues, lookat:=xlPart).Row[/B]
End Sub

J'ai déclarer ligne au niveau "module" de l'USF.

Enfin le bouton (que je me suis permis de créer):

Private Sub CommandButton2_Click()
With Sheets("Débours")
    .Range("A" & ligne).Value = TextBox1.Value
    .Range("C" & ligne).Value = TextBox3.Value
    .Range("D" & ligne).Value = TextBox4.Value
etc.......
...........
End With
End Sub

J'ai commencé par les 3 premières colonnes, je pense que tu pourras compléter.

Au fait, comme les lignes 3 à 5 contiennent des "!REF", la sélection des ces dernières fera planter le code.

 

[abtony]

Re : textbox et mise a jour feuille

Bonsoir skoobi et re le forum,

Merci beaucoup pour ton aide, je vais voir ton fichier et continuer avec ces précieuses infos !

une fois de plus vous tous ici autant que vous êtes vous faites du super boulot,
je le pense sincèrement.

J'aide moi aussi, dés que ça m'est possible.

Bonne soirée

 

[abtony]

Re : textbox et mise a jour feuille

Re skoobi et le forum,

mon soucis est réglé, Merci infiniment 🙂

Bonne soirée a vous tous