Effacer des lignes

[Sophie11]

Bonjour,

J'ai un code qui me permet d'effacer des lignes si ma cellule contient la valeur "Sophie".
Le problème c'est que l'execution du code est beaucoup trop long.
Je me demandais si il était possible d'optimiser ce code?

For n = Range("B65536").End(xlUp).Row To 3 Step -1
If Range("C" & n) <> "Sophie" Then Rows(n).Delete
Next

 

[tototiti2008]

Re : Effacer des lignes

Bonjour Sophie,

tu ne m'as pas répondu, là :

https://www.excel-downloads.com/threads/rechargement-dun-classeur-partage.144553/

ça correspond à ton besoin ?

 

[pierrejean]

Re : Effacer des lignes

Bonjour Sophie

Teste ceci

Sub efface()
Application.ScreenUpdating = False
tablo = Range("B1:B" & Range("B65536").End(xlUp).Row)
For n = UBound(tablo, 1) To 3 Step -1
  If tablo(n, 1) = "Sophie" Then Rows(n).Delete
Next n
Application.ScreenUpdating = True
End Sub

Edit ; Salut tototiti

 

[Sophie11]

Re : Effacer des lignes

merci pierrejean! j'apprécie beaucoup ta facon de "coder", j'apprends beaucoup
pr tototiti, message répondu, désolé pr le retard, merci encore!!

 

[Staple1600]

Re : Effacer des lignes

Bonjour à tous


Sophie11
Pourquoi mutlipier les posts relatifs à une même problématique ?
https://www.excel-downloads.com/threads/supprimer-ligne-contenant-x-ou-y-dans-colonne-a.139385/
Il suffisait de faire un up dans celui-ci.
ou la rigueur dans celui-ci
https://www.excel-downloads.com/threads/supprimer-des-lignes-contenant-une-valeur-specifique.141884/