Récuperer formule cellule avec inpubox

BIROULIG

XLDnaute Nouveau
Bonjour,

Je me tourne à nouveau vers vous afin de résoudre un problème:

J'ai une feuille où j'ai plusieurs cellules que j'actualise tout les ans et j'aimerai automatisé un peu le procédé:

1 - je sélectionne la cellule qui sera remplacée en utilisant une inputbox

2 - je sélectionne la cellule qui remplacera la cellule en utilisant une inputbox
Mais je veux récupérer la formule exacte contenu dans la cellule.

3 - je renseigne le pas de la boucle utilisant une inputbox (il peut varier suivant les cellules que je modifie)

4 - je fais le remplacement

5- je boucle le remplacement sur 52 semaines.

Mais je bloque pour récupérer la formule le reste fonctionne si je récupère la valeur mais ce n'est pas ce que je veux.

Ps un petit commentaire pour comprendre serait le top
Merci d'avance

le code de ma macro qui ne fonctionne pas
-----------------------------------------
Sub ChercheINPUTbox()

Dim EFFACE As Range
Dim REMPLACE As Range
Dim PAs As Integer
Dim NBRESEMAINE As Integer



'Boite de dialogue Sélection de la plage
Set EFFACE = Application.InputBox(Prompt:="SELECTIONNER LA CELLULE A MODIFIER", Title:="REMPLACER",Type:=8)
'Type 0 Formule 1 Nbre 2 String 4 Bool 8 RéfCell

Set REMPLACE = Application.InputBox(Prompt:="SELECTIONNER LA CELLULE A COPIER", Title:="COPIE", Type:=0)

PAs = InputBox("Pas de remplacement")
'Recherche et Remplacement du Texte des Cellules contenant le Texte à Effacer
For NBRESEMAINE = 0 To 51
EFFACE.Offset(NBRESEMAINE * PAs, 0) = REMPLACE
Next

End Sub
 

pierrejean

XLDnaute Barbatruc
Re : Récuperer formule cellule avec inpubox

Bonjour BIROULIG

A tester:

Code:
Sub ChercheINPUTbox()


Dim EFFACE As Range
Dim REMPLACE As Range
Dim PAs As Integer
Dim NBRESEMAINE As Integer






'Boite de dialogue Sélection de la plage
Set EFFACE = Application.InputBox(Prompt:="SELECTIONNER LA CELLULE A MODIFIER", Title:="REMPLACER", Type:=8)
'Type 0 Formule 1 Nbre 2 String 4 Bool 8 RéfCell


Set REMPLACE = Application.InputBox(Prompt:="SELECTIONNER LA CELLULE A COPIER", Title:="COPIE", Type:=8)
form = REMPLACE.Formula
PAs = InputBox("Pas de remplacement")
'Recherche et Remplacement du Texte des Cellules contenant le Texte à Effacer
For NBRESEMAINE = 0 To 51
EFFACE.Offset(NBRESEMAINE * PAs, 0).Formula = form
Next


End Sub
 

Discussions similaires

Statistiques des forums

Discussions
290 779
Messages
1 910 446
Membres
176 660
dernier inscrit
Benbvf
Haut Bas