Incrementation Automatique

[whooki]

Bonjour à tous,

Je réalise une petite gestion de stock pour ma société, et je souhaiterais incrémenter une valeur de la colonne A lorsque je click sur le bouton valider dans mon USF2.

Je ne sais pas quel code utiliser.

Merci par avance.

Bonne journée.

 

[porcinet82]

Re : Incrementation Automatique

Salut whooki,

Je viens de jeter un oeil a ton fichier et je ne comprends pas tres bien comment tu veux faire ton incrémentation puisque dans ta colonne A, il y a actuellement la lettre A.
Est-ce que tu veux rajouter un numéro derrière? Donne nous plus d'info.

@+

 

[whooki]

Re : Incrementation Automatique

Je veux tout simplement rajouter le A par exemple en meme temps que les autres valeurs, en gros mettre le A dans A2 etc....

Merci pour ton aide d'ailleurs tu m'avais deja aidé.

 

[porcinet82]

Re : Incrementation Automatique

re,

Je t'ai modifier 2 morceaux de code, a toi de les remplacer dans le code du USF2 :

Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte
With Sheets("mvt")
    Cells(65536, 1).End(xlUp).Offset(1, 0).Value = ComboBox1.Value
    For i = 2 To 10
        Cells(65536, i).End(xlUp).Offset(1, 0).Value = Controls("TextBox" & i).Value
    Next i
    For j = 1 To Range("A65536").End(xlUp).Row
        If Cells(j, 1).Value = Val(ComboBox1.Value) Then
        End If
    Next j
End With
End Sub
 
Private Sub UserForm_Initialize()
Dim i As Byte, j As Byte
With Sheets("mvt")
    For i = 2 To Range("A65536").End(xlUp).Row
        ComboBox1.AddItem (Cells(i, 1).Value)
    Next i
End With
End Sub

@+

 

[whooki]

Re : Incrementation Automatique

Merci beaucoup pour ton aide a plus tard sur ce site.

 

[whooki]

Somme et soustraction Automatique.

J'aurais encore besoin de tes services Porcinet,

Je cherche à additioner ou soustraire la derniere valeur de ma combobox1, avec les textbox7 et 10.Je souhaiterais le faire à partir de mon USF2 lorsque je rentre une valeur dans la textbox7 ou 10. En faite, je souhaiterais réecrire exactement comme ma ligne 3 mais par vba.

Cela est-il possible?

 

[porcinet82]

Re : Incrementation Automatique

re,

Essaye la modif suivante, mais je ne suis pas du tout sur que ce soit ce que tu demandes.

Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte
With Sheets("mvt")
    Cells(65536, 1).End(xlUp).Offset(1, 0).Value = ComboBox1.Value
    For i = 2 To 12
        If i = 7 Then
            Cells(65536, i).End(xlUp).Offset(1, 0).Value = Cells(65536, i).End(xlUp).Offset(0, 0).Value - Val(TextBox7.Value)
        ElseIf i = 10 Then
            Cells(65536, i).End(xlUp).Offset(1, 0).Value = Cells(65536, i).End(xlUp).Offset(0, 0).Value - Val(TextBox10.Value)
        Else
            Cells(65536, i).End(xlUp).Offset(1, 0).Value = Controls("TextBox" & i).Value
        End If
    Next i
End With
End Sub

Si ca ne correspondpas a tes attentes, mets des explications plus complètes car là c'est pas evident de comprendre.

@+

 

[whooki]

Re : Incrementation Automatique

en faite c'est quasiment ca mais je voudrais que ca additione ou soustrait les valeurs des colonnes G et J dans la colonne D.
tu trouveras ci-joint l'exemple. J'ai fais la formule manuelle.

 

[porcinet82]

Re : Incrementation Automatique

Je pense que cette fois ca devrait le faire :

Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte
With Sheets("mvt")
    Cells(65536, 1).End(xlUp).Offset(1, 0).Value = ComboBox1.Value
    For i = 2 To 12
        If i = 4 Then
            Cells(65536, i).End(xlUp).Offset(1, 0).Value = Cells(65536, i).End(xlUp).Offset(0, 0).Value + Val(TextBox7.Value) - Val(TextBox10.Value)
        Else
            Cells(65536, i).End(xlUp).Offset(1, 0).Value = Controls("TextBox" & i).Value
        End If
    Next i
End With
End Sub

@+

 

[whooki]

Re : Incrementation Automatique

Merci beaucoup Porcinet et bonne soirée a toi.