modification de données à partir du userform

[Hugues]

Bonjour le Forum,

Pour faire suite à mon précédent message, je vous resolicite pour cette fois ci une autre question.

Comment procéder à la mise à jour du fichier (dans une feuille excel dénommée 'fichier') à partir de modifications faites dans un userform.
Je précise que la seule donnée non modifiable est le code structure. Toutes les autres sont modifiables.
Exemple si changement d'adresse :
- j'ouvre le userform
- je modifie le champ adresse
- puis lors de l'action sur le bouton valider l'adresse est modifiée dans la feuille 'fichier'.

Pouvez-vous m'aider ?

Merci par avance,
Je joins le fichier
Hugues [file name=Copie_agenda_5.zip size=32736]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_agenda_5.zip[/file]

 

[PP]

bonsoir Hugues, bonsoir le forum

as-tu essayé le code suivant :
Private Sub CommandButton7_Click()
Sheets('fichier').Select
Columns('A:A').Select
maLigne = Selection.Find(What:='xxx003', After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Row

With Worksheets('fichier')
.Range(Cells(maLigne, 2).Address) = TextBox2
.Range(Cells(maLigne, 3).Address) = TextBox3
.Range(Cells(maLigne, 4).Address) = TextBox4
.Range(Cells(maLigne, 5).Address) = TextBox5
.Range(Cells(maLigne, 6).Address) = TextBox6
.Range(Cells(maLigne, 7).Address) = TextBox7
.Range(Cells(maLigne, 8).Address) = TextBox8
.Range(Cells(maLigne, 9).Address) = TextBox9
.Range(Cells(maLigne, 10).Address) = TextBox10
.Range(Cells(maLigne, 11).Address) = TextBox11
.Range(Cells(maLigne, 12).Address) = TextBox12
.Range(Cells(maLigne, 13).Address) = TextBox13
.Range(Cells(maLigne, 14).Address) = TextBox14
.Range(Cells(maLigne, 15).Address) = TextBox15
.Range(Cells(maLigne, 16).Address) = TextBox16
.Range(Cells(maLigne, 17).Address) = TextBox17
.Range(Cells(maLigne, 18).Address) = TextBox18
.Range(Cells(maLigne, 19).Address) = TextBox19
.Range(Cells(maLigne, 20).Address) = TextBox20
.Range(Cells(maLigne, 21).Address) = TextBox21
.Range(Cells(maLigne, 22).Address) = TextBox22
.Range(Cells(maLigne, 23).Address) = TextBox23
End With
End Sub

courage, ça va peut-être marcher

 

[PP]

Précision:

il faut bien sur remplacer 'xx003' par ComboBox1.Value

cela va sans dire !

bonne nuit à tous

 

[Hugues]

Bonjour à tous,

Merci pour le travail,

Mais je n'arrive pas à modifier les textbox N° 2 et le N°23 (dénomination et le tel portable comptable) . J'ai fait qques modifications.

Pouvez-vous m'aider ?

Ci joint le fichier,

Hugues

 

[Hugues]

Bonjour à tous,

Avec le fichier ce sera mieux.

Merci pour le travail,

Hugues

 

[Hugues]

Décidement, je dois avoir faim.

Hugues


[file name=Copie_agenda_6.zip size=26914]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_agenda_6.zip[/file]

 

[PP]

bonsoir Hugues, bonsoir à tous

j'espère que tu as pu manger un morceau.

tu devrais essayer de mettre la propriété Locked sur False pour Textbox 17 et 23 et reformuler le code pour Textbox2_change car il semble bloquer les modifs

bonne nuit
:ermm:

 

[Gibson94]

Bonsoir hugues, pp, le forum,

Pour la textbox23, elle était vérouillée...Locked=True...
Quand à la textbox2, comme elle n'était pas vérouillée mais qu'elle se comportait tout comme...la garce... je l'ai simplement renommée en textbox1 et maintenant, elle est redevenue docile...lol.

[file name=Copie_agenda_6_20050906230222.zip size=22350]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_agenda_6_20050906230222.zip[/file]

Bonne nuit à tous et à toutes.

 

[Hugues]

Merci à vous tous pour ce trés beau travail.

Hugues

 

[Gibson94]

Bonsoir Hugues, le forum,

Dans la commande du bouton de ta feuille d'accueil, tu trouveras ces 2 lignes:

'.ComboBox1.ListRows = 6
.ComboBox1.ListRows = derlign + 1

La 1ère inactive car elle est en commentaire te permettra de remplacer la 2ème si tu le désires.
A la place du '6', tu mets le nombre de lignes que tu souhaites visible dans ta liste.

La 2ème t'affiche toutes les lignes de ta liste...Donc si tu as un nombre important de ligne, il vaut mieux opter pour la 1ère option.
A toi de voir.

[file name=Copie_agenda_7.zip size=21642]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_agenda_7.zip[/file]