Question probleme avec mon inventaire vba

Bonjour,


J'essaye depuis quelque temps de créer un inventaire dans un userform en vba (pour facilité le boulot de ma femme :D )
je bloque sur quelque point, et souhaiterai un petit coup de pouce :)

Quand je valide l'ajout d'un article j'utilise ce code la:

Code:

---

1 2 3 4

'nom article Sheets("Inventaire").Select 'selection de la feuille Range("B1048576").End(xlUp).Offset(1, 0).Select 'rajoute dans la colonne B, à la derniere cellule vide ActiveCell.FormulaR1C1 = nom_article.Value

---

et j'aimerai que ca me rajoute automatiquement la formule

Code:

---

=SI($F2="";"";SI($F2=$E2;"Bientôt épuisé";SI($F2<$E2;"A commander";SI($F2>$E2;"En stock";))))

---

mais avec le bon numéro de cellule...

J'ai aussi quelques autres problèmes comme mettre des colonnes d'une feuille dans un tableau dans le userform mais j'ai essaye plein de méthodes que je trouve sur le forum et autre et n'arrive pas.

Je suis hyper débutant .

Merci d'avance pour le coup de main :):?8O;):roll::D

Citation:

---

Envoyé par zackyzac

---

Bonjour,

En supposant que la formule est à mettre après la dernière ligne en colonne B, essayez ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit   Sub EssaiMiseEnPlaceFormule()   Dim ShInventaire As Worksheet Dim DerniereLigne As Long   Set ShInventaire = Sheets("Inventaire") With ShInventaire DerniereLigne = .Cells(.Rows.Count, 2).End(xlUp).Row .Cells(DerniereLigne + 1, 2).FormulaR1C1 = "=IF(RC6="""","""",IF(RC6=RC5,""Bientôt épuisé"",IF(RC6<RC5,""A commander"",IF(RC6>RC5,""En stock"",))))" End With Set ShInventaire = Nothing   End Sub

---

Nb : Lorsque vous ne connaissez pas la syntaxe pour coder une formule, tapez d'abord la formule dans votre onglet comme vous l'avez fait dans votre exemple, puis créez une macro pour modifier cette formule (un simple Enter à la fin de la formule suffit) et vous aurez alors la bonne syntaxe dans la macro. Dans votre formule, les lignes étant en relatif, la formule va s'ajuster automatiquement.

Vous aurez noté également que les Select sont inutiles. Il n'était pas non plus obligatoire de créer une variable Worksheet pour travailler avec l'onglet Inventaire, mais en le faisant vous bénéficiez de l'intellissence. Pour voir : tapez un point en dessous de la ligne With ShInventaire, vous aurez accès aux propriétés et méthodes utilisables avec l'objet Worksheet, c'est hyper pratique quand on débute et même après....

Merci pour ton aide et la rapidité surtout :)
Je n'arrive pas à utilisé ton code au complet mais je l'ai adapter à ma méthode

Code:

---

1 2 3 4

'Ajout formule Sheets("Inventaire").Select 'selection de la feuille Range("K1048576").End(xlUp).Offset(1, 0).Select 'rajoute dans la colonne K, à la derniere cellule vide ActiveCell.FormulaR1C1 = "=IF(RC6="""","""",IF(RC6=RC5,""Bientôt épuisé"",IF(RC6<RC5,""A commander"",IF(RC6>RC5,""En stock"",))))"

---

Et merci pour l'astuce qui permet de convertir la formule :)

J'ai un autre soucis... j'abuse peut être :?
J'aimerai dans un textbox ou listbox insérer un tableau avec scrollbar ou on pourrais consulter l'inventaire donc les colonnes A,B,C,F,G,H,I,J,K
Et grace a une combobox on affiche dans ce meme tableau soit tous les articles sois ceux a commander ou ceux en stock ou ceux presque épuisé idem avec le choix fournisseurs ou le choix de catégorie :)

Je crois que je vais posté le fichier car j'ai du mal a expliqué :)

En tous cas vraiment merci
Pièce jointe 293736

Citation:

---

Envoyé par zackyzac

J'ai un autre soucis... j'abuse peut être :?

---

A chaque nouveau sujet, il vous faut poster un nouveau message.

Citation:

---

Envoyé par zackyzac

J'aimerai dans un textbox ou listbox insérer un tableau avec scrollbar ou on pourrais consulter l'inventaire donc les colonnes A,B,C,F,G,H,I,J,K
Et grace a une combobox on affiche dans ce meme tableau soit tous les articles sois ceux a commander ou ceux en stock ou ceux presque épuisé idem avec le choix fournisseurs ou le choix de catégorie :)

---

Un exemple de Goninph dans ce post que vous pourriez adapter. Le principe est de concaténer les colonnes pouvant contenir les mots clés dans une colonne Recherche. La recherche est ensuite mise en oeuvre dans un Userform listbox1_click-selectionner-ligne-fichier-excel

Merci j'essaye avec le liens et si j'ai des problèmes je poste un nouveau message :)

en tous cas merci