Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1006 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  suppression de ligne jusqu'à ligne vide

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

suppression de ligne jusqu'à ligne vide

n°2328140
mth_26
Posté le 24-01-2019 à 21:07:05  profilanswer
 

Bonsoir,
 
J'ai besoin d'un petit coup de main SVP.
Voici une partie de mon code. J'aimerais que la suppression de ligne se fasse jusqu'à la première ligne vide qui bien évidemment peut évoluer.
 
With ActiveWorkbook.Sheets("Cat. Méth. NCPF" )
 
For i = .Range("A" & .Rows.Count).End(xlUp).Row To 9 Step -1
If .Range("A" & i).Value <> "T2 Chapeau" Then
.Rows(i).Delete
End If
 
            Next i
 
 
Merci beaucoup

mood
Publicité
Posté le 24-01-2019 à 21:07:05  profilanswer
 

n°2328360
pass-by
Posté le 30-01-2019 à 09:31:41  profilanswer
 

Tu testes aujourd'hui si ta cellule vaut "T2 Chapeau", tu peux tester si elle est non vide avec len()>0, cela donnerait :
 

Code :
  1. With ActiveWorkbook.Sheets("Cat. Méth. NCPF" )
  2.    For i = .Range("A" & .Rows.Count).End(xlUp).Row To 9 Step -1
  3.       If len(.Range("A" & i).Value) > 0 Then
  4.          .Rows(i).Delete
  5.       Else
  6.          Exit For
  7.       End If
  8.    Next i
  9. End with


 
 
A tester avec ton classeur

n°2328386
MaybeEijOr​Not
but someone at least
Posté le 30-01-2019 à 14:10:31  profilanswer
 

Bonjour,
 
Cela vérifie uniquement qu'une cellule est vide dans la colonne A et non toute la ligne.
 
Je propose cela :
 

Code :
  1. Dim nbLignes1, nbLignes2 As Integer
  2.  
  3.    With ThisWorkbook.Sheets("Cat. Méth. NCPF" )
  4.        nbLignes1 = .Range("A1" ).CurrentRegion.Row + .Range("A1" ).CurrentRegion.Rows.Count
  5.        nbLignes2 = .Cells.SpecialCells(xlLastCell).Row
  6.        .Range("A" & nbLignes1 & ":A" & nbLignes2).EntireRow.Delete
  7.    End With


---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  suppression de ligne jusqu'à ligne vide

 

Sujets relatifs
Ligne blanche indésirable (RESOLU)Comment faire un saut à la ligne Powershell
Suppression des lignes vides avec un grand Spartager un agenda en ligne
recherche de la premiere ligneLigne de commande avec éléments à concaténer ?
[ReactJS] Mettre un site en ligneSuppression de ligne Excel
[DOS] supprimer espace en fin de ligne 
Plus de sujets relatifs à : suppression de ligne jusqu'à ligne vide


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR