Autres Formulaire de saisie excel

Modifier données

Cliquez pour agrandir...

sylvanu à dit:

Bonsoir entreprise-conseils@orang,

J'ai trouvé plus simple comme formulation :

Ca laisse au contributeur encore plus de latitude pour répondre. 😂

Cliquez pour agrandir...

sylvanu à dit:

Re,
Il s'agit d'une demande, donc d'une spécification. Ce qui n'a rien à voir avec XL, ça pourrait être fait par un autre outil, un autre langage.
Le formulaire est je suppose un userform dans lequel il y a un Textbox.
On modifie le Textbox ou Listbox qu'il faut reverser dans un tableau.
Pourrait on avoir un fichier test avec une demande plus précise qui conditionnera la réponse.
Testbox ou Listbox ?
Cellules ou Tableau structuré ?

Cliquez pour agrandir...

sylvanu à dit:

Re,
Il s'agit d'une demande, donc d'une spécification. Ce qui n'a rien à voir avec XL, ça pourrait être fait par un autre outil, un autre langage.
Le formulaire est je suppose un userform dans lequel il y a un Textbox.
On modifie le Textbox ou Listbox qu'il faut reverser dans un tableau.
Pourrait on avoir un fichier test avec une demande plus précise qui conditionnera la réponse.
Testbox ou Listbox ?
Cellules ou Tableau structuré ?

Cliquez pour agrandir...

sylvanu à dit:

Re,
Il s'agit d'une demande, donc d'une spécification. Ce qui n'a rien à voir avec XL, ça pourrait être fait par un autre outil, un autre langage.
Le formulaire est je suppose un userform dans lequel il y a un Textbox.
On modifie le Textbox ou Listbox qu'il faut reverser dans un tableau.
Pourrait on avoir un fichier test avec une demande plus précise qui conditionnera la réponse.
Testbox ou Listbox ?
Cellules ou Tableau structuré ?

Cliquez pour agrandir...

sylvanu à dit:

Re,
Par un formulaire, vous voulez pouvoir modifier la colonne "Total général" en fonction de la "Ref" ?

Cliquez pour agrandir...

entreprise-conseils@orang à dit:

le formulaire affiche le stock lié à cette reference et je voudrai le modifier en -/+.

Cliquez pour agrandir...

Sub Initialisation()
    With Sheets("PLAN PROD")
        DL = .Range("A65500").End(xlUp).Row
        UserForm1.ComboBox1.List = .Range("A5:A" & DL - 2).Value
        UserForm1.ComboBox1.ListIndex = 0
        UserForm1.Show
    End With
End Sub
et
Private Sub ComboBox1_Change()
With Sheets("PLAN PROD")
    Ligne = Application.Match(ComboBox1.Value, .[A:A], 0)
    UserForm1.TextBox1 = .Cells(Ligne, "Y")
End With
End Sub
Private Sub CommandButton1_Click()
Private Sub CommandButton1_Click()
With Sheets("PLAN PROD")
    Ligne = Application.Match(ComboBox1.Value, .[A:A], 0)
    If IsNumeric(UserForm1.TextBox1) = True Then
        .Cells(Ligne, "Y") = Val(UserForm1.TextBox1)
        MsgBox ComboBox1.Value & " modifiée."
    End If
    UserForm1.TextBox1 = ""
End With
End Sub

sylvanu à dit:

Validez les macros.

Cliquez pour agrandir...