copie des cellules dans des textbox

[nari]

Bonjour,
J'ai une feuille excel et je souhaite copier les cellules de cette feuille dans un useform qui contient des texbox (1 textbox pour une cellule).
J'ai déjà essayé l'operation suivante,en vain:
Sachant que j'ai un useform appelé test:
Private Sub test_Initialize()
L1.Value = sheets('feuil1').Range('A1')
L2.Value = sheets('feuil1').Range('A2')
L3.Value = sheets('feuil1').Range('A3')
End Sub

L1,L2,L3 sont respectivement des texbox dans le useform test et feuil1 la feuille qui contient les cellules à copier.
Merci d'avance

 

[PascalXLD]

Bonjour

Ton code doit plutot être de ce style

Private Sub UserForm_Initialize() '<== ICI
L1.Value = sheets('feuil1').Range('A1')
L2.Value = sheets('feuil1').Range('A2')
L3.Value = sheets('feuil1').Range('A3')
End Sub

 

[nari]

Bonjour Pascal,le forum
Je l'ai essayé mais ça ne marche pas.
Help me...
Merci d'avance

 

[PascalXLD]

tu peux envoyer ton fichier STP parceque là ce code placer dans le code de l'UF en principe il n'y a pas de problème

 

[adebrux]

et si tu fait du
L1.text=Sheets('feuil1').cells(1,1).value
L2.text=Sheets('feuil1').cells(1,2).value
Etc. Dans le cells(i,j), i représente la ligne, et j la colonne

Bon courage pour la suite

Arnaud

 

[nari]

Bonjour le forum,
Si j'essaie la methode de adebrux,ça m'affiche une erreur quand je lance le useform.
Donc,je suis toujours à la recherche de la solution miracle...
Merci d'avance

 

[PascalXLD]

Franchement je ne vois pas pourquoi ton code ne focntionnerait pas avec ce que je t'ai donné

Je répète peux-tu envoyer ton fichier STP purgé des données confidentielles ??

 

[nari]

Bonjour Pascal,le forum
Je vous envoie le fichier zippé

 

[nari]

Bonjour,
Je suis toujours interessé par le code qui permet de copier le contenu d'une cellule dans le textbox d'un useform.
merci d'avance

 

[PascalXLD]

Je n'en doute pas mais point de fichier donc difficile de bosser dessus

Rappel sur les pièces jointes (moins de 50 ko au format zip puis sans caratères spéciaux ni espaces dans le nom du fichier)

 

[nari]

Bonjour,
Je vous envoie le fichier reduit au minimum.
Merci d'avance

 

[nari]

Bonjour,
J'espère que cette fois-ci ,le fichier va passer.
Merci d'avance [file name=tester.zip size=14587]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tester.zip[/file]

 

[PascalXLD]

RE

Dis tes textbox ne sont pas des textbox mais des listbox

Ne cherche pas plus loin ....

Mets des textbox et cela marchera beaucoup mieux comme je te le montre sur ta pièce jointe

Bonne soirée [file name=tester_20050719155756.zip size=12488]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tester_20050719155756.zip[/file]

 

[nari]

Merci beaucoup Pascal,j'ai pas remarqué cette erreur.
C'est beaucoup mieux maintenant.
Encore Merci