effacer ligne si cellule de la colonne A contient du texte

JBARBE

XLDnaute Barbatruc

• 25 Mars 2017

• #31

Bonsoir à tous, Bonsoir Guido,
En cliquant sur le bouton GO
bonne soirée !

 

Pièces jointes

• GUIDO_BILAN_REEL_2017.xls

  5.5 MB · Affichages: 39

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 25 Mars 2017

• #32

Re

Bonsoir JBARBE et le Forum

Merci pour le fichier ,Tout est Ok.

Amitiés

Guido

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Mars 2017

• #33

Bonjour tout le monde

En PJ le fichier(Pascal) avec amélioration du temps de transfert, de 23 je suis passé à 13 sec en ajoutant quelques fameux Application.xxxxx .

 

Pièces jointes

• effacer ligne si texte colonnA1.xlsm

  2.2 MB · Affichages: 34

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 26 Mars 2017

• #34

pascal21 à dit:

je n'ai que 15000 lignes
et les lignes sont 4 , 50 , 96 etc.....
ce qui fait un pas de 46 si je ne me trompe pas

Cliquez pour agrandir...

Bonsoir à tous,
En respectant la demande ( 0,22 s) sur 15042 lignes !
Bonne soirée !

 

Pièces jointes

• effacer ligne si texte colonnes.xlsm

  1.9 MB · Affichages: 41

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 26 Mars 2017

• #35

bonjour à tous
merci de vous être penché sur mon problème
au final mon premier classeur vous a enduit en erreur
il s'agit bien d'alléger le tableau originel pour recommencer une nouvelle saisie tous les ans
mapomme ton code est très bien il est rapide mais, ca se recopie sur une autre feuille
ça n'est malheureusement pas ce que je souhaite comme résultat
dommage car tu as bien bossé sur le truc
j'ai regardé ton code il est trop complexe pour moi pour que j'arrive à le modifier pour obtenir ce que je souhaite
je précise ma demande
sur mon classeur final il s'agit d'effacer les données suivantes
A5:A47 C5:AA47 AG5:AG47
A51:A93 C51:AA93 AG51:AG93
A97:A139 C97:AA139 AG97:AG139
ETC.....
soit un pas de 46 si je ne me trompe pas
le code devrait être plus simple à réaliser mais plus rapide, je n'en sais rien
j'ai du mal avec la syntaxe lors de l'utilisation de step
autrement la solution brute serait d'écrire
range("A5:A47 ,C5:AA47 ,AG5:AG47").ClearContents
mais pour 15000 lignes çà risque d'être un peu lourd

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 26 Mars 2017

• #36

JBARBE
je n'avais pas vu ta proposition
elle colle parfaitement à ma demande (sur le premier clic que j'ai fais en tout cas)
merci bon weekend

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 26 Mars 2017

• #37

pascal21 à dit:

bonjour à tous

sur mon classeur final il s'agit d'effacer les données suivantes
A5:A47 C5:AA47 AG5:AG47
A51:A93 C51:AA93 AG51:AG93
A97:A139 C97:AA139 AG97:AG139
ETC.....
soit un pas de 46 si je ne me trompe pas

Cliquez pour agrandir...

Re,
J'ai effectué la macro par pas de 46+1 :
Soit tu n'as pas regardé ma macro soit tu t'es mal exprimé !

Option Explicit

Sub supprimer()
Dim i As Long, j As Long, A As Long, D&
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
D = Timer
For i = 4 To 15000 Step 47
If Cells(i, 1) = "" Then Exit Sub
Range(Cells(i, 1), Cells(i + 45, 1)).ClearContents
Range(Cells(i, 3), Cells(i + 45, 27)).ClearContents
Range(Cells(i, 32), Cells(i + 45, 32)).ClearContents
If Cells(i + 46, 1).NumberFormat <> "m/d/yyyy" Then
MsgBox " Date mal placée " & Rows(i + 46)
Exit Sub
End If
Next i
MsgBox Format(Timer - D, "#,##0.00\ sec.")
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Bonne journée

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 26 Mars 2017

• #38

dans mon dernier message c'est bien le format que je souhaite
les lignes 48 49 50 94 95 96 140 141 142 etc....
ce qui fait une zone de la ligne 5 à 47 à effacer ensuite une zone de la ligne 48 à 50 à conserver une nouvelle zone de la ligne 51 à 93 à effacer etc....
il est possible que je me sois emmèlé les pinceaux quelque part dans mes explications

 

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 26 Mars 2017

• #39

Bonjour à tous,

Pour revenir à la question initiale, on peut utiliser la méthode SpecialCells

VB:

Sub test()
Dim myAreas As Areas, i As Long
    Set myAreas = Sheets("feuil1").Columns(1).SpecialCells(2, 2).Areas
    'Sheets("feuil1").Columns(1).SpecialCells(2, 2).Select
    For i = 1 To myAreas.Count
        myAreas(i).Select
        myAreas(i).Offset(, 2).Resize(, 25).Select
        myAreas(i).Offset(, 31).Select
    Next
End Sub

klin89

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 26 Mars 2017

• #40

Re

Pour paraphraser un éminent fort-humeur : « P… ! J'suis invisible ! » là.
(ne pas se méprendre : P our certains ! ...)


Il faut dire qu’il y a de quoi avec tous les rajouts ne concernant pas la demande initiale !

 

Vote positif 0 Vote négatif