Ajout produits à la suite de la bonne catégorie
Bonjour,
Je dois entrer différentes informations sur des aliments.
Je me suis créer un userform et j'aimerais lorsque je clique sur le bouton Ajouter que les aliments s'ajouter par ordre alphabétique dans la bonne catégorie.
Exemple Lors de l'entrée de donnée je choisi le Type Légumes et que le produit est Patate avec les autres informations, j'aimerais qu'il s'inscrive entre les ligne 22 et 23. Donc on insère une ligne pour ajouter l'information.
J'ai essayer un tri mais je trouve ça pas trop pratique.
Merci
Oiseau Bleu
Salut l'oiseau bleu,
quelque chose comme ça ?
J'ai changé les noms de tes contrôles TextBox et ComboBox en Info1, Info2,... pour la facilité... et je trie!
J'ai ajouté une première TextBox (Info1), destinée à recevoir la description du produit, affichée en colonne [C] sur laquelle se base le tri.
With Worksheets("Ingrédients")
iRow = .Columns(3).Find(what:=Me.Info2.Text, lookat:=xlWhole).Row + 1
For x = iRow To .Range("C" & Rows.Count).End(xlUp).Row + 1
If .Cells(x, 3).Font.Bold = True Or .Cells(x, 3) = "" Then
.Range("C" & x & ":K" & x).Insert shift:=xlDown
For y = 3 To 11
.Cells(x, y) = Me.Controls("Info" & y - 2).Text
Next
.Range("C" & iRow & ":K" & x).Sort key1:=.Range("C" & iRow), order1:=xlAscending, Orientation:=xlTopToBottom
.Columns("C:K").AutoFit
Exit For
End If
Next
End WithA+
Merci beaucoup pour votre assistance,
Cela réponds parfaitement à mon besoin.
Avez-vous une solution pour la date?
J'aimerais lui donner le format
NumberFormat = "d-mmm-yy"
à la colonne K; mais on dirait que la date est traitée comme du texte et ne prend pas ce format.
Merci,
Oiseau Bleu
Salut l'oiseau bleu,
sélectionne ta colonne [K] -> Format de cellule -> Personnalisée et crée ce format-ci
[$-40C] j mmmm aaÇa devrait être bon!
A+
Merci beaucoup cela fonctionne parfaitement.
Merci pour votre assistance et bonne journée,
Oiseau Bleu