Bonjour le forum
Je reviens vers vous avec de nouveaux soucis.
Le code que j'utilise me permet de renseigner des cellules à l'aide de plusieurs input box.
Mon premier souci se situe au niveau de la colonne fournisseur:
Tel que, le code me demande de rentrer un fournisseur si la cellule de la colonne fournisseur (liée à la variable ligne) est vide.
Si cette même cellule est déjà renseignée j'insère une ligne supplémentaire (la variable ligne avance d'une ligne également) et je renseigne la nouvelle cellule avec un nouveau nom de fournisseur.
Je souhaiterai avoir comme autre choix la possibilité de sélectionner une cellule avec un nom de fournisseur déjà en place (en lien avec une référence fabricant donnée) afin de pouvoir rajouter des infos grâce aux input box suivantes.
Mon deuxième souci est le nombre d'input box utilisées.
y a t'il un moyen de les regrouper toutes dans un useform avec entre autre deux listes déroulantes dynamiques permettant de sélectionner les références fabricant de la colonne B et une autre permettant de sélectionner les fournisseur de la colonne E.
Voici le code:
Merci pour tous conseils
Bonne soirée
Je reviens vers vous avec de nouveaux soucis.
Le code que j'utilise me permet de renseigner des cellules à l'aide de plusieurs input box.
Mon premier souci se situe au niveau de la colonne fournisseur:
Tel que, le code me demande de rentrer un fournisseur si la cellule de la colonne fournisseur (liée à la variable ligne) est vide.
Si cette même cellule est déjà renseignée j'insère une ligne supplémentaire (la variable ligne avance d'une ligne également) et je renseigne la nouvelle cellule avec un nouveau nom de fournisseur.
Je souhaiterai avoir comme autre choix la possibilité de sélectionner une cellule avec un nom de fournisseur déjà en place (en lien avec une référence fabricant donnée) afin de pouvoir rajouter des infos grâce aux input box suivantes.
Mon deuxième souci est le nombre d'input box utilisées.
y a t'il un moyen de les regrouper toutes dans un useform avec entre autre deux listes déroulantes dynamiques permettant de sélectionner les références fabricant de la colonne B et une autre permettant de sélectionner les fournisseur de la colonne E.
Voici le code:
Code:
Option Explicit
Sub devis()
Dim devis As String
Dim Ligne As Variant
Dim Ligne2 As Variant
Dim col As Variant
Dim Cel As Range
Dim Réf_fabr As Variant
Dim ret As Integer
Dim dlv As String
Dim f As Variant
Dim x As Variant
'BOITE DE DIALOGUE POUR SELECTIONNER LA REFERENCE FABRICANT--------------------------------------
'Saisie de la référence fabricant
Réf_fabr = Application.InputBox("Saisissez la référence fabricant", "Référence fabricant", Type:=2)
If Réf_fabr = "Faux" Or Réf_fabr = "" Then Exit Sub
'ligne récupère le N° de ligne qui contient la variable Réf_fabr
Set Ligne = Range("B:B").Find(Réf_fabr, lookat:=xlWhole)
If Not Ligne Is Nothing Then Ligne = Ligne.Row
'DEMMARAGE DE LA BOUCLE--------------------------------------------------------------------------
Do
'SAISIE DU FOURNISSEUR AVEC RENVOI A LA LIGNE SI UN NOM EST DEJA INSCRIT----------------------------
'Si la cellule fournisseur correspondante à la référence sélectionnée est vide
'on lance l'inputbox pour sélectionner un fournisseur
If Cells(Ligne, 5) = "" Then
Cells(Ligne, 5) = InputBox("Saisissez le nom du fournisseur", "Fournisseur")
Else
Rows(Ligne + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Ligne = Ligne + 1
Cells(Ligne, 5) = InputBox("Saisissez le nom du fournisseur", "Fournisseur")
End If
'SELECTION DE LA COLONNE QUI CONTIENT LE DEVIS CHOISI--------------------------------------------
'Saisie du devis traité
devis = Application.InputBox("Saisissez le devis", "Devis", Type:=2)
If devis = "Faux" Or devis = "" Then Exit Sub
'col récupère le N° de colonne qui contient la variable devis
Set col = Range("1:1").Find(devis, , xlValues, xlWhole, , , False)
If Not col Is Nothing Then col = col.Column
col = col + 1
'SELECTION DES ELEMENTS CONSTITUANT LE DEVIS CHOISI--------------------------------------------
'Saisie du prix unitaire
Cells(Ligne, col) = InputBox("Saisissez prix unitaire", "Prix unitaire")
'Saisie du délai
col = col + 1
Cells(Ligne, col) = InputBox("Saisissez le délai", "Délai")
'Saisie du conditionnement
col = col + 1
Cells(Ligne, col) = InputBox("Saisissez le conditionnement", "Conditionnement")
'Saisie du MOQ
col = col + 1
Cells(Ligne, col) = InputBox("Saisissez le MOQ", "MOQ")
'Saisie de la référence fournisseur
col = col + 1
Cells(Ligne, col) = InputBox("Saisissez la référence fournisseur", "Réference fournisseur")
Loop
End Sub
Merci pour tous conseils
Bonne soirée