Base de données

Bonjour,

En fait je souhaitai voir comme mytha l'a fais dans une combobox:

CODE DESIGNATION TARIF

GG125 Gaine Galva Cicurlaire 125 10

ce qui est deja fais

Ensuite aurait aime ecrire dans mon fichier devis:

exemple A3 celule acitve

Cellule A3: Gaine Galva Circulaire 125

Cellule B3 10

Si quelqu'un pouvais me tuyauter, car pour instant je n'arrive a ecrire que GG125 dans une cellule

Merci pour votre participation à mon projet

Salut le forum

ExcelNovice les modifications dans le fichier joint.

Pour lancer l'userform double-click sur une cellule en jaune

Tu as la possibilité d'ecrire sur la ligne sivante sans fermer l'userform

https://www.excel-pratique.com/~files/doc/Devis.xls

Mytå

Re Bonsoir,

Tout d'abord merci Mythâ, çà marche bien.

J'ai voulu apporte une modification en rajoutant des colonnes dans ma base de produits et les insérer dans mon devis, l'inconvénient çà me mets un message d'erreur.

Colonne A le Code

Coonne B la designation

Colonne C le tarif

Colonne D un coefficient

Pourrais tu m'expliquer comment rajouter autant de colonne que je veux et pouvoir modifier le code en conséquence? les manipulation à suivre, j'ai envie d'essayer de comprendre comment çà fonctionne.

Encore merci.

Re Excelnovice

Avec les informations suivantes du devrait être capable d'adapter ton fichier

Dans Public Sub GetXLWbkData(FileName As String, RangeName As String)

Range("A1") = rs.Fields(0).Name
Range("B1") = rs.Fields(1).Name
Range("C1") = rs.Fields(2).Name
Range("D1") = rs.Fields(3).Name 'Ajout d'une 4ième colonne
'.......
.ColumnCount = 4 'Nbre de colonne
.ColumnWidths = "40;130;20;20" 'Largeur des colonnes

Dans Private Sub UserForm_Initialize()

GetXLWbkData "C:\Test\BaseProduits.xls", "A1:D5000" 'Colonne de A à D

Dans Private Sub ComboBox1_Change()

.Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 0)
.Offset(0, 1) = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
.Offset(0, 2) = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 2)
.Offset(0, 3) = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 3) 'Ajout colonne
.Offset(1, 0).Activate

Mytå

Re Bonsoir,

Encore merci Mythâ , c'est c que je voulais, maintenant je peux adapter a mon tableau définitif.

Il me reste plus qu'a faire la mise en forme.

MERCI 8)

Salut le forum

Content que tout fonctionne

Si d'autres problèmes ne te gène pas

Mytå

Bonjour,

Je cherche à etoffer ma base de données en créant un 2eme onglet dans le fichier source.

Je pense mettre un multi page dans le fichier de projet

Page 1 du MultiPage visualisation des donnees de onglet 1 du fichier source à l'aide de la combobox

Page 2 du MultiPage je clic sur des intitulés et çà va me récupérer les valeurs dans le fichier source 2eme onglet

exemple

dans le userform intitulé appareil 1 je clic dessus

Sur mon 2eme onglet du fichier source

ColonneA Colonne B

APPAREIL1 APPAREIL1

APPAREIL1 Marque

APPAREIL1 Type

APPAREIL1 Option

çà me recopie donc ces valeurs dans mon projet.

Y aurait'il une solution plus simple, car si je rajoute des produits il faudra dans cette optique que je modifie mon code?

Pour plus de clarete je joints mes 2 fichier en zip

Bonjour,

Je remets mon fichier mis à jour avec le multipage

https://www.excel-pratique.com/~files/doc/Qf5DMtest.zip

Re le Forum

ExcelNovice la disposition de ta feuille 2 peut-elle être changer dans

le même style que la feuille 1, cela faciliterai le développement de la macro.

En attente de te relire

Mytå

RE bonsoir

je remets mon tableau de ma base produits en ligne

https://www.excel-pratique.com/~files/doc/XuG7Gtest.zip

Re le forum

ExcelNovice regarde en pièce jointe une adaptation, reste à adapter

les largeurs des combobox.

https://www.excel-pratique.com/~files/doc/Projet.xls

Mytå

Re bonsoir çà marche bien.

Maintenant je fais la mise en page.

Bonsoir,

Pour mon projet base de données, j'hesite a modifier un peu l'importation de donnees de mon fichier base devis pour la 2eme feuille qui contiendra surtout des ensembles par le code suivant

Private sub label3_click()

'Ouvre le fichier base produits.xls dans le répertoire C:

Workbooks.Open FileName:="C:\test\BaseProduits.xls"

'Sélection de mon Element 1 et ses options

Range("A2:F4").Select

Selection.Copy

Windows("Projet.xls").Activate

'Colle la sélection en conservant les textes gras italique et les largeurs de ligne

Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Windows("BaseProduits.xls").Activate

ActiveWorkbook.Close

End sub

Range("A2:F4").Select serait la zone de ensemble 1

et je pourrais modifier pour le 2eme element etc

Par contre je sais pas si çà va ralentir mon PC?

J'hesite a faire comme ceci à cause des options qui peuvent survenir et auquelles il faut mettre des tarifs.

Ma feuil1 de mon fichier BaseDevis je compte la garder avec le code sur une combobox, car j'insere des éléments unique.

Si vous avez une idée, par contre la solution que j'hesite a prendre va demander de nombreuses lignes de codes quasi identiques, alors je me demande si vraiment çà sera viable?

Salut le forum

Excelnovice il est ou ton Label3 ?

Rien en fait référence dans tes fichiers envoyés

Dur de te suivre dans tes demandes.................

Mytå

Bonsoir,

Mytha en fait je fais des tests j'avais pas mis mon fichier en ligne, car j'hésite au 2 solutions.

J'y travaille dessus là et je le remettrais je pense jeudi