VBA - Rechercher =somme et remplacer par =sous.total

Bonjour,

Après plusieurs jours d'essais et de recherches, j'abdique et demande de l'aide!

Je cherche à créer une macro qui me permettra de chercher et remplacer toutes mes "=somme" par "=sous.total(109;". Evidemment, cette opération n'est pas à usage unique et est destinée à d'autres utilisateurs qui pourront effectuer l'opération en un clic via leur personal.xlsb

Je vous joint un exemple en annexe, les sommes se trouvent en colonnes C et E.

Merci d'avance pour votre aide et retour,

David

Bonjour inthecoconice et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum
- Quelques fonctionnalités du forum à connaître
qui vous aideront dans vos demandes et réponses sur ce forum.

Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)

Concernant votre demande, voici une possibilité de code à utiliser

Sub SommeParSousTotal()
  Dim Rng As Range, CelF As Range
  Dim sForm As String
  With ActiveSheet
    Set Rng = .UsedRange
    For Each CelF In Rng
      If InStr(1, CelF.FormulaLocal, "SOMME(") Then
        sForm = CelF.FormulaLocal
        sForm = Replace(sForm, "SOMME(", "SOUS.TOTAL(9;")
        CelF.FormulaLocal = sForm
      End If
    Next CelF
  End With
End Sub

Merci pour votre participation

Cordialement

Bonjour BrunoM45,

Merci beaucoup pour le retour, le code fonctionne parfaitement. Je pensais, au vu de mes recherches précédentes, que cela serait plus difficile à produire mais il n'en est visiblement rien. J'ai encore à apprendre...