Discussion :

[zackyzac]

Bonjour,


J'essaye depuis quelque temps de créer un inventaire dans un userform en vba (pour facilité le boulot de ma femme )
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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

[Invité]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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....

[zackyzac]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Inventaire VBA JULIE.xlsm

[Invité]

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

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

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

[zackyzac]

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

en tous cas merci