question macro

JNP

XLDnaute Barbatruc

• 11 Mai 2010

• #2

Re : question macro

Bonsoir Bruno62 🙂,
Essaie déjà de désactiver l'affichage comme ceci, la différence devrait être flagrante 😉

Code:

Sub MacroCorrigéEtSimplifié()
' Macro enregistrée le
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
[COLOR=red][B]Application.ScreenUpdating = False
[/B][/COLOR]With Sheets("Feuil2")
For i = Range("G65536").End(xlUp).Row To 2 Step -1
If Cells(i, 7).Value = "0" Then
Cells(i, 2).EntireRow.Delete Shift:=xlUp
End If
Next i
End With
[COLOR=red][B]Application.ScreenUpdating = True
[/B][/COLOR]End Sub

Bonne soirée 😎

 

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 12 Mai 2010

• #3

Re : question macro

Bonsoir, et bonsoir JNP

Merci pour ton retour, il est vrai c'est plus rapide si dans la colonne g les formules sont enlevées
.
Mais le résultat est le même si les formules sont présentes.

Je suis surpris du résultat, pourquoi "ça moulinne".

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Mai 2010

• #4

Re : question macro

Bonsoir

????

M'étonnerait que cela marche 😛

Code:

Sub [COLOR=Red]MacroCorrigéEtSimplifié[/COLOR]()
' Macro enregistrée le
[COLOR=Red]Private Sub Workbook_SheetBeforeDoubleClick[/COLOR]
..
End sub

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 12 Mai 2010

• #5

Re : question macro

Re 🙂,
Ben, pour continuer, on peux essayer d'annuler le calcul automatique et de le remettre 😉.

Code:

Sheets("Feuil2").EnableCalculation = False

à mettre au début de la macro et

Code:

Sheets("Feuil2").EnableCalculation = True
Sheets("Feuil2").Calculate

à la fin.
Tiens nous au courant 😎

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 12 Mai 2010

• #6

Re : question macro

Re 🙂,
Déchaînés, le requin et l'agrafe 😛...
Oui, mon requin préféré parce que le seul, mais tu as fait un copier vers le bas de 5000 lignes 😀 ?
D'accord, Jean-Marie, notre ami a loupé son ménage dans le fichier, mais comme je commence par les remèdes de bonnes femmes, ça m'a pas tilté 😛...
Bonne soirée à tous 😎

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 12 Mai 2010

• #7

Re : question macro

Re 🙂,

carcharodon-carcharias à dit:

pourtant si 😕😕😕😕

Cliquez pour agrandir...

Pas chez moi 🙄

Bonne soirée 😎

 

Pièces jointes

• Double sub.jpg

  46.8 KB · Affichages: 115

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 12 Mai 2010

• #8

Re : question macro

Re 🙂,
Sur toutes tes versions 😕???
A + 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Mai 2010

• #9

Re : question macro

Re



Tu ne peux pas inclure une sub dans une sub 😱

Code:

Sub a()
'code
Sub b()
'code
end sub
end sub

Sinon une autre solution qui doit être rapide
(pour supprimer les lignes =0 en colonne G )

Code:

Sub a()
Dim paf As Range, pf As Range, x&
With Sheets(1)
    .AutoFilterMode = False
    Set paf = .Range(.[A2], .[G65536].End(xlUp))
    paf.AutoFilter 7, "0"
    Set pf = .[_FilterDataBase]: x = pf.Rows.Count - 1
pf.Offset(1, 0).Resize(x).SpecialCells(12).Delete Shift:=xlUp
   .AutoFilterMode = False
End With
End Sub

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 12 Mai 2010

• #10

Re : question macro

Re 🙂,

carcharodon-carcharias à dit:

exécution du code sans erreurs 😕 je n'arrive pas à comprendre , pas logique 😕

Cliquez pour agrandir...

Moi non plus, je suis comme Jean-Marie, je ne comprends pas. Mais attention, tu t'es fait flashé au radar 😛...
Bonne soirée à tous 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Mai 2010

• #11

Re : question macro

Re


I'm not mad !


EDITION
PS: désolé j'avais pas vu ta copie d'écran, JNP 😱

 

Pièces jointes

• error.jpg

  9.7 KB · Affichages: 93
• error.jpg

  9.7 KB · Affichages: 92

Dernière édition: 12 Mai 2010

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 13 Mai 2010

• #12

Re : question macro

Bonjour,

Merci, à tous.
En fait, pour résoudre mon problème.
J'ai remplacé la formule en colonne g et j'ai adapté la macro PIERREJEAN du 01/05/2010.
Et, cela fonctionne.
A+

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 13 Mai 2010

• #13

Re : question macro

Re 🙂

BRUNO62 à dit:

j'ai adapté la macro PIERREJEAN du 01/05/2010.

Cliquez pour agrandir...

une petite liaison directe sur le fil nous éclairerait 😉.
Bonne fin de journée 😎

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 13 Mai 2010

• #14

Re : question macro

Re 🙂,

carcharodon-carcharias à dit:

j'arrête de m'arracher les cheveux à chercher pourquoi ce code fonctionne chez moi , pas envie d'être chauve 😀

Cliquez pour agrandir...

Trop tard pour moi, le "chauvinisme" est bien avancé 😛...
A + 😎

 

Vote positif 0 Vote négatif