modification de données à partir du userform

  • Initiateur de la discussion Initiateur de la discussion Hugues
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Hugues

XLDnaute Impliqué
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]
 

Pièces jointes

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
🙂
 
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:
 
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.
 

Pièces jointes

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]
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
635
Retour