Macro Excel Rechercher Remplacer avec variables

Fermé
Imtryingtobelieve - 4 juin 2015 à 17:02
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 - 22 juin 2015 à 12:14
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 ??
A voir également:

1 réponse

via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
Modifié par via55 le 4/06/2015 à 17:09
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
Imtryingtobelieve
5 juin 2015 à 16:09
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
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703 > Imtryingtobelieve
Modifié par via55 le 5/06/2015 à 17:00
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
Imtryingtobelieve
22 juin 2015 à 11:43
Bonjour,

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

Une idée ??

Merci
Bonne journée.
0
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703 > Imtryingtobelieve
22 juin 2015 à 12:14
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