Discussion :

[Damss]

Bonsoir,

je suis un vrai débutant en VBA...

Voici mon problème, au cours de la procédure que je réalise, je suis en présence d'une colonne d'une 100 aine de lignes. Sur cette colonnes sur les 100 lignes en jeu, je n'ai que 10 ou 15 cellules ont un mot est écrit dans la cellule.
C'est pourquoi je voudrais supprimer les cellules où rien n'est écrit dedans ?

Si qqn peut m'aider ou me donner une fonction sous Excel qui puisse mettre utile...


Merci d'avance


Damss

[Gorfael]

Salut Damss et le forum
VBA ne supporte pas l'imprécision! Pour avoir de l'aide, surtout si tu débutes, donnes des précisions (feuille, adresses, etc...) ça te permettra d'adapter plus facilement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test ()
Dim X as long
for X =Range("A" & Rows.count).end(xlup).row to 1 step -1
'Pour x =dernière ligne non vide de A, jusqu'à 1 en décrémentant
     If range("A" & X) = "" then rows(X).delete
     'si la cellule A ligne x est vide, alors supprimer Ligne X
Next X
'X suivant
End sub

Macro faite sur le site.
A+

[laetitia]

bonjour Damss Gorfael le forum on peu un truc comme cela aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

[Damss]

merci à vous 2 ! les deux procédures marchent !
j'ai essayé de faire des test pour voir le temps de calcul pour les deux mais n'ai pas vu de différences significatives...

[laetitia]

bonjour Damss , le fil , le forum le but de code c etait pas optimiser le code seulement le simplifier en terme de rapidite c est equivalent