Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Aide sur code vba

Aide sur code vba

4 réponses
Avatar
Daniel
Re re bonjour!

Encore une question! Hé oui, fin de semaine difficile!

Je souhaite revoir un code VBA que j'ai et le réadapter :

Application.ScreenUpdating = False
x = [A65536].End(3).Row
[C2] = "=and(A2<>""N"")"
Range("A1:A" & x).AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:=[C1:C2]
Range("A2:A" & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.ShowAllData

- Normalement ce code permet de supprimer toutes les lignes de la colonne A,
à partir de la cellule A2. Le code fait le test dans la cellule C2.

Dans mon cas, je veux que ce code supprime toutes les lignes de la colonne E
à partir de E4. Le teste pouvant se faire en D4. Mais ç bug !!! C'est
probablement à cause des Range("A1:A" & x) et Range("A2:A" & x) que je
n'arrive pas à adapter.

Si vous connaissez ce code, merci d'avance!
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
x = [E65536].End(3).Row
[D1] = "ä<>""N"""
Range("E1:E" & x).AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:=[D1:D2]
Range("E2:E" & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.ShowAllData

AV
Avatar
Daniel
Je comprend mon erreur!

J'essaye maintenant de faire la même chose mais au lieu de ""N"", j'ai ""1""
et on dirait que ça bloque dès qu'il y a un chiffre et non une lettre! Y a
t'il une alternative docteur ?


x = [E65536].End(3).Row
[D1] = "ä<>""N"""
Range("E1:E" & x).AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:=[D1:D2]
Range("E2:E" & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.ShowAllData

AV





Avatar
AV
J'essaye maintenant de faire la même chose mais au lieu de ""N"", j'ai ""1""
et on dirait que ça bloque dès qu'il y a un chiffre et non une lettre! Y a
t'il une alternative docteur ?


S'il s'agit de valeurs numériques dans la plage à filtrer, il y a des guillemets
en trop
[D1] = "ä<>1"

AV

Avatar
Daniel
Génial !

Un énorme spécial thanks to monsieur Av pour sa précieuse aide!


J'essaye maintenant de faire la même chose mais au lieu de ""N"", j'ai ""1""
et on dirait que ça bloque dès qu'il y a un chiffre et non une lettre! Y a
t'il une alternative docteur ?


S'il s'agit de valeurs numériques dans la plage à filtrer, il y a des guillemets
en trop
[D1] = "ä<>1"

AV