VBA - Excel, apercu, modifications

Question

Bonjour, je vous expose mon probleme :



VBA ; excel



j ai 2 champs nomer : nom, prenom



Je voudrai proposer 2 solution pour entrer les donn&#233;e sur la feuille excel :

- par importation de CSV

- par saisie direct sur un formulaire ( saisie multiple possible )

- et proposer un apercu de la feuille excel sur mon userform



est-ce possible ?!

cs_Alain Proviste · Answer

pour cvs effectue une recherche, il y a une source publi&#233;e recement.

et stp la prochaine fois utilise un titre qui decrit mieux ton probleme que "besoin d'un coup de main"

:)

jpleroisse · Answer

Bonjour,
Par Importation d'un fichier csv

Dans un Module:

Sub ImporterFichier()
Dim r, Data
Range("A2").Select
Open "C:\SonFichier.csv" For Input As #1
r = 0
Do Until EOF(1)
 Line Input #1, Data
ActiveCell.Offset(r, 0) = Data
r = r + 1
Loop
Close #1
End Sub

Private Sub CommandButton1_Click()
Call ImporterFichier
End Sub 

Par Saisie dans un UserForm

Private Sub CommadButton1_Click
Dim LigneSuivante As Long
Sheets(1).Activate
LigneSuivante = Application.WorkSheetFunction.CountA(Range(A:A)) + 1
Cells(LigneSuivante, 1) = TextBox1
Cells(LigneSuivante, 2) = TextBox2
'Efface les TextBox pour une entr&#233;e suivante
TextBox1 = ""
TextBox2 = ""
TextBox1.SetFocus
DoEvents
End Sub

h_adil · Answer

c'est quoi un CSV s'il te plait
programation .....

ukos · Answer

merci beaucoup pour ces information ( et la prochaine fois j mettre un titre plus parlant :)



un CSV c un fichier text qui contien des informations exporter d'une base de donn&#233;es.



sous la forme :



Titrecolone1;Titrecolone2 ( definisant le nom des champs(access) ou des colones(excel) )

Valeur1;Valeur2 (1er serie de valeur)

Valeur1;Valeur2 (2em serie de valeur)

...

ukos · Answer

a j'aller oublier! 



personne a une solution pour afficher une feuille excel dans un
userform ( est ce que la modification de cette feuille est possible
directement ) ?!



Merci d'avance

ukos · Answer

a j ai un probleme a la ligne : 

LigneSuivante = Application.WorksheetFunction.CountA(Range(A:A)) + 1
 :x

jpleroisse · Answer

Re,
Je viens de rev&#233;rifier mon code, je n'ai pas de probl&#232;me chez moi, cela marche tr&#232;s bien. J'utilise MSOffice 2003.
Si tu as fait un copier/coller, v&#233;rifie s'il n'y a pas d'espace en trop.

Pour ce qui est de placer une feuille Excel dans un UserForm, suivant la version de ton MSOffice tu as le contr&#244;le SpreadSheet.

jpleroisse

ukos · Answer

jpleroisse merci beaucoup 

et pour mon prebleme c ete juste ca : Range("A:A") et non Range(A:A) :P



je ne trouve pas de documentation sur le controle SpreadSheet :/

VBA - Excel, apercu, modifications

8 réponses

Discussions similaires