question macro

[BRUNO62]

Bonsoir,

J'ai un problème.
Dans le fichier joint, apparait une macro.
Dans cet exemple, cela fonctionne.
Par contre, dans mon fichier type cela ne fonctionne pas. "ça moulinne".
Particularité 5000 LIGNES.
Je pense que c'est lié à la formule.
Parce que quand j'enlève cette formule.
Cela fonctionne correctement.
Avez vous une explication ?
Merci, d'avance
A+

 

[JNP]

Re : question macro

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

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 😎

 

[BRUNO62]

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+

 

[Staple1600]

Re : question macro

Bonsoir

????

M'étonnerait que cela marche 😛

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

 

[JNP]

Re : question macro

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

Sheets("Feuil2").EnableCalculation = False

à mettre au début de la macro et

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

à la fin.
Tiens nous au courant 😎

 

[JNP]

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 😎

 

[JNP]

Re : question macro

Re 🙂,

pourtant si 😕😕😕😕

Pas chez moi 🙄

Bonne soirée 😎

 

[JNP]

Re : question macro

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

 

[Staple1600]

Re : question macro

Re



Tu ne peux pas inclure une sub dans une sub 😱

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 )

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

 

[JNP]

Re : question macro

Re 🙂,

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

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 😎

 

[Staple1600]

Re : question macro

Re


I'm not mad !


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

 

[BRUNO62]

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+

 

[JNP]

Re : question macro

Re 🙂

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

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

 

[JNP]

Re : question macro

Re 🙂,

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

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