Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Besoin aide pour finaliser USF

  • Initiateur de la discussion Initiateur de la discussion tactic6
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tactic6

XLDnaute Impliqué
Bonjour le forum
Je reviens vers vous car je bloque sur 2 trucs simples mais que je n'arrive pas à résoudre

Dans le fichier joint les explications des mes soucis
Merci d'avance pour votre éventuelle aide et bon WE de Pentecôte à tous
 

Pièces jointes

Re : Besoin aide pour finaliser USF

Re tactic,
oui comme cela tu as tout le temps ce soir de voir ce qui ne va pas et tu me diras, demain je ne serai pas de retour avant 9h30 10h
je pars chez un client bosser a 5h et je verrai cela en revenant si tu as besoin
a+
papou 🙂

PS: tu vois d'avoir fait l'effort de ton fichier tu as ta réponse et ton fichier !!!
a demain

EDIT pourquoi tu en doutais ???? a+
 
Re : Besoin aide pour finaliser USF

Merci Papou
Moi aussi demain je dois aller chez un client mais je ne sais pas à quelle heure je rentrerai
j'ai noté un Pb dans la recherche
une seule ligne a la fois ?
je vais regarder de plus pres
Merci

Aussi au rafraichissement
 
Dernière édition:
Re : Besoin aide pour finaliser USF

Bonjour
Juste avant d'aller voir le mien
j'ai une erreur "depassement de capacité" quand je lance une recherche
Code:
Private Sub TextBox5_Change()
  Dim Plage As Range, C As Range, Premier As String, Lig As Integer, Col As Byte
  ListBox1.Clear
  NbCol = 4: i = 0
  Set Plage = Feuil21.Range("A2:D" & Feuil21.Range("B65000").End(xlUp).Row)
  Set C = Plage.Find(TextBox5, , , xlPart)
  If Not C Is Nothing Then
    Premier = C.Address
    Do
      ListBox1.AddItem
      Lig = C.Row - Plage.Row + 1
      For Col = 1 To NbCol
        ListBox1.List(i, Col - 1) = Plage.Cells(Lig, Col)
      Next Col
     [COLOR="Red"] i = i + 1[/COLOR]
      Set C = Plage.FindNext(C)
    Loop While Not C Is Nothing And C.Address <> Premier
  End If
End Sub

Merci et à plus tard
 
Re : Besoin aide pour finaliser USF

Re Tactic,
est-ce que sur le fichier que je t'ai envoyé cela fonctionne?
(sans avoir modifié quoi que ce soit)
si oui alors je ne peux pas te dire
a+
papou 🙂
 
Re : Besoin aide pour finaliser USF

Re Bonjour à tous
C'est pareil sur ton fichier
si je mets la liste complète de mes articles (environ 6000) j'ai un dépassement de capacité
en fait après plusieurs tests la liste ne peut que contenir 338 lignes une de plus et j'ai l'erreur
 
Re : Besoin aide pour finaliser USF

Re Tactic,
tu as l'art et la manière de ne pas répondre aux questions que l'on te pose .
Je me moque de ce que tu as modifié , je m'en moque complètement, je te demande encore une fois:
Est-ce que le fichier que je t'ai envoyé avant que tu ne fasses une modification fonctionne avec la recherche ??
réponse "OUI" "NON" "ZUt" "je ne veux pas te répondre"
Merci de rayer les mentions inutiles.
Dans l'attente de ta réponse
a+
papou 🙂
 
Re : Besoin aide pour finaliser USF

En Espérant avoir compris ta demande

Sur ton fichier tel que tu l'envoies ça marche ( même toi tu l'as essayé)

si je rajoute 330 articles ça marche encore

si j'en rajoute 331 ça ne marche plus donc 1 de plus que précédemment

Était-ce ta question ?
 
Re : Besoin aide pour finaliser USF

Re Tactic
oui c'est parfait, oui naturellement que je l'avais essayé mais chez moi alors chez toi je ne sais pas maintenant tu veux pas m'envoyer ta liste de 660 articles ce serait plus facile que de la faire va voir je t'ai envoyé un MP
a+
papou 🙂
 
Re : Besoin aide pour finaliser USF

Re tactic,
tu me dis que avec 300 cela marche avec 301 de plus cela ne marche plus!!
alors je lis et essaye de comprendre tes posts, donc j'en déduit que si tu m'envoies une liste de 600 articles cela est suffisant pour tester avec des valeurs qui vont faire planter?
qu'en penses tu ?
a+
papou 🙂
 
Re : Besoin aide pour finaliser USF

C'est Ok
ça marche bien sauf le bouton réinitialiser mais je m'en passe

Comment tu as fait pour augmenter les valeurs ?

Merci
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Liste de choix...
Réponses
8
Affichages
326
  • Question Question
Microsoft 365 Bloccage Excel
Réponses
1
Affichages
399
W
Réponses
12
Affichages
406
  • Question Question
Microsoft 365 problème d'index
Réponses
19
Affichages
497
Réponses
14
Affichages
363
Réponses
4
Affichages
378
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…