Discussion :

[Pierre Fauconnier]

Code :

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

n = .Sheets(1).Name: Application.DisplayAlerts = False: .Sheets(1).Delete: .Sheets(2).Name = n

Si des formules pointent vers sheets(1), je te souhaite bon courage pour la suite... Ce n'est pas une solution générique, fiable et professionnelle. Et ce n'est pas toi que je mets en cause, c'est juste la solution que je critique.

[Invité]

Bonjour,
Vba ne fait pas les chose à l'envers ! Ne dit on pas que la nature a horreurs du vide!

Quand un électron s'en va un autre prend sa place!

Telle est la raison de commencer par la fin pour notre ca si on veut parcourir tous les éléments!
Si je supprime la ligne 1 la ligne 2 prend sa place; après si je supprime la ligne 2 je supprime la ligne qui avant avait la position 3!

[Pierre Fauconnier]

Je rappelle juste que la première obligation d'un développement, c'est qu'il fasse ce qu'on lui demande. Après, si on veut, on optimise. Passer des heures à optimiser un truc qui prendra une seconde plutôt que deux minutes, c'est rentable sur le (très) long terme.

Je rappelle le calcul: si on réalise l'opération une fois chaque semaine, une heure de programmation pour gagner deux minutes sera rentable en trente semaines... Avant cela, ça coûtera des sous... j'ai mis des années à le comprendre, et durant ce temps, j'ai développé gratis...

[retraite83]

Je partage l'avis de Pierre Fauconnier, ma fille est ravie d'avoir ce petit outil qui lui permet de préparer son document en 2 minutes alors qu'il lui fallait un temps fou avec word...
En passant, pour un néophyte comme moi je trouve paradoxal d'avoir à utiliser Excel pour préparer un document à imprimer, mais bon, première surprise...

Concernant ma question de départ, le temps d'exécution de la macro (7 mn, c'était un peu long quand même), puis-je suggérer une réflexion...

Tout d'abord vos discussions entre experts est certes surement passionnante, mais reconnaissez qu'elles sont loin de la compétence du commun des mortels.

Seconde surprise, je découvre que Monsieur l'ordinateur et son langage VBA commence par la fin du document à cause de sa logique personnelle et fait cela surement quelques centaines de fois pour supprimer les lignes qui ont juste un "X" dans une colonne, d'où 2 mn, un temps qui me conviens mais surement très long vu la puissance de ces machines... Entourés d'autant d'informatique dans notre vie quotidienne, je commence à comprendre pourquoi tout va à l'envers dans notre monde (mais cela n'engage que moi)...

Ne peut-on pas demander à VBA, hyperpuissant et sophistiqué, de travailler "normalement" en commençant parle début du document et faire les suppressions "normalement" en une seule fois.
Par exemple dans la macro trouver une solution pour supprimer la ligne TANT QUE le "X" est présent dans la colonne et ne faire +1 sur i que lorsqu'il n'y a pas de "X" même s'il faut tout ré-écrire ???

voilà ma petite macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub supprlinean()
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 5000 To 1 Step -1
If Cells(i, 40).Value = "X" Then
Cells(i, 40).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

[unparia]

Bonjour
Ta réflexion est incomplète.
Si, avec ce code, tu commences par le début, tu te feras inévitablement des croche-pieds avec la numérotation des lignes !
Imagine que tu supprimes la ligne 2 -->> la 3ème deviendra ipso-facto la 2ème et ta boucle perdra donc son efficacité.
On ne peut faire cela qu'à la condition :
- de créer une plage (par Application.Union) de toutes les lignes à supprimer
- de supprimer d'un seul coup, in fine, les rangs entiers de cette plage. Mais ce serait alors un code totalement distinct.

[NVCfrm]

...
On ne peut faire cela qu'à la condition :
- de créer une plage (par Application.Union) de toutes les lignes à supprimer
- de supprimer d'un seul coup, in fine, les rangs entiers de cette plage. Mais ce serait alors un code totalement distinct.

Ce qui lui a ete donn2 dans un exemple de code au post #38 en se passant de boucle. Il lui suffit de mettre la bonne valeur de colonne à la ligne n°2 de ce code.

Maintenant s'il veut vraiment pour une raison obscure, savoir comment faire une boucle de suppression de lignes dans le sens qu'il veut avec for, il doit juste s'armer en conséquence avec une variable compteur qui s'incrémente dans la condition à l'intérieur de la boucle For i (IF condition -> supprimer ligne c - ELSE c +1). Ce qui n'a pas d'intérêt si la boucle For vise juste à supprimer des lignes, autrement pour passer outre les limitations de For se tourner vers Do ... Loop [ Until | Wend | <,>,<=,>= ]

[RyuAutodidacte]

Bonjour,

Comme on ne pourras pas changer la logique de VBA sur Excel, dans ce cas là autant changer la méthode de suppression de ligne, ce que je proposais en vba et expliquais aussi par Marc puis moi à faire manuellement prenant moins de 2 minutes

PS : mettre le code entre balise avec la touche # pour la lisibilité de celui-ci - cf lien dans ma signature
Dans le code donner en lien peu de chose à changer (Bien sur pour comprendre le code, utiliser le pas à pas avec la fenêtre des variables locales pour voir à quoi correspond les variables et l'aide VBA))

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Demo()
Dim DL As Long, Col As Integer, V
    DL = Cells(Rows.Count, 1).End(xlUp).Row 'Dernière ligne remplie
    Col = Cells(1).CurrentRegion.Columns.Count + 1 ' Numéro de la colonne après la dernière colonne utilisé
   Application.ScreenUpdating = False
    With Range(Cells(1, Col), Cells(DL, Col))
        .FormulaLocal = "=SI($A1 = ""X"";1;0)" 'on applique la formule sur la colonne supplémentaire
        .Value = .Value
    End With
    With Cells(1).CurrentRegion
        .Sort Columns(Col), xlAscending, Header:=xlNo 'on trie dans l'ordre croissant les données via la colonne supplémentaire ou l'on a mis la formule
        V = Application.Match(1, .Columns(Col), 0) 'on repère ou se trouve le 1er "1" dans la colonne supp
        If Not IsError(V) Then
            Rows(V & ":" & .Rows.Count).EntireRow.Clear 'on efface l'ensemble des lignes dont la valeur est 1 dans la colonne supp. précédemment triée
        End If
        .Columns(Col).Clear 'on efface la colonne supplémentaire
    End With
    Application.ScreenUpdating = True
   ' PS : et tout cela peut se faire manuellement comme expliqué dans les posts ci-dessus
End Sub

Edit : Corr. d'orthographe