Macro Excel Rechercher Remplacer avec variables

Imtryingtobelieve -  
via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai une feuille Excel récapitulative avec des fonction somme.si.ens qui vont chercher des résultats dans différentes feuilles nommée par mois.

Je cherche à faire une macro qui permet de sélectionner le mois que vous voulez récapituler et donc je suis partie sur un rechercher remplacer et je veux qu'une macro remplace les mois dans les formules

J'ai déjà fait cette macro, mais elle ne cherche pas dans la formule

Sub MacroREMPLACERMOIS()
'
' MacroREMPLACERMOIS Macro
'

'
Range("B12:P19").Select
Dim Mot As Variant
Dim Replace As Variant
Mot = InputBox("Quel mot recherchez-vous ?", Title:="Recherche un mot")
Replace = InputBox("Par quel mot voulez vous remplacer ?", Title:="Remplacer le mot trouver")
Range("A9").Select

End Sub

qui peut m'aider ??

1 réponse

  1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    Pouquoi sortir l'artillerie lourde avec une macro alors qu'il est possible :

    1) dans une cellule une liste déroulante avec les mois pour choisir le mois

    2) Nommer cette cellule par exemple lemois

    3) Dans toutes les formules remplacer le mois indiqué par la variable le mois

    Cdlmnt
    Via

    "L'imagination est plus importante que le savoir." A. Einstein
    0
    1. Imtryingtobelieve
       
      Bonjour,

      Merci pour votre réponse. Comment mettez-vous une variable lemois dans une formule ?

      Par exemple, dans cette formule :

      =SOMME.SI.ENS('FACT FEVRIER 2015'!$I$6:$I$1500;'FACT FEVRIER 2015'!$E$6:$E$1500;A12)

      Merci
      Bonne journée.
      0
      1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759 > Imtryingtobelieve
         
        Bonjour,

        Il faut reconstituer une adresse valide avec INDIRECT
        SOMME.SI.ENS(INDIRECT(" 'FACT "& lemois & " 2015'!$I$6:$I$1500");INDIRECT(" 'FACT "& lemois & " 2015'!$I$6:$I$1500");A12)

        Par contre il n'y a pas besoin ici d'un SOMME.SI.ENS puisqu'il n'y a qu'un seul critère, une formule SOMME.SI suffirait

        Cdlmnt
        Via
        0
    2. Imtryingtobelieve
       
      Bonjour,

      Malheureusement cela ne fonctionne pas. j'ai copié votre formule et ça note #REF!.

      Une idée ??

      Merci
      Bonne journée.
      0
      1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759 > Imtryingtobelieve
         
        Bonjour

        Si la référence n'est pas valide c'est peut être que l'écriture n'est pas correcte, un espace en trop ou manquant par exemple
        Postes un exemple de ton fichier sur cjoint.com et reviens ici indiquer le lien fourni, je regarderai ce soir

        Ccdlmnt
        Via
        0