Macro - Remplacement incrémental des lettres

[Sandy]

Bonjour,

J'aimerais créer une macro qui selection des colonnes spécifiques de mon fichier excel et remplace une lettre par la lettre suivante de l'alphabet.

Exemple:
dans ma formule, j'ai actuallement : somme(C1:C10)
j'aimerais que ca remplace par: somme (D1: D10)
ensuite, de D1: D10 par E1:E10
et ainsi de suite à chaque fois que je fais fonctionner la macro.

Voici ce que j'ai actuellement:
Range("C:G,I:M,O:S").Select
Range("O3").Activate
Selection.Replace What:="C", Replacement:="D", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 3

Mais, j'aimerais que la portion en rouge soit automatisé pour changer de lettre à chaque fois que j'active la macro...
Est-ce possible?

Merci d'avance
Sandy

 

[wilfried_42]

Re : Macro - Remplacement incrémental des lettres

Bonjour sandy et bienvenue

Voici une fonction personalisée :

Function rempl(a As String) As String
    b = Mid(a, InStr(a, "(") + 1, InStr(a, ")") - InStr(a, "(") - 1)
    c = Split(b, ":")(0)
    d = Split(b, ":")(1)
    c = Range(c).Offset(0, 1).Address
    d = Range(d).Offset(0, 1).Address
    rempl = Left(a, InStr(a, "(")) & c & ":" & d & ")"
End Function

à la place de :

Range("O3").Activate
Selection.Replace What:="C", Replacement:="D", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Tu mets

Range("O3").formulalocal = rempl(Range("O3").formulalocal)

Si ce n'est pas complet, il me faudrait la formule de base qu'il y a dans O3, ou celle que tu desires modifier