Longueur de la variable String [VBA]

Je n'ai donné que la partie du code qui concernait la suppression de lignes, j'ai effectivement oublié de signaler que j'utilisais application.screenupdating au début de la macro ainsi qu'à la fin. Mais même avec ceci l'éxécution se révèle excessivement longue.
Concernant les cellules "vraiment vides" : elles le sont vraiment et la fonction que tu me proposes marche donc bien.
Cependant la cellule avec formule pour lesquelles la veleur de la formule est nulle affichent "0"
je test une formule équivalent avec xlCellTypeNull mais ça ne marche pas :)
Merci pour ton aide

Re,

Je n'avais pas rafraichi, salut michel, on est bien phase... :-)

xlCellTypeNull c'était bien tenté... ;-)

Après avoir supprimé les vides avec xlCellTypeBlanks je te propose d'utiliser le filtre automatique pour accelerer le traitement :
Cells.AutoFilter Field:=1, Criteria1:="0"
Rows("2:65536").Delete Shift:=xlUp
Selection.AutoFilter Field:=1

Je te laisse tester le gain sur un grand fichier, à toi de dire...

eric

On va suivre dans l'ordre chronologique des messsages...

Donc, en guise d'apéro
temps pour 7500 lignes DonT 4100 vides ou 0: environ 0,9 secondes (512 mo de ram)
principe; je récolte les lignes non vides ou 0 dans un tableau-array et je restitue en supprimeant auparavant les données originelles

Const deplig As Byte = 2 'ligne de départ
Sub supprimer_ligne()
Dim derlig As Long, cptr As Long, cptr_t As Long
Dim tablo, valeur
derlig = Cells(Cells.Rows.Count, 1).End(xlUp).Row

'pour test rapidité
Start = Timer
ReDim tablo(8, 0)

For cptr = deplig To derlig
    valeur = Cells(cptr, 1)
    If valeur <> 0 Or valeur <> "" Then
        ReDim Preserve tablo(8, cptr_t)
        For col = 0 To 8
            test = Cells(cptr, col + 1)
            tablo(col, cptr_t) = Cells(cptr, col + 1)
        Next
         cptr_t = cptr_t + 1
    End If
Next

Application.ScreenUpdating = False
Range("A2:I" & derlig).ClearContents
Range("A2").Resize(cptr_t, 9) = Application.Transpose(tablo)
MsgBox Timer - Start & "secondes"
End Sub

Eric ta solution est astucieuse mais est ce que ca masque sans détruire les lignes vides (suis faché betement avec les filtres) ?

est ce que ca masque sans détruire les lignes vides
Ca affiche les 0 et supprime ces lignes, les vides sont traités auparavant avec xlCellTypeBlanks .

J'ai testé sur 59400 lignes, tu es plus rapide (11s au lieu de 23s) mais il reste les 0 chez toi (???).
Il doit manquer qcq chose...

eric

17.6s, je ne peux pas mieux avec cette technique :-)

Sub supprimerLig()  
    ' supprime ligne avec 0 ou vide en colonne A 
    Dim t As Double  
    Application.ScreenUpdating = False  
    t = Timer  
    Range("A1").AutoFilter  
    Range([A1], ActiveCell.SpecialCells(xlLastCell)).AutoFilter
    Cells.AutoFilter Field:=1, Criteria1:="=", Operator:=xlOr, Criteria2:="=0"  
    Rows("2:65536").Delete Shift:=xlUp  
    Selection.AutoFilter Field:=1  
    Application.ScreenUpdating = True  
    MsgBox (Timer - t)  
End Sub

Tout d'abord merci pour ton aide.
Ta fonction marche bien sur 65000 lignes et est autrement plus rapide que ma boucle.
Je cherche actuellement un moyen de l'adapter pour les cellules de valeur égale à 0.
Mon tableau a 9 colonnes (et la ligne 1 est réservée pour les entêtes de colonnes :) )

re et bonjour Eriic

merci pour les 9 colonnes, ca va permettre de feinter!

je te propose un truc dès que possible

1/ les 2 formules sont valables. mais comme XL2007 a plus d'un million de lignes, la 1° formule marche sur les versions 2007 et inférieure (comme tu travailles sur 65000 lignes on aurait pu écrire
Range("A65536")..).

2/ Dim tablo, valeur ==> variant
je connaissais pas le type des données en colonne A: toi,si, donc tu peux complèter.
pour le tablo je laisse toujours en variant car le type des données est variable;dans le 1° paramêtre(8,0) 1° rang peut -être en string, le 2° en single le 3° en date...

3/ je ne sais pas combien de lignes va avoir le tableau puisqu'à chaque condition remplie j'augmente 1 ligne au nombre de lignes par redim preserve tablo (8,cpr_t)...... cpr_t=cpr_t+1
Or on peut faire cela que sur le dernier paramêtre, d'où l'inversion lignes colonnes, d'où ensuite l'utilisation de la fonction Excel "transpose"

4/ lignes vides: sur ma maquette le n'ai pas ce problème. attention si tu as fait des adaptations à la réalité de ton classeur, des oublis ou maladresses (on sait tous faire) font des trucs tout drôles ou il ya le résultat d'une formule qui renverrait "" et peut-être que...


Les variables- tableaux sont indispensables lorsque tu as des tableaux géants comme les tiens car on quitte les feuilles XL (va et vient ecran, mémoire, processeur, mémoire, ecran) pour travaille en mémoire ram et peut ^tre en L2

Si ca t'intéresse, tu as un tuto très pédagogique écrit pas mon vieux copain Silkyroad sur Developpez.Com
https://silkyroad.developpez.com/vba/tableaux/

enfin, tu ne peux peut-être pas faire autrement mais Microsoft déconseille les databases XL de plus de 15000 lignes
http://office.microsoft.com/fr-ch/excel-help/utilisation-d-access-ou-d-excel-pour-gerer-vos-donnees-HA001042918.aspx
mais bof!

Voilà, je vais quand m^me regarder pour les lignes et je te fais signe si il y a un bug... sinon, bonne soirée et content pour toi si t'es débarrassé de ce problème
Cordialement

Merci beaucoup pour toutes ces informations.
J'ai vraiment cherché comment apparaissaient ces lignes vides.
A défaut de pouvoir prévenir, j'ai réussi a guérir en utilisant la formule que vous m'aviez donné en début de post, à savoir :

Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 

DU coup le résultat obtenu est celui attendu dans un temps record (en ajoutant votre code à la suite du mien j'obtiens une macro qui tourne en moins de 30 sec).

Merci à tout les deux pour votre aide et à la prochaine