XL 2016 Boucle for next - suppression de ligne

S

soan

XLDnaute Barbatruc

Inactif

• 20 Janvier 2021

• #2

Bonjour madmoizelle.zu,

bonne année 2021, et bienvenue sur le site XLD !

pour une suppression de ligne, la boucle doit être faite
de bas en haut, sinon ça gêne le compteur de boucle.

VB:

Option Explicit

Sub Essai()
  Dim Nomprojet$, dlg&, lig&
  With Worksheets("Données")
    dlg = .Cells(Rows.Count, 1).End(3).Row: If dlg = 1 Then Exit Sub
    Nomprojet = "Nom du projet" 'à adapter ; si c'est une cellule de
    'la feuille "Données", ne pas oublier de mettre un point devant.
    'exemple : Nomprojet = .[A1]
    Application.ScreenUpdating = 0
    For lig = dlg To 2 Step -1
      If .Cells(lig, 3) = Nomprojet Then .Rows(lig).Delete
    Next lig
  End With
End Sub

soan

 

Dernière édition: 20 Janvier 2021

Vote positif 0 Vote négatif

Solution

M

madmoizelle.zu

XLDnaute Nouveau

• 20 Janvier 2021

• #3

Bonjour Soan

C'est agréable comme accueil!
En plus avec la solution de mon problème comme cadeau de 2021
Merci beaucoup et bonne année également!!!

Je me demandais, pourquoi inscrire end(3) plutôt que end(x1up) ?

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 20 Janvier 2021

• #4

@madmoizelle.zu

End(3) est plus court, et c'est équivalent à End(xlUp)

autre exemple : End(4) est équivalent à End(xlDown)

---

attention : à droite du x, ce n'est pas un 1 mais un L minuscule ;
toutes les constantes excel commencent par les 2 lettres « xl ».

soan

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Janvier 2021

• #5

Bonjour madmoizelle.zu, soan,

soan à dit:

@madmoizelle.zu

End(3) est plus court, et c'est équivalent à End(xlUp)

autre exemple : End(4) est équivalent à End(xlDown)

Cliquez pour agrandir...

Les chiffres n'apportent rien et il vaut mieux utiliser xlUp et xlDown, c'est plus facile pour notre mémoire.

A+

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 20 Janvier 2021

• #6

Bonjour @job75, (ce post est aussi pour @madmoizelle.zu)

moi, j'retiens facilement que c'est 1 2 3 4 pour gauche droite haut bas :
c'est dans le même ordre que quand tu vas à l'église et que tu fais le
signe de croix, lolllllllll ! mais bien sûr, chacun ses goûts : j'oblige
personne à utiliser les chiffres au lieu des constantes lettres.

note que 1 2 3 4 est tout de même plus facile que :
-4159 = xlToLeft ; -4161 = xlToRight ;
-4162 = xlUp ; -4121 = xlDown

soan

 

Dernière édition: 20 Janvier 2021

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Janvier 2021

• #7

soan à dit:

moi, j'retiens facilement que c'est 1 2 3 4 pour gauche droite haut bas :
c'est dans le même ordre que quand tu vas à l'église et que tu fais le
signe de croix,

Cliquez pour agrandir...

Manifestement ça doit remonter à Mathusalem.
Ne commence-t-on par le haut puis par le bas puis la gauche puis la droite ? (3, 4 1,2)
Sauf les Orthodoxes qui font 3, 4, 2, 1

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 20 Janvier 2021

• #8

Bonsoir mapomme,

ooooppppsss ! oui, tu as raison, ça remonte à Mathusalem !

mea culpa ! j'vais être absent pour très longtemps : j'vais aller
faire pénitence et parcourir le Chemin de Saint-Jacques de
Compostelle ! (retour prévu dans environ 1 an ou 2)

---

faudrait qu'je trouve un autre code mnémotechnique, mais maint'nant,
j'y suis très habitué ! alors j'oublierai quand même pas que 1 2 3 4 =
gauche droite haut bas.

soan

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Janvier 2021

• #9

Re, salut mapomme,

Le seul intérêt que je vois à utiliser des chiffres au lieu d'une constante explicite c'est quand depuis Excel on pilote une autre application (Word par exemple).

A+

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 20 Janvier 2021

• #10

@job75

moi, j'y vois un autre intérêt : c'est plus court à écrire et à lire !

2 autres exemples, pour le mode de calcul :

-4135 au lieu de xlManual
-4105 au lieu de xlAutomatic

à force d'les utiliser, j'les connaît par cœur ; mais encore
une fois, c'est « chacun selon ses goûts ».

soan

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2021

• #11

Bonsoir le fil, madame zu, soan, mapomme, job75

Sans boucle, ni d'or, ni de ceinture mais emprunté à job75
(dans une de ses réponses de novembre 2020)

VB:

Const NomProjet As String = "BlairWitch"
Sub Supprimer()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    .Columns(2).EntireColumn.Insert 'insère une colonne auxiliaire
    With .Columns(2)
        .FormulaR1C1 = "=IF(RC[2]=" & Chr(34) & NomProjet & Chr(34) & ",0,""1$1"")"
        .Value = .Value 'supprime les formules
        .EntireRow.Sort .Cells, xlDescending  'tri pour regrouper et accélérer
        On Error Resume Next 'si aucune SpecialCell
        .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
        .EntireColumn.Delete 'supprime la colonne auxiliaire
    End With
End With
With ActiveSheet.UsedRange: End With 'actualise les barres de défilement
End Sub

NB: Adapter le nom du projet dans la Constante

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Janvier 2021

• #12

Bonsoir JM,

Oui pour préciser xlCellTypeConstants ou xlCellTypeFormulas je ne connais pas les constantes explicites.

Ma mémoire retient seulement 1 => nombres, 2 => textes, 16 =>erreurs.

Donc en effet les chiffres sont parfois utiles.

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2021

• #13

Re

=>Job75
Je n'avais pas vu le 1 dans ton code
Mon propos était plus axé sur le fait d'éviter la boucle.

 

Vote positif 0 Vote négatif