Ecrire le deroulement d'une macro

[olivier.corbin]

Bonjour à tous,

Pouvez vous me dire comment écrire le déroulement de ma macro.

Je voudrais qu'elle recherche les mentions "confimé" en colonne D et G et les remplace par "Avis Passage".

Je voudrais créer autant d'onglet que de mois. Donc je voudrais que cette macro fasse la même recherche sur les 12 onglets (janvier à décembre) Mais je souhaite créer une seule macro pour les 12 mois.

Merci mille fois de votre aide

Olivier

 

[Ubot303]

Re : Ecrire le deroulement d'une macro

Bonjour à toi,

La fonction Edition -> Remplacer en mettant "Confirmé" à la place d' "Avis de Passage" peut t'aider je pense.

 

[Robert]

Re : Ecrire le deroulement d'une macro

Bonjour Olivier, Ubot, bonjour le forum,

je te propose la macro ci-dessous :

Sub Macro1()
Dim ong As Worksheet 'déclare la variable ong (ONGlet)
Dim pl As Range 'décalre la variable pl (PLage)
 
For Each ong In Sheets 'boucle sur tous les onglets du classeur
    ong.Activate 'active l'onglet
    Set pl = Application.Union(Columns(4), Columns(7)) 'définit la variable pl
    'remplace "confirmé" pas "Avis Passage" dans la plage pl
    pl.Replace What:="confirmé", Replacement:="Avis Passage", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next ong 'prochain onglet du classseur
End Sub