Cellule excel vers TextBox USF

[niepce26]

Bonjour à tous,

Vous trouverez ci-joint mon fichier (fichier pris sur ce forum « merci le forum » puis modifier).

Voici la procédure :

1 : Touche « Menu principal »
2 : Touche « Nouveau Devis »
3 : Touche « Créer un nouveau devis »
4 : Rentrer les données nécessaires.

Sur cette USF je voudrai afficher le montant de mon devis (Feuille Analyse AA3) dans la txt1 de mon USF.

Pour cela il faudrait m’aider à résoudre deux problèmes.

1er : comment afficher depuis mon USF « Nouveau devis » le numéro d’enregistrement (label9) sur la feuille excel Analyse en A1. (cela me permet le calcul du devis).

Puis

2ème : reporter la valeur « Analyse AA3 » (montant de mon devis) sur txt1 de mon USF Nouveau Devis.

Merci de vos explications j’ai beau chercher (et vue mon niveau très faible) je ne trouve pas ma réponse.

Niepce

 

[THE CAT 2007]

Re : Cellule excel vers TextBox USF

Bonsoir,

comment afficher depuis mon USF « Nouveau devis »
le numéro d’enregistrement (label9)

Il faut déjà par code vba donner le numéro devis à label9

userform("Nouveau devis").label9.value (ou text)=numeroDevis
numeroDevis étant une variable qui contient le numéro de devis
au cas où : sheets("Analyse").range("A1").value (ou text)=numeroDevis

Analyse AA3 » (montant de mon devis) sur txt1 de mon USF Nouveau Devis.
userform("Nouveau devis").textbox1.value (ou text)=sheets("Analyse").range("AA3").value (ou text)

 

[niepce26]

Re : Cellule excel vers TextBox USF

Merci THE CAT2007 pour la réponse

si tu vais un petit fichier comme exemple cela m'aiderai.

Niepce

 

[THE CAT 2007]

Re : Cellule excel vers TextBox USF

Bonsoir,

Voici ton code un peu modifié pour le point

2ème : reporter la valeur « Analyse AA3 » (montant de mon devis) sur txt1 de mon USF Nouveau Devis.

ai ajouté la ligne en bleu, comme les testbox s'appellent toutes 1, j'en ai pris 1 au hasard ... ;-)

Private Sub CommandButton2_Click()
NouveauDevis.Txtdevistaille1.Value = Sheets("analyse").Range("aa3").Value

NouveauDevis.Show
End Sub

remplacer Txtdevistaille1 par label9 pour le 1)
et inverser l'égalité pour envoyer des données vers la feuille à partir du UF
Sheets("analyse").Range("aa3").Value=NouveauDevis.Txtdevistaille1.Value