Microsoft 365 agrandir la liste

[ebe]

bonjour a tous les internaute
voici mon probleme
j ai une feuile 2 qui comporte des colonne reference,libelle marque,quantite,remarque
les espace des lignes que j ai fait c est voulu pour rajouter des produits que j ai pas encore introduit pour l instant
quand je vais dans la feuille accueil j appuis sur le bouton de commande il ouvre une fenetre
quand je fait une recherche ou voir voir tous les articles la liste s arret a 1206 visserie je voudrais allez plus loint, quand je fait recherche ou voir tous les artcicle car la liste risque de s agrandire
je voudrais savoir comment faire et de comprendre aussi etant novice dans se domaine
je vous remercie d avance et vous souhaite un bon week end

 

[sylvanu]

Bonjour Ebe,

la liste s arret a 1206 visserie

Normal, votre variable "articlesf2" s'arrête en 1206.
Une possibilité dans UserForm_Initialize :

Remplacez :
aa = [articlesf2].ListObject.DataBodyRange.Resize(, 4)

Par :
DL = Sheets("feuil2").Cells(Rows.Count, "B").End(xlUp).Row
aa = Sheets("feuil2").Range("A2:D" & DL + 1)

Ainsi votre liste sera dynamique.

 

[ebe]

Bonjour Ebe,

Normal, votre variable "articlesf2" s'arrête en 1206.
Une possibilité dans UserForm_Initialize :

Remplacez :
aa = [articlesf2].ListObject.DataBodyRange.Resize(, 4)

Par :
DL = Sheets("feuil2").Cells(Rows.Count, "B").End(xlUp).Row
aa = Sheets("feuil2").Range("A2:D" & DL + 1)

Ainsi votre liste sera dynamique.

bonjour sylvanu
merci pour ta rapiditer ses nikel Regarde la pièce jointe 1227018
j ai regarde et je me suis appercue que si je passe par recherche je tape borne il n y a rien qui s affiche et dans le retangle du bas il m indique 0
mes je vois que ses encore complexe pour moi
encore merci et bon week end a toi

Bonjour Ebe,

Normal, votre variable "articlesf2" s'arrête en 1206.
Une possibilité dans UserForm_Initialize :

Remplacez :
aa = [articlesf2].ListObject.DataBodyRange.Resize(, 4)

Par :
DL = Sheets("feuil2").Cells(Rows.Count, "B").End(xlUp).Row
aa = Sheets("feuil2").Range("A2:D" & DL + 1)

Ainsi votre liste sera dynamique.

bonjour sylvanu
merci pour ta rapiditer
ses impecable mes je suis appercue que je passe par le rectangle recherche en tappent par exemple borne ils se bloc et je ne peux pas taper le mot complet et dans le rectangle du millieux il n y a rien et dans le rectangle du bas il reste bloquer sur 10
si tu as 5 minute pour regarde et pour resoudre le probleme je te remerci d avance

 

[ebe]

bonjour sylvanu
merci pour ta rapiditer ses nikel Regarde la pièce jointe 1227018
j ai regarde et je me suis appercue que si je passe par recherche je tape borne il n y a rien qui s affiche et dans le retangle du bas il m indique 0
mes je vois que ses encore complexe pour moi
encore merci et bon week end a toi

bonjour sylvanu
merci pour ta rapiditer
ses impecable mes je suis appercue que je passe par le rectangle recherche en tappent par exemple borne ils se bloc et je ne peux pas taper le mot complet et dans le rectangle du millieux il n y a rien et dans le rectangle du bas il reste bloquer sur 10
si tu as 5 minute pour regarde et pour resoudre le probleme je te remerci d avance

excuse moi

bonjour sylvanu
merci pour ta rapiditer ses nikel Regarde la pièce jointe 1227018
j ai regarde et je me suis appercue que si je passe par recherche je tape borne il n y a rien qui s affiche et dans le retangle du bas il m indique 0
mes je vois que ses encore complexe pour moi
encore merci et bon week end a toi

bonjour sylvanu
merci pour ta rapiditer
ses impecable mes je suis appercue que je passe par le rectangle recherche en tappent par exemple borne ils se bloc et je ne peux pas taper le mot complet et dans le rectangle du millieux il n y a rien et dans le rectangle du bas il reste bloquer sur 10
si tu as 5 minute pour regarde et pour resoudre le probleme je te remerci d avance

et je viens de m apercevoir que la premiere reponceque je est envoyer ses une erreure de manipulation encore merci et bon week end

 

[sylvanu]

Re,
En PJ :
1- j'ai mis le msgbox de la ligne 35
2- J'ai comparé un ucase avec un ucase, c'est mieux :

If UCase(aa(i, a)) Like UCase(T1) & "*" Then aa(i, 4) = "oui": y = y + 1: Exit For

 

[fanfan38]

Bonjour
Salut Sylvanu
Ci joint ma solution

A+ François
Ps: Pour ajouter des pièces tu les mets en fin de tableau et tu fais un tri par catégorie

 

[Piment]

bonjour a tous les internaute
voici mon probleme
j ai une feuile 2 qui comporte des colonne reference,libelle marque,quantite,remarque
les espace des lignes que j ai fait c est voulu pour rajouter des produits que j ai pas encore introduit pour l instant
quand je vais dans la feuille accueil j appuis sur le bouton de commande il ouvre une fenetre
quand je fait une recherche ou voir voir tous les articles la liste s arret a 1206 visserie je voudrais allez plus loint, quand je fait recherche ou voir tous les artcicle car la liste risque de s agrandire
je voudrais savoir comment faire et de comprendre aussi etant novice dans se domaine
je vous remercie d avance et vous souhaite un bon week end

Bonjour à tous.
ebe, je pense qu'il faudrait nous expliquer quel est le but de votre fichier. Si j'ai bien compris, vu l'intitulé de votre fichier, le but recherché est d'élaborer un "Bon de commande"?
Partir de la base que vous nous soumettez, on peut toujours répondre : déjà avoir des lignes vides dans une BDD est à proscrire. Je vous recommanderais fortement de travailler à partir d'un tableau structuré.
La liste des articles ne doit contenir que les éléments liés à l'article

Bonjour
Salut Sylvanu
Ci joint ma solution

A+ François
Ps: Pour ajouter des pièces tu les mets en fin de tableau et tu fais un tri par catégorie

Bonsoir à tous.
ebe, je vous propose d'y aller étape par étape. Dans un premier temps je vous propose un formulaire pour enregistrer, modifier ou supprimer un article. Si ce que je vous propose vous convient, alors dans un 2ème temps on procède à la création du bon de commande avec son archivage. On peut voir, dans un 3ème temps la gestion du stock de vos articles.
Cordialement.

 

[ebe]

Re,
En PJ :
1- j'ai mis le msgbox de la ligne 35
2- J'ai comparé un ucase avec un ucase, c'est mieux :

If UCase(aa(i, a)) Like UCase(T1) & "*" Then aa(i, 4) = "oui": y = y + 1: Exit For

 

[chris]

Pourquoi 2 fils https://excel-downloads.com/threads/agrandir-la-liste-de-recherche.20088883/ ?

 

[ebe]

Re,
En PJ :
1- j'ai mis le msgbox de la ligne 35
2- J'ai comparé un ucase avec un ucase, c'est mieux :

If UCase(aa(i, a)) Like UCase(T1) & "*" Then aa(i, 4) = "oui": y = y + 1: Exit For

merci sylvanu pour ta rapiditer se que je voulais je voudrais savoir si on rajouter une recherche reference sois que je travail avec la reference ou par libelle
je te remercie d avance et je te souhaite bon dimanche

 

[ebe]

Bonjour
Salut Sylvanu
Ci joint ma solution

A+ François
Ps: Pour ajouter des pièces tu les mets en fin de tableau et tu fais un tri par catégorie

bonjour fafan38
ses super se que tu as fait mes quand je tappe dessus la refference ou libelle pour indiquer la quantite il me fait fin ou deblocage etant novice dans le dommaine je suis imcapable de resoudre le probleme je te remercie encore pour comprehension merci et bon dimanche

 

[ebe]

Bonjour à tous.
ebe, je pense qu'il faudrait nous expliquer quel est le but de votre fichier. Si j'ai bien compris, vu l'intitulé de votre fichier, le but recherché est d'élaborer un "Bon de commande"?
Partir de la base que vous nous soumettez, on peut toujours répondre : déjà avoir des lignes vides dans une BDD est à proscrire. Je vous recommanderais fortement de travailler à partir d'un tableau structuré.
La liste des articles ne doit contenir que les éléments liés à l'article

Bonsoir à tous.
ebe, je vous propose d'y aller étape par étape. Dans un premier temps je vous propose un formulaire pour enregistrer, modifier ou supprimer un article. Si ce que je vous propose vous convient, alors dans un 2ème temps on procède à la création du bon de commande avec son archivage. On peut voir, dans un 3ème temps la gestion du stock de vos articles.
Cordialement.

bonjour piment se que tu fait et tres tres bien mes la liste2 que j ai dans le fichier et donner par le techncien du site qui nous geres nous on lui fait une commande de materiel pour faire l intervention ses lui qui fait la demande de prix ou il commande le materiel donc mous donc mous on as juste besoin date,libelle refference, marque,quantite,remarque, car on as pas affaire au magasin de materiaux ses pour sa que mon restrein je te remerci encore pour aide mes si tu faire avec mon fichier et l ameliore je suis preneur je te remerci encore et te souhaite un bon dimanche

 

[Piment]

bonjour piment se que tu fait et tres tres bien mes la liste2 que j ai dans le fichier et donner par le techncien du site qui nous geres nous on lui fait une commande de materiel pour faire l intervention ses lui qui fait la demande de prix ou il commande le materiel donc mous donc mous on as juste besoin date,libelle refference, marque,quantite,remarque, car on as pas affaire au magasin de materiaux ses pour sa que mon restrein je te remerci encore pour aide mes si tu faire avec mon fichier et l ameliore je suis preneur je te remerci encore et te souhaite un bon dimanche

Je ne vois pas du tout où vous voulez aller avec ce truc. Aussi je passe la main et je suivrais l'évolution.

 

[sylvanu]

Re,
Peut être simplement en modifiant une ligne avec :

If UCase(aa(i, a)) Like UCase(T1) & "*" Or aa(i, a) = (T1) Then

 

[fanfan38]

Bonjour
Pas étonnant je n'avais pas traité ce problème
Ci joint ma solution

A+ François