Supprimer les lignes d'apparence vide alors qu'il y a une formule

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Mai 2012

• #2

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Bonjour, et bienvenue sur le forum

faut-il supprimer le contenu de la cellule ou la ligne complète si les cellules H, I, J, K sont "vides d'apparence"
un fichier représentant ton problème serait utile pour pouvoir répondre exactement à ta demande

à+
Philippe

 

Vote positif 0 Vote négatif

L

lolodepau

Guest

• 22 Mai 2012

• #3

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Sil les cellules H,I,J,K sont d'apparence vides il faut supprimer la ligne allant de H a K vers le haut... si possible.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 22 Mai 2012

• #4

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Bonjour Lolodepau et bienvenue, salut Philippe 🙂,
Logiquement

Code:

Sub Test()
Dim I As Integer
Application.ScreenUpdating = False
For I = 406 To 6 Step -1
If Evaluate("H" & I & "&I" & I & "&J" & I & "&K" & I) = "" Then
Range("H" & I & ":K" & I).Delete Shift:=xlUp
End If
Next I
Application.ScreenUpdating = True
End Sub

devrait le faire 😛...
Bonne suite 😎

 

Vote positif 0 Vote négatif

L

lolodepau

Guest

• 22 Mai 2012

• #5

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Tu es mon Dieu JNP car je travail sur un projet et puis il me fallait un tableau bilan pour le rendre enfin 2semaines qui ont pas servit a rien et hop dans 15min dans le bureau du boss 🙂

 

Vote positif 0 Vote négatif

L

lolodepau

Guest

• 22 Mai 2012

• #6

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Erreur de ma part car les cellules H,I,J,K sont d'apparence vides mais il faut supprimer toute la ligne vers le haut... si possible.
Désoler.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 22 Mai 2012

• #7

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Re 🙂,
C'est pas ce que tu as répondu à Philippe tout à l'heure 🙄...

Code:

Sub Test()
Dim I As Integer
Application.ScreenUpdating = False
For I = 406 To 6 Step -1
If Evaluate("H" & I & "&I" & I & "&J" & I & "&K" & I) = "" Then
Rows(I).Delete
End If
Next I
Application.ScreenUpdating = True
End Sub

Bonne suite 😎

 

Vote positif 0 Vote négatif

L

lolodepau

Guest

• 22 Mai 2012

• #8

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Merci je vais essayer et je te tiens au courant mais le problème c'est que j'ai 2 tableaux sur la même feuilles donc quand sa supprimer les lignes mes formules du second tableau ne démarre plus pas au bon endroits. Car le tableaux 2 est monté vu que les lignes se sont supprimer .
Help ? A la tête au fond de l'eau !

 

Dernière modification par un modérateur: 22 Mai 2012

Vote positif 0 Vote négatif

L

lolodepau

Guest

• 22 Mai 2012

• #9

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Erreur d’exécution"13"
Incompatibilité de type


Sub Sippreligneonglet()

Dim I As Integer
Application.ScreenUpdating = False
For I = 5000 To 1 Step -1
If Evaluate("A" & I & "&B" & I & "&C" & I & "&D" & I & "&E" & "&F" & I & "&G" & I & "&H" & I) = "" Then
Range("A" & I & ":H" & I).Delete Shift:=xlUp
End If
Next I
Application.ScreenUpdating = True
End Sub

Je trouve pas le problème ?

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 22 Mai 2012

• #10

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Manque & I dans "&E" & "&F"...

 

Vote positif 0 Vote négatif

L

lolodepau

Guest

• 23 Mai 2012

• #11

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Merci sa marche bien,
mais pour mon second tableau la durée d’exécution de la macro est de 16minutes ! Mon problème sur mon second tableau qui est de la ligne 1 a 8500 et que dans toutes ces lignes seulement une centaine sont utilisé je voudrais bien un macro qui me supprime les lignes en "apparence vide" entre la ligne1 jusqu’a la dernière ligne ou il y a du texte.
Merci

 

Vote positif 0 Vote négatif

WUTED

XLDnaute Occasionnel

• 23 Mai 2012

• #12

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Bonjour lolodepau, JNP, phlaurent55,

Utilise

Code:

Sheets("nomFeuille").Range("A65536").End(xlUp).Row

Cela te retournera le numéro de la dernière ligne non-vide.

Bonne journée,
WUTED

 

Vote positif 0 Vote négatif

L

lolodepau

Guest

• 23 Mai 2012

• #13

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Je l’insère à quel niveau ? je remplace "nomdefeuille" par le nom de mon onglet ? et je remplace "A65536" par K8500 ?
Merci

 

Vote positif 0 Vote négatif

WUTED

XLDnaute Occasionnel

• 23 Mai 2012

• #14

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Re,

VB:

Sub Sippreligneonglet()
  Dim I As Integer
  Application.ScreenUpdating = False
  For I = Sheets("nomFeuille").Range("H65536").End(xlUp).Row To 1 Step -1
    If Evaluate("A" & I & "&B" & I & "&C" & I & "&D" & I & "&E" & I & "&F" & I & "&G" & I & "&H" & I) = "" Then
       Range("A" & I & ":H" & I).Delete Shift:=xlUp
    End If
  Next I
  Application.ScreenUpdating = True
End Sub

Tu le places ici, oui tu remplaces par le nom de l'onglet tu peux remplacer par H8500 ou k8500 seulement si tu es sûr que tu n'auras jamais de lignes non-vides sous cette ligne.

 

Vote positif 0 Vote négatif

L

lolodepau

Guest

• 23 Mai 2012

• #15

Re : Supprimer les lignes d'apparence vide alors qu'il y a une formule

Rien ne change sa commence a supprimer qu'a partie de la ligne 8500 sa commence pas a la dernière ligne?

 

Pièces jointes

• tab1.jpg

  58.4 KB · Affichages: 127
• tab1.jpg

  58.4 KB · Affichages: 130

Vote positif 0 Vote négatif