Discussion :

[awa123]

Bonjour,

J'ai un classeur 'donnees' qui renvoie des données triées dans le classeur 'program'.
Je voudrais ajouter au code du classeur 'donnees' un code qui permet de supprimer la ligne entière, dans le cas où il trouve que la cellule de la colonne A est vide .

Pour cela je pense qu'il faudrait ajouter le code suivant au code du classeur 'donnees':

Code :

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

1
2
3
4
5
6
 
Sub effacer()
For Each c In Sheets("feuil1").Range("A1:A" & Range("A65356").End(xlUp).Row)
If c = "" Then c.EntireRow.Delete
Next c
End Sub

Mais comment l'intégrer au code déjà existant du classeur 'donnees' pour ne pas faire plusieurs exécutions de différents codes???

Merci

[Michel_M]

Bonjour

pour effacer sans boucler
http://excel.developpez.com/faq/?pag...eCellLigneVide

[awa123]

Merci pour ce code :

Code :

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

1
2
3
4
5
6
7
8
 
'Supprime la ligne complète si les cellules de
'la colonne A sont vides.
Dim x As Long
 
x = Range("A65536").End(xlUp).Row
Cells.Range("A1:A" & x). _
    SpecialCells(xlCellTypeBlanks).EntireRow.Delete

c'est bien ce résultat que je voulais mais où l'insérer exactement pour que lorsque j'execute le petit algo. du classeur 'donnees' ça me renvoi bien les données vers le classeur 'program' (comme il fait très bien actuellement) puis qu'il me supprimer ensuite les lignes correspondantes (aux données renvoyés) à la fin automatiquement?

[patricktoulon]

bonjour

Code :

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

Cells.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

c'est a toi de decider a quel moment tu veux excuter cette fonction
on ne peut pas deviner a ta place

maintenant cette fonction supprime la ligne entiere ou ce trouve les cellules blanche(vide)

mais dans ton titre c'est la colonne que tu veux supprimer
est ce une erreur du titre ou du 1 er code que tu a proposé???????

si c'est le cas alors pour la colonne en entier

Code :

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

Cells.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete

[awa123]

Actuellement j'ai deux fichier 'donnees' et 'program' :

lorsqu'on execute le fichier 'donnees' et qu'on selectionne le fichier 'program' qui fait office de fichier de destination, il trie les données qu'il a pour ensuite les envoyés dans le fichier 'program' mais le probleme est qu'on trouve des cellule vide dans la colonne A.

C'est pour ça que j'aimerais introduire ce code dans le fichier 'donnees' pour qu'il l'execute ce code uniquement après avoir envoyé les données triés dans le fichier 'program'.

et c'est ça mon probleme maintenant , comment integrer le code que vous me donner pour que lorsque j'execute le fichier 'donnees' ça me revoi les données dans le fichier 'program' d'une part puis ça me supprimer les lignes correspondantes aux cellules de la colonne A vide afin de resulter d'une plage de données complète (sans cellule vide de la colonne A)

[patricktoulon]

Dans ce cas là c'est à la fin quand les données sont dans le fichier program qu'il faut lancer cette fonction, car je suppose que tu veux garder l'autre fichier intact.
Alors attention travailles avec des variables classeurs pour ne pas te tromper.

Au plaisir