Remplacement de caractères dans une variable
Résolu/Fermé
900CBR
-
27 déc. 2007 à 17:17
900CBR Messages postés 6 Date d'inscription jeudi 27 décembre 2007 Statut Membre Dernière intervention 26 juin 2008 - 4 janv. 2008 à 09:08
900CBR Messages postés 6 Date d'inscription jeudi 27 décembre 2007 Statut Membre Dernière intervention 26 juin 2008 - 4 janv. 2008 à 09:08
A voir également:
- Remplacement de caractères dans une variable
- Caractères ascii - Guide
- Caractères spéciaux symboles clavier - Guide
- Uptobox remplacement - Guide
- Caractères spéciaux - Guide
- Clavier mac caractères spéciaux - Guide
9 réponses
PS. J'ai oublié de préciser que le but est de retransformer cette formules modifié afin de pouvoir effectuer le calcul et que le lien avec la cellule dont on rentre les coordonnées se fasse bien.
Sub Test_modif_formule()
Dim formule As String
Dim formuleDef As String
'modification de la formule:
'Définir une variable string = à la formule précédente
formule = Range("F5").Value
'Faire une recherche de "KV" dans cette variable et le remplacer
formule = Replace(formule, "KV", "B10")
'Ajout des caractères=()
Range("G10").Formula ="=(" & formule & ")"
End Sub
Mon souci, le lien ne se fait pas avec la cellule "B10".
D'avance merci...
Sub Test_modif_formule()
Dim formule As String
Dim formuleDef As String
'modification de la formule:
'Définir une variable string = à la formule précédente
formule = Range("F5").Value
'Faire une recherche de "KV" dans cette variable et le remplacer
formule = Replace(formule, "KV", "B10")
'Ajout des caractères=()
Range("G10").Formula ="=(" & formule & ")"
End Sub
Mon souci, le lien ne se fait pas avec la cellule "B10".
D'avance merci...
dim i as integer, var as string, nvar as string
i=len(var) ca c est pour aller a donf
nvar = Replace(var, "KV", "VQ", 1, i, vbBinaryCompare) tu remplaces KV par VQ
et tu as ta nlle variable
i=len(var) ca c est pour aller a donf
nvar = Replace(var, "KV", "VQ", 1, i, vbBinaryCompare) tu remplaces KV par VQ
et tu as ta nlle variable
900CBR
Messages postés
6
Date d'inscription
jeudi 27 décembre 2007
Statut
Membre
Dernière intervention
26 juin 2008
27 déc. 2007 à 17:59
27 déc. 2007 à 17:59
Merci ego de ta rapidité,
Je m'y prends sûrement mal, mais je n'arrive pas à faire marcher ta solution.
Peux tu encore m'éclairer ?
Sub Test_modif_formule()
Dim i As Integer
Dim var As String
Dim nvar As String
i = Len(var)
'Définir var = à la formule à modifier
var = Range("F5").Value
'Faire une recherche de "KV" dans cette variable et le remplacer (cellule"B10")
nvar = Replace(var, "KV", "B10", 1, i, vbBinaryCompare)
'Coller la formule modifiée dans la cellule
Range("G10").Formula = " =( " & nvar & " ) "
End Sub
Je m'y prends sûrement mal, mais je n'arrive pas à faire marcher ta solution.
Peux tu encore m'éclairer ?
Sub Test_modif_formule()
Dim i As Integer
Dim var As String
Dim nvar As String
i = Len(var)
'Définir var = à la formule à modifier
var = Range("F5").Value
'Faire une recherche de "KV" dans cette variable et le remplacer (cellule"B10")
nvar = Replace(var, "KV", "B10", 1, i, vbBinaryCompare)
'Coller la formule modifiée dans la cellule
Range("G10").Formula = " =( " & nvar & " ) "
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
900CBR
Messages postés
6
Date d'inscription
jeudi 27 décembre 2007
Statut
Membre
Dernière intervention
26 juin 2008
28 déc. 2007 à 10:37
28 déc. 2007 à 10:37
Mon souci est de créer un lien excel entre la cellule "B10" et la formule qui est dans la cellule "G10" de manière à ce que la formule soit "autonome" et se réactualise toute seule sans macro.
c est quelle cellule qui contient les valeurs? c est laquelle qui contient la formule ? et ou tu veux afficher le resultat?
Sub MaMacro()
Dim i As Integer, var As String, nvar As String, valeurG10 As Variant
i = Len(Range("B10")) 'ca c est pour aller a donf si la cellule B10 contient ta formule avec KV
valeurG10 = Range("G10").Value 'ici tu definis la valeur de G10
nvar = Replace(var, "KV", val, 1, i, vbBinaryCompare) 'tu remplaces KV par la valeur de G10 et tu as ta formule avec valeurG10 a la place de KV
ActiveCell.Value = nvar 'tu affiches le resultat sur la cellule que tu as surligné
'a la place de activecell, tu peux mettre range("A1") ou ce que tu veux.le changement de la valeur se ferait sur le changement de valeur de la cellule G10
'voila tu as de quoi avancer
End Sub
Dim i As Integer, var As String, nvar As String, valeurG10 As Variant
i = Len(Range("B10")) 'ca c est pour aller a donf si la cellule B10 contient ta formule avec KV
valeurG10 = Range("G10").Value 'ici tu definis la valeur de G10
nvar = Replace(var, "KV", val, 1, i, vbBinaryCompare) 'tu remplaces KV par la valeur de G10 et tu as ta formule avec valeurG10 a la place de KV
ActiveCell.Value = nvar 'tu affiches le resultat sur la cellule que tu as surligné
'a la place de activecell, tu peux mettre range("A1") ou ce que tu veux.le changement de la valeur se ferait sur le changement de valeur de la cellule G10
'voila tu as de quoi avancer
End Sub
Bonjour,
Vous étiez proche du résultat mais il faut utiliser FormulaLocal comme propriété
********
Sub Test_modif_formule()
Dim formule As String
Dim formuleDef As Variant
'Définir formule = à la formule à modifier récupérée en "F5"
formule = Range("F5").Value
'Faire une recherche de "KV" dans cette variable et le remplacer (cellule"B10")
formuleDef = Replace(Replace(formule, "KV", "B10"), " ", "")
'Coller la formule modifiée dans la cellule D15
Range("D15").FormulaLocal = "=" & formuleDef
End Sub
********
Cordialement
Vous étiez proche du résultat mais il faut utiliser FormulaLocal comme propriété
********
Sub Test_modif_formule()
Dim formule As String
Dim formuleDef As Variant
'Définir formule = à la formule à modifier récupérée en "F5"
formule = Range("F5").Value
'Faire une recherche de "KV" dans cette variable et le remplacer (cellule"B10")
formuleDef = Replace(Replace(formule, "KV", "B10"), " ", "")
'Coller la formule modifiée dans la cellule D15
Range("D15").FormulaLocal = "=" & formuleDef
End Sub
********
Cordialement
900CBR
Messages postés
6
Date d'inscription
jeudi 27 décembre 2007
Statut
Membre
Dernière intervention
26 juin 2008
4 janv. 2008 à 09:08
4 janv. 2008 à 09:08
Merci beaucoup cathy,
Exactement ce que j'espérai faire...
Récap: On récupère une formule en tant que variable, on remplace des caractères de cette formule par une cellule Excel liée.
Solution par Cathy, le jeudi 3 janvier 2008 à 17:03:12
Merci à tous
Exactement ce que j'espérai faire...
Récap: On récupère une formule en tant que variable, on remplace des caractères de cette formule par une cellule Excel liée.
Solution par Cathy, le jeudi 3 janvier 2008 à 17:03:12
Merci à tous
