Gestion de stock new look

Bonjour a tous

dans le but d'amelioré mon fichier (ce dernier fonctionne correctement), je solicite votres aides.

voici mon but

dans le USERFORM3 j'aimerais qu'on puissent faire un choix entre CheckBox1 et CheckBox2

le CheckBox voulu choisi, le ComboBox2 auras une liste deroulante de la feuille INFO, colonne D pour RENAULT et colonne E pour DACIA.

je vous joint le fichier

merci d'avance a celui qui me guidera

80inventaire-v1.xlsm (238.01 Ko)

Bonsoir,

Sans trop m'attarder sur votre demande, juste une info :

lorsque l'on veut faire un choix de type "unique" soit Renault soit dacia le mieux est de faire un optionbouton.

L'avantage ? Lorsqu'ils se trouvent sur la même frame, ils se gèrent tout seuls : lorsque l'on clic sur le premier l'autre (ou les autres) se désélectionnent automatiquement.

Après il suffit de faire un test :

If OptionButton1 = True then
Combobox2.source = colonne E
else
ComboBox2.source = colonne D
endif

Evidemment le code ci-dessus est un principe l'horographe n'est pas bonne...

@ bientôt

LouReeD

Bonjour

merci beaucoup LOUREED

le principe je l'ai compris et j'ai fait ce que vous m'avez dit,

Private Sub UserForm_Initialize()
    With Sheets("INFO")
        If OptionButton1 = True Then
            ComboBox2.List = .Range("E2:E30").Value
            Else
            ComboBox2.List = .Range("D2:D30").Value
        End If
    End With
End Sub

la colonne ne veut pas changer

merci pour l'aide

33inventaire-v1-1.xlsm (235.88 Ko)

Bonjour BANZAI

vous m’avez aider a réaliser ce fichier( et je vos en remercie)

pourriez vos me donner un autre petit coup de main??

merci

bonjour

je coinnnnnnnnnnnnnnnnnnnnnce

comment faire ( pour aussi continuer mon projet)

merci a vousssssssssssssss

Bonsoir

Je ne peux pas tout regarder

Ce qu'a indiqué LouReeD est valable

Tes procédures de l'Userform3 : Je ne sais pas si les plages correspondent

Option Explicit
Dim EnCours As Boolean
Dim Parc As Variant
Dim C As Range
Dim F, Cell, Ln
Private Sub CommandButton2_Click()
  Unload Me
End Sub

Private Sub OptionButton1_Click()
  Me.ComboBox2.Clear
  Me.ComboBox2.List = Sheets("INFO").Range("E2:E30").Value
End Sub

Private Sub OptionButton2_Click()
  Me.ComboBox2.Clear
  Me.ComboBox2.List = Sheets("INFO").Range("D2:D30").Value
End Sub

Private Sub UserForm_Initialize()
  Me.OptionButton1 = True
End Sub

Bonjour

Merci LOUREED et merci BANZAI pour les éclaircissements, et ça fonctionne très bien.

maintenant un autre problème se pose!!

comment faire pour indiquer la colonne au ComboBox3 ( en ayant fait le choix sur la ComboBox2).

exemple je choisi sur ComboBox2 CLIO CAMPUS,automatiquement la ComboBox3 m'affiche la colonne H3 jusqu'a H20

exemple je choisi sur ComboBox2 CLIO DUSTER,automatiquement la ComboBox3 m'affiche la colonne AX3 jusqu'a AX20

merci pour l'aide

26inventaire-v1-1.xlsm (236.42 Ko)

Bonjour

A tester

Bonjour

CA fonctionne super bien, mais je ne clôture pas le post, car c'est sur que j'aurais besoin encore de vos services

merci beaucoup CHEF

Bonjour, ou bonsoir

voila, j'ai gafé et je ne sait plus m'y prendre!!

j'aimerais que quand je choisie ( merci a banzai) dans le ComboBox3 la version voulu, alors dans le textBox5 apparais le type voulu correspondant a une collone en plus

c'est a dire si je choisis CL2/5PBYE 12C C4(equivalent a la cellule H3, c'est la cellule I3 que je veut dans textbox5

Private Sub ComboBox3_Change()
Dim Cel As Range

  ' Me.TextBox5 = ""
  ' If Me.TextBox5 = -1 Then Exit Sub
  With Sheets("INFO")
    Set Cel = .Range(.Range("I2"), .Cells(2, Columns.Count)).Find(what:=Me.ComboBox2, LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      Me.TextBox5 = .Range(.Cells(3, Cel.Column), .Cells(Rows.Count, Cel.Column).End(xlUp)).Value

    End If
  End With

End Sub

je vous pris de bien vouloir m'aider a realiser cela

Bonjour

A vérifier

BOnjour

etant abcent, je ne verifie le fichier que maintenant,

je te remerci BANZAI.

je ne cloture toujour pas le fichier, je replie les case maintenant et le met la mise en forme de la feuille pour stocker les donnees

j'aurais tooujours besoin de tes services

merci encore une fois

Bonjour

Je reprends un post de 1 an ou 2 ans déjà.

Tous fonctionnais correctement, jusqu’au moment, ou j’ai du toucher au programme pour corriger un problème,….oups je ne me retrouve plus.

Dans la partie « Private Sub CommandButton2_Click() » du USERFORM1 il y aurais cela :

Copie de la cellule B8 (j’ai pris celle-ci comme exemple) vers la cellule D8

Mettre la date (prise du userform1 textbox4 dans la cellule E8)

Ainsi de suite !!!

Voici mon problème

J’ai des numéros de châssis qui sont composé de chiffres et de lettres.

Avant que je touche les numéros de châssis étais qu’en chiffres et ça fonctionnais.

Je n’arrive plus a avoir le tous en automatique !!!!

J’espere que je me suis fait comprendre

Merci d’avance

oups!!!

pardon pour la reprise du post, mais est ce que quelqu'un à une aide!!!

merci d'avance

bonjour!!!

je sollicite votre aide une fois encore.

mon problème est le suivant,

ma commande "Private Sub CommandButton2_Click()" fonctionne (ou bien fonctionnais)

quand la cellule de la colonne "B" comporte que des chiffres, l'action ne se fait pas correctement, par contre quand elle comporte des chiffres et des lettres l'action se fait correctement

je n'arrive pas a savoir pourquoi

merci pour votre aide

Rechercher des sujets similaires à "gestion stock new look"