Qu'est ce qui merdouille???

misteryann · 12 Février 2016

Bonsoir le Forum.

Voila le problème:

Lorsque je fais une recherche (TextBox du numéro) via ma USF ouverte par le bouton "modifier" (les autres son inactives) cela ne rapporte pas les informations correctes.
En effet, la recherche prends en compte le premier numéro comportant la recherche.
Exemple: si je tape "111" le résultat sera celui de la demande 11... en fait il trouve la première chaîne comportant les numéro de ma recherche: 10111, 11100.

Le fichier joint est explicite: tapez 111 et vous verrez la ligne de la demande 11 apparaître.

Par ailleurs, pourquoi le fichier est-il si "lourd" alors qu'il n'y a rien dedans?

Merci à ceux et celles qui vont se pencher sur le pb.

Bonne soirée. Cordialement

grisan29 · 12 Février 2016

Re : Qu'est ce qui merdouille???

bonsoir mysteryann

voici ce que j'ai en tapant "111" dans le textbox et appuyer sur la flèche mais je ne comprends pas ce que tu dits vraiment

Modeste geedee · 12 Février 2016

Re : Qu'est ce qui merdouille???

Bonsour®

VB:

Private Sub CommandButton1_Click()
Dim c As Range
 With Sheets("Planning 2016").[A:A]
        Set c = .Find(TextBox5, lookat:=xlWhole)
        If Not c Is Nothing Then
                ligne = c.Row
        Else
                MsgBox "non existant": Exit Sub
        End If
End With
  majFiche
End Sub

job75 · 12 Février 2016

Re : Qu'est ce qui merdouille???

Bonsoir,

misteryann à dit:
Par ailleurs, pourquoi le fichier est-il si "lourd" alors qu'il n'y a rien dedans?

Touche F5 => Cellules => Dernière cellule conduit à BM1186...

Bonne fin de soirée.

cathodique · 12 Février 2016

Re : Qu'est ce qui merdouille???

Bonsoir,

Pour alléger ton fichier exécute ce code sur la feuille active, car lorsqu'on travaille sur une feuille et qu'on efface excel considère que les cellules contiennent des chaines vides.

VB:

Sub ménage()
Range(Cells.SpecialCells(xlCellTypeLastCell).EntireRow, Cells.Find("*", , , , xlByRows, xlPrevious).EntireRow).Offset(1, 0).Delete
Range(Cells.SpecialCells(xlCellTypeLastCell).EntireColumn, Cells.Find("*", , , , xlByColumns, xlPrevious).EntireColumn).Offset(0, 1).Delete
ActiveWorkbook.Save
End Sub

ce n'est pas de moi, la source est ici
Sur feuille en question fait ctrl+fin, avant et après la macro pour t'en rendre compte.
Bon week-end

Qu'est ce qui merdouille???

misteryann

XLDnaute Occasionnel

Pièces jointes

grisan29

XLDnaute Accro

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Discussions similaires