OVH Cloud OVH Cloud

Fonction remplacer !!!

2 réponses
Avatar
af76
Bonsoir,

J'ai une fonction remplacer que je veux mettre dans une macro .. et qui ne
marche pas :

Dim Ref As String
Ref = Sheets("Base").Range("H1")
Sheets("MasqueComptabilité").Range("G2:H402").Select
Selection.Replace What:="ABC", Replacement:="ref", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,


pour résumer :
* une feuille "base" qui a sur la cellule H1 la valeur 01, 02, 03 etc... qui
correspond au mois de l'année (au format texte)
* 12 feuilles appelées de 01 à 12 qui sont des saisies de caisse jour par
jour.
* une feuille "MasqueCompabilité" qui comprend la structure complète de
l'écriture comptable. Et dans cette zone G2:H402, la formule étant ='01'!une
zone de la feuille 01
Pour le moment, il y a ABC. Mais le but étant de remplacer cette valeur ABC
par le contenu de la cellule H1 de la feuille "base".

La complexité étant de remplacer par le contenu d'une cellule
Alors, je cafouille.

Et rien n'y fait.
Pas un semblant de cacahuètes à la fin.
Tout reste pareil depuis le début.
Je crois que j'ai besoin d'aide !!!
Quelqu'un peut-il avoir un peu de temps pour ce pauvre type !!!!

Merci d'avance.

2 réponses

Avatar
isabelle
bonjour af76,

il ne faut pas mettre la variable entre guillemet
Selection.Replace What:="ABC", Replacement:=ref,

isabelle


Bonsoir,

J'ai une fonction remplacer que je veux mettre dans une macro .. et qui ne
marche pas :

Dim Ref As String
Ref = Sheets("Base").Range("H1")
Sheets("MasqueComptabilité").Range("G2:H402").Select
Selection.Replace What:="ABC", Replacement:="ref", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse,


pour résumer :
* une feuille "base" qui a sur la cellule H1 la valeur 01, 02, 03 etc... qui
correspond au mois de l'année (au format texte)
* 12 feuilles appelées de 01 à 12 qui sont des saisies de caisse jour par
jour.
* une feuille "MasqueCompabilité" qui comprend la structure complète de
l'écriture comptable. Et dans cette zone G2:H402, la formule étant ='01'!une
zone de la feuille 01
Pour le moment, il y a ABC. Mais le but étant de remplacer cette valeur ABC
par le contenu de la cellule H1 de la feuille "base".

La complexité étant de remplacer par le contenu d'une cellule
Alors, je cafouille.

Et rien n'y fait.
Pas un semblant de cacahuètes à la fin.
Tout reste pareil depuis le début.
Je crois que j'ai besoin d'aide !!!
Quelqu'un peut-il avoir un peu de temps pour ce pauvre type !!!!

Merci d'avance.




Avatar
af
merci ca fonctionne bien maintenant.


C'est génial !






"isabelle" a écrit dans le message de news:

bonjour af76,

il ne faut pas mettre la variable entre guillemet
Selection.Replace What:="ABC", Replacement:=ref,

isabelle


Bonsoir,

J'ai une fonction remplacer que je veux mettre dans une macro .. et qui
ne
marche pas :

Dim Ref As String
Ref = Sheets("Base").Range("H1")
Sheets("MasqueComptabilité").Range("G2:H402").Select
Selection.Replace What:="ABC", Replacement:="ref", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse,


pour résumer :
* une feuille "base" qui a sur la cellule H1 la valeur 01, 02, 03 etc...
qui
correspond au mois de l'année (au format texte)
* 12 feuilles appelées de 01 à 12 qui sont des saisies de caisse jour par
jour.
* une feuille "MasqueCompabilité" qui comprend la structure complète de
l'écriture comptable. Et dans cette zone G2:H402, la formule étant
='01'!une
zone de la feuille 01
Pour le moment, il y a ABC. Mais le but étant de remplacer cette valeur
ABC
par le contenu de la cellule H1 de la feuille "base".

La complexité étant de remplacer par le contenu d'une cellule
Alors, je cafouille.

Et rien n'y fait.
Pas un semblant de cacahuètes à la fin.
Tout reste pareil depuis le début.
Je crois que j'ai besoin d'aide !!!
Quelqu'un peut-il avoir un peu de temps pour ce pauvre type !!!!

Merci d'avance.