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