supression de cases

[dean]

Bonjour,
J'ai une colonne avec des données et des cases vides j'aimerai pouvoir faire disparaître les cases vides (il y en a un grand nombre) pour avoir à la suite toutes les donnés (exemple ci-joint)
merci de m'aider à résoudre mon problème. [file name=Classeur1_20060323102109.zip size=49543]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060323102109.zip[/file]

 

[pierrejean]

bonjour dean

vois si cela te conviens [file name=dean1.zip size=46726]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dean1.zip[/file]

 

[pat1545.]

Salut

tu ouvre ton fichier, tu fais ALT F11 et insertion /module pour y coller ceci:
tu cliques ensuite sur la flèche (type magnétoscope) vers la droite et voilà
nb: tu peux sauver ce code dans un fichier pour que ça soit toujour accessible

' debut code
Sub DetruireLignesVides() ' Commencer par le bas
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DerniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
ActiveSheet.UsedRange
End Sub
Sub DetruireColVides()
dernierecol = ActiveSheet.UsedRange.Columns.Count
Application.ScreenUpdating = False
For r = dernierecol To 1 Step -1
If Application.CountA(Columns(r)) = 0 Then Columns(r).Delete
Next r
End Sub
' fin code

Patrick

 

[pat1545.]

re
j'ai testé sur ton fichier, il semble que ça ne marche pas, les cellules nétant pas vides réellement; tu peux aussi aller dans le menu données/trier et faire un tri sur la colonne A puis éliminer les lignes inutiles; pour connaitre ta dernière cellule utilisée, tu fais CTRL END ou 'FIN' suivant les claviers
Si tu as encore la meme cellule de fin apres avoir effacé les soit disant vides, il faut faire autre chose.
Reviens si tu as besoin
Patrick

 

[pierrejean]

hello Patrick

as-tu essayé de jeter un coup d'oeil à ce que je propose à dean ???

 

[pat1545.]

Hello,

oui tu testes sur '' et c'est pas plus mal ainsi


Bye

 

[Dean]

bonjour Patrick, bonjour Pierrejean
merci pour vos réponses(que je viens d'essayées),mais quand je les utilisent toutes les cases dissparaissent ou ça rajoute des cases qui n'etait pas la avant; j'ai pensé que je pourrait me servir de SI pour décomposer la colonne puis enlever les 'blancs' et enfin la recomposer sans les cases vides, est ce possible?
merci de votre réponse

 

[pierrejean]

re dean

je suis tres surpris

avec ce que je te propose je ne pense pas que des lignes ou cellules puissent apparaitrent
peux-tu me donner un exemple ??

 

[Dean]

Salut Pierrejean
en faite cela me trie les cases avec les P et les Q par ordres croissant et moi je voudrai trier les cases sans modifier l'ordre càd P6 suivit de Q11,puis P14 et ainsi de suite, juste en retirant les 'blancs'.
merci

 

[pierrejean]

re

toujours tres surpris !!!

ma macro n'effectue aucun classement
elle se contente de supprimer les lignes lorsque les cellules de la colonne A sont vides !!

A +