effaver cellulles vide + voisine

[philric]

bonjour
je cherche a faire une macro qui recherche sur ma feuille excel toutes les cellules vides et les supprimer ainsi que sa cellule gauche voisine (qui elle n'est pas vide) et remonter les cellules de dessous, merci de votre aide ca la ca depasse mes limites!!
phil

 

[MJ13]

Re : effaver cellulles vide + voisine

Bonjour

En l'absence de fichier voici un exemple.
Je rempli avec 1 les cellules vides d'une zone. Cela doit être facilement adaptable

Sub Un_début_A_tester()
    Selection.SpecialCells(xlCellTypeBlanks).Select
    For Each cell In Selection
    cell.Value = 1
    Next
End Sub

 

[philric]

Re : effacer cellulles vide + voisine

merci de la reponse rapide, voici le fichier excel pour que ce soit plus clair, en fait j'ai besoin par exemple supprimer b5 et a5 car ce sont des articles qui ne sont pas disponible (puisque rien en b5) et je veux remonter ensuite la cellule b6 et a6 et ainsi de suite pout toutes les cellules de la colonne b qui n'ont pas de prix, puis de meme a partir de d,f etc
phil

 

[MJ13]

Re : effaver cellulles vide + voisine

RE bonjour

Ce qui peut paraître simple au départ ne l'est pas toujours.

Voici un essai (prendre la macro Fin2)

 

[philric]

Re : effaver cellulles vide + voisine

c'est tout simplement genial!! maintenant je dois "nettoyer" la feuille excel c'est a dire que les colonnes ne sont pas de la meme hauteur et je dois les meme a peu pres egal meme si dans la plupart des cas ce ne sera pas possible, (l'ordre des articles a peu d'importance) et ensuite il me faudra ouvrir microsoft script editor et copier tout le script dans le presse papier afin de pouvoir le coller manuellement dans un autre logiciel (turbolister) si tu as une idee.....
bon we
phil

 

[MJ13]

Re : effaver cellulles vide + voisine

Bonjour philric

le coller manuellement dans un autre logiciel (turbolister) si tu as une idee

Euh non, pas d'idée.
Tu sais je ne suis pas un expert en programmation, j'utilise beaucoup l'enregistreur de macros.

Remarque: si tes colonnes ne sont pas de la même hauteur, tu peux essayer d'augmenter le i dans la boucle en le passant à 6 voire plus.

Bon Week-end.