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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Comment supprimer ligne vide en vbs?

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Comment supprimer ligne vide en vbs?

n°1502958
slr56
Tout problème a sa solution.
Posté le 15-01-2007 à 10:00:23  profilanswer
 

Ma question est dans le titre du sujet... J'analyse le contenu de fichiers, et je souhaite supprimer les lignes qui sont vides ;)  
 
Je sais comment ouvrir, écrire modifier les fichiers.
 
Je veux rajouter ceci :  
 
si   ligne ="" alors
    supprimer ligne
finsi
 
 
Merci :wahoo:


Message édité par slr56 le 16-01-2007 à 08:21:29
mood
Publicité
Posté le 15-01-2007 à 10:00:23  profilanswer
 

n°1503204
slr56
Tout problème a sa solution.
Posté le 15-01-2007 à 16:09:46  profilanswer
 

un ptit up!

n°1503363
olivthill
Posté le 15-01-2007 à 21:19:00  profilanswer
 

Il faut :
 
1. ouvrir un autre fichier en création,
2. y recopier toutes les lignes sauf les lignes vides.
3. supprimer l'ancien fichier, et renommer le nouveau avec l'ancien nom.
 
Désolé, mais c'est le seul moyen.

Message cité 1 fois
Message édité par olivthill le 15-01-2007 à 21:19:18
n°1503448
slr56
Tout problème a sa solution.
Posté le 16-01-2007 à 07:39:39  profilanswer
 

olivthill a écrit :

Il faut :
 
1. ouvrir un autre fichier en création,
2. y recopier toutes les lignes sauf les lignes vides.
3. supprimer l'ancien fichier, et renommer le nouveau avec l'ancien nom.
 
Désolé, mais c'est le seul moyen.


 
OK, j'ai pensé à ça aussi. ;)  Je me disais qu'il y avait peut être une autre solution mais tant pis.  :ange: Je vais faire avec. Merci olivhill pour ta réponse. :jap:  

n°1503997
Dolu007
Posté le 17-01-2007 à 09:07:18  profilanswer
 

   Columns("A:A" ).Select
    Selection.Insert Shift:=xlToRight
    Range("A1" ).Select
    Application.CalculateFull
    ActiveCell.FormulaR1C1 = "1"
    Range("A3" ).Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A5" ).Select
    ActiveCell.FormulaR1C1 = "3"
    Range("A1:A6" ).Select
    Selection.AutoFill Destination:=Range("A1:A30000" ), Type:=xlFillDefault
    Range("A1:A30000" ).Select
    Cells.Select
    Range("A30000" ).Activate
    Selection.Sort Key1:=Range("A1" ), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

n°1504016
slr56
Tout problème a sa solution.
Posté le 17-01-2007 à 09:32:06  profilanswer
 

Dolu007 a écrit :

Columns("A:A" ).Select
    Selection.Insert Shift:=xlToRight
    Range("A1" ).Select
    Application.CalculateFull
    ActiveCell.FormulaR1C1 = "1"
    Range("A3" ).Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A5" ).Select
    ActiveCell.FormulaR1C1 = "3"
    Range("A1:A6" ).Select
    Selection.AutoFill Destination:=Range("A1:A30000" ), Type:=xlFillDefault
    Range("A1:A30000" ).Select
    Cells.Select
    Range("A30000" ).Activate
    Selection.Sort Key1:=Range("A1" ), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal


 
Dolu007 ... je suis en VBS et non pas en VBA :D  


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

  Comment supprimer ligne vide en vbs?

 

Sujets relatifs
Connaitre la ligne affecté par la fonction 'UPDATEDétecter et supprimer valeur d'un tableau
Caractère pour "Retour à la ligne" dans un fichier texte ?Sélectionner la bonne ligne
Comment aligner des icones sur une ligne?Peux t-on supprimer l'espace créer après un form ?
musique en ligne[PHP] Ecrire dans un fichier: gestion du retour à la ligne
mailto avec destinataire videsupprimer une ligne vide [résolu]
Plus de sujets relatifs à : Comment supprimer ligne vide en vbs?


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR