Prblème écriture macro

[Jean-Pierre]

Comment puis-je réecrire mes macros:

Le principe :
La macro 1 doit écrire dans la colonne 1 un code de 3 digits puis filtrer cette colonne par rapport à cette donnée. Elle est enclenchée à partir d’un bouton d’action.
La macro 2 doit écrire dans la colonne 2 un code de 3 digits puis filtrer cette colonne par rapport à cette donnée. Elle est enclenchée à partir d’un bouton d’action.

Le problème :
La macro 2 écrit dans la colonne 1 de temps en temps…


Type de Macro numéro 1

Sub PPP()
'
' PPP Macro
' Macro enregistrée le 28/01/2004 par Jean-Pierre
Sheets("numérotation documents").Select
Columns("A:A").Select
Range("A3").Activate
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.FormulaR1C1 = "PPP"
Range("F6").Activate
Sheets("numérotation documents").Select
Selection.AutoFilter Field:=1, Criteria1:="PPP"
Range("B3").Select
Sheets("n° service").Select
Range("B1:F2").Select
End Sub

Type de Macro numéro 2

Sub CIP()
'
' CIP Macro
' Macro enregistrée le 28/01/2004 par Jean-Pierre
Sheets("numérotation documents").Select
Columns("B:B").Select
Range("B3").Activate
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.FormulaR1C1 = "CIP"
Range("F6").Activate
Sheets("numérotation documents").Select
Selection.AutoFilter Field:=2, Criteria1:=ActiveCell.Value
Range("C3").Select

End Sub

 

[Pascal76]

Jean-Pierre 2 liens instructifs

Lien supprimé

Lien 2

Pascal