Macro qui ne fonctionne plus ?

[mcj1997]

Bonjour,

J'ai intégré une macro (ci-dessous) dans un programme me permettant de supprimer les lignes comportant un "O" dans la colonne E.

Dans module 1 j'ai cela :

Sub Macro1()
Dim Lig As Long
Application.ScreenUpdating = False

' Boucle sur les lignes
For Lig = 4 To 3000 ' mettre ta dernière colonne idem pour le tri
If (Range("E" & Lig).Value = "O") Then

' Effacer le contenu de la ligne
Rows(Lig & ":" & Lig).Delete
End If
Next Lig

Application.ScreenUpdating = True

End Sub


Dans

 

[mcj1997]

Re : Macro qui ne fonctionne plus ?

Bonjour,

J'ai intégré une macro (ci-dessous) dans un programme me permettant de supprimer les lignes comportant un "O" dans la colonne E.

Dans module 1 j'ai cela :

Sub Macro1()
Dim Lig As Long
Application.ScreenUpdating = False

' Boucle sur les lignes
For Lig = 4 To 3000 ' mettre ta dernière colonne idem pour le tri
If (Range("E" & Lig).Value = "O") Then

' Effacer le contenu de la ligne
Rows(Lig & ":" & Lig).Delete
End If
Next Lig

Application.ScreenUpdating = True

End Sub


Dans thisworkbook j'ai cela car j'ai créé un bouton perso :

Private Sub Workbook_Open()

Dim Bouton As CommandBarButton

Set CmdBar = Application.CommandBars _
.Add(Name:="MaBarrePerso", Position:=msoBarTop, _
Temporary:=True)

Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 6852
.OnAction = "Macro1" ' TaMacro représente ton Sub Macro_1() par exemple
.TooltipText = "JOINT"
.Caption = "EFFACEMENT"
.Style = msoButtonIconAndCaption
End With

CmdBar.Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("MaBarrePerso").Delete
End Sub
cela a marché mais ne fonctionne plus ! merci d'avance,

 

[tototiti2008]

Re : Macro qui ne fonctionne plus ?

Bonjour mcj1997,

pour supprimer des lignes il est souvent conseillé de partir du bas, ça évite d'oublier des lignes :

For Lig = 3000 To 4 Step -1

 

[Gael]

Re : Macro qui ne fonctionne plus ?

Bonjour MJC1997, Tototiti,

En accord avec mon ami Tototiti, mais un peu moins rapide, essaye le code suivant:

Sub Macro1()
Dim Lig As Long, Derlig As Long
Application.ScreenUpdating = False
Derlig = Range("E3000").End(xlUp).Row
' Boucle sur les lignes
For Lig = Derlig To 4 Step -1 ' mettre ta dernière colonne idem pour le tri
    If (Range("E" & Lig).Value = "O") Then Rows(Lig).Delete
Next Lig
Application.ScreenUpdating = True
End Sub

Derlig sert à récupérer la dernière ligne utilisée, ce qui évite de faire une boucle sur x milliers de lignes quand on n'en a que 200.

Rows(lig).delete est aussi efficace.

@+

Gael

 

[Gael]

Re : Macro qui ne fonctionne plus ?

Re,

Pour la deuxième question ajoute:

Dim Bouton As CommandBarButton[COLOR=red], cmdbar As Object[/COLOR]

@+

Gael

 

[tototiti2008]

Re : Macro qui ne fonctionne plus ?

Re,
Bonjour Gael,

oui ou

Dim Bouton As CommandBarButton, cmdbar as CommandBar

 

[mcj1997]

Re : Macro qui ne fonctionne plus ?

Re,

Pour la deuxième question ajoute:

Dim Bouton As CommandBarButton[COLOR=red], cmdbar As Object[/COLOR]

@+

Gael

Désolé, SOS rien ne marche,

merci d'avance

 

[mcj1997]

Re : Macro qui ne fonctionne plus ?

Désolé, SOS rien ne marche,

merci d'avance

OK à priori cela fonctionne, toutefois pour la réponse à la 2ème question ou faut-il mettre la ligne ?

Merci

 

[Gael]

Re : Macro qui ne fonctionne plus ?

Re,

La ligne existe déjà, tu ajoutes simplement en bout de ligne:

..., Dim Cmdbar as commandbar

C'est la ligne 2 de la macro Workbook_open()

@+

Gael