inventaire

P

pinkxana

XLDnaute Nouveau

• 26 Septembre 2016

• #31

bonjour

Encore merci pour hier, par contre j'ai un autre petit soucis lèger cette fois ci mais que je ne trouve pas la solution après plusieurs essai.

Dans le tableau que j'ai eu a l'origine comporte 2 colonnes, hors moi j'ai besoin de 5 colonnes

La colonne a l'origine placer en A est a B maintenant et celle a B a F.

La ref scanner place bien la ref dans la colonne B mais celle de la quantité place la premiere quantité a F mais les autres quantité de la même ref a C.

Pourquoi C ??? ou je trouve la modif a faire pour corriger cela?

VB:

Private Sub CommandButton1_Click()

Dim Ligne As Integer

Ligne = Feuil1.Range("B65000").End(xlUp).Row + 1
Set r = Feuil1.Range("B:B").Find(Ref.Value)
If Not r Is Nothing Then r.Offset(, 1) = r.Offset(, 1) + 1

If r Is Nothing Then
Feuil1.Range("B" & Ligne) = Ref.Value
Feuil1.Range("F" & Ligne) = "1"
End If


Ligne = Ligne + 1

Ref.Text = ""
Ref.SetFocus

End Sub


Private Sub UserForm_Initialize()
Ref.SetFocus
Ref.Value = ""
Ref.SetFocus

End Sub

 

Vote positif 0 Vote négatif

J

johaninho

XLDnaute Nouveau

• 26 Septembre 2016

• #32

Bonjour,

Dsl d'avoir laissé le sujet sans réponse depuis ma première intervention.

Ton problème vient de là :

If Not r Is Nothing Then r.Offset(, 1) = r.Offset(, 1) + 1
=> Tu dois plus décaler (offset en anglais) de 1 mais de 4 pour aller en F
If Not r Is Nothing Then r.Offset(, 4) = r.Offset(, 4) + 1

 

Vote positif 0 Vote négatif

P

pinkxana

XLDnaute Nouveau

• 26 Septembre 2016

• #33

ce n'est pas grave, on a réussi avec Dranreb après 3 jours, pour trouvé la solution. C'est bon ça marche 😀 merci
Ton tableur est magique tu ne sais même pas le temps que je vais pouvoir économiser grâce a ce tableau...
Par contre comment je peux faire pour modifier la couleur du bouton1? (car gris clair est trop discret pour l'oeil)

 

Vote positif 0 Vote négatif

J

johaninho

XLDnaute Nouveau

• 26 Septembre 2016

• #34

C'est pas ce que tu disais au départ! haha 😉

Pour la mise en forme les possibilités sont assez limitées sur Excel, surtout avec les boutons de commande du développeur. Regarde ce qui est proposé avec clic droit "format de contrôle". La meilleur solution serait de supprimer le bouton et de dessiner une forme à la place (Insertion => Forme) ou encore une image d'internet. Il suffira de lui réaffecter la macro.

Pareil pour le formulaire ya qlq possibilités de couleurs et de bordure pour le rendre plus sympa mais ca reste vraiment basique...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Septembre 2016

• #35

Bonjour.
Jouez sur les propriété BackColor des contrôles pour ceux de l'UserForm.
Tout est possible.
Ce classeur joint pourrait vous aider à les concevoir.

 

Pièces jointes

• CouleurCls.xlsm

  145.3 KB · Affichages: 62

Vote positif 0 Vote négatif