XL 2013 Nettoyer des cellules

vgendron

XLDnaute Barbatruc

• 28 Juillet 2016

• #2

Hello

elle vidait les cellules à partir de la ligne 16

Cliquez pour agrandir...

N'était ce pas plutot un filtre??
parce que si tu vides.. tu perds des infos dans ta base de données.. non??

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 28 Juillet 2016

• #3

Bonjour Vgendron,

Cette BDR recherche dans une BDD, qui est dans un onglet masqué. Vous pouvez le faire apparaître en cliquant sur l'autre bouton de la page d'accueil. Peut-être ça répondra à votre question.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 28 Juillet 2016

• #4

Re

en fait; je ne pige pas bien comment c'est censé fonctionner..
dans le code de la feuille "Zone de recherche" tu as le code (que je pense etre celui qui doit effacer..??..)

Code:

With Sheets("Zone de recherche")
    .LBxRésultats.Clear
    .Range(.Cells(16, "A"), .Cells(16 + [G2].Value, "G")).ClearContents
End With

sauf que.. je ne vois pas à quoi correspond le LBxRésultats..
certainement une listbox.. du formulaire de saisie??

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 28 Juillet 2016

• #5

LBxRésultats c'est le cadre blanc en dessous de la barre de recherche

Et la ligne en dessous est supposé TOUT vider lorsque la barre de recherche est vide !

Sauf que maintenant ça ne le fait plus, peut-être que vous si ? Essayez de taper n'importe quoi dans la barre voir si ça vous le fait

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 28 Juillet 2016

• #6

ta cellule G2 est vide.. donc. il ne sait pas quoi vider..

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 28 Juillet 2016

• #7

Je ne pense pas que ce soit ça... Ça fonctionnait très bien en début de journée

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 28 Juillet 2016

• #8

Je ne pense pas que ce soit ça

Cliquez pour agrandir...

as tu vérifié au moins???

parce que moi. lorsque je modifie le code pour aller chercher la valeur G1 de la feuille "Liste de documents".. ca marche..

Code:

'On nettoie la ListBox
With Sheets("Zone de recherche")
    .LBxRésultats.Clear
    .Range(.Cells(16, "A"), .Cells(16 + Sheets("Liste de documents").[G1].Value, "G")).ClearContents
End With

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 28 Juillet 2016

• #9

Ah oui effectivement ça fonctionne, je n'y comprends rien

Je viens de mettre ça aussi, ça à l'air de fonctionner aussi..

VB:

Range(.Cells(16, "A"), .Cells(1048576, "G")).ClearContents

Merci beaucoup en tout cas

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 29 Juillet 2016

• #10

Hello

Ah oui effectivement ça fonctionne, je n'y comprends rien

Cliquez pour agrandir...

tu souhaites faire un clearcontents d'une range..
une range. c'est une cellule de départ et une cellule d'arrivée..
ici:

Code:

Range(.Cells(16, "A"), .Cells(16 + [G2].Value, "G")).ClearContents

la cellule de départ c'est A16
et la cellule de fin: G 16+x
x étant le nombre contenu dans la cellule G2
donc. si G2 contient 20 alors ta cellule de fin est G36

dans ton fichier.. la cellule G2 est vide.. donc..vba est perdu.. et ne sait pas calculer ta cellule de fin. donc.. plutot que te prévenir.. il ne fait rien..

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 29 Juillet 2016

• #11

Bonjour,

Il s'avère qu'en G2 avant j'avais une fonction NBVAL, qui indiquait le nombre de résultat.. Et je l'ai supprimé, tout est plus clair maintenant, merci pour votre explication qui m'a permis de retrouver le pourquoi du comment !!

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 29 Juillet 2016

• #12

Bonjour le forum

Une autre possibilité pour effacer le contenu d'une plage

Code:

'On nettoie la ListBox
With Sheets("Zone de recherche")
    .LBxRésultats.Clear
    .Rows("16:1000000") = Empty
End With

 

Vote positif 0 Vote négatif