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
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