High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Rechercher et remplacer avec variable

Dernière réponse le 25 fév 2008 à 17:52:59 guigouille, le 31 jan 2008 à 17:03:46 
 Signaler ce message aux modérateurs

Bonjour,
J essaye de réaliser une macro qui recherche dans des cellules un path et le remplace par un autre....

voici mon code

Sub macro()

Dim sName As String
Dim sAncienNom As String

sAncienNom = Range("Ancient").Value

Select Case Range("utilisateur").Value
Case "Guillaume"
sName = "'D:\CC\GuillaumeTests\Test\code"
Case "Jean-Philipe"
sName = "'D:\CC\Jean-PhilipeTests\Test\code"
End Select

Range("E9:W30").Select
ActiveCell.Replace What:="& sAncienNom &", Replacement:= _
"& sName &", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Find(What:="& sAncienNom &", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

End Sub


seulement la macro ne fonctionne pas et je n'ai aucune idée pkoi!!
J'ai tout essayé alors si quelqu un a une idée...
Merci d'avance

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « rechercher et remplacer avec variable » dans :
Le remplacement de variables en shell Bash Voir=Le remplacement de variables= Introduction Il peut s'avérer utile de s'assurer qu'une variable est bien définie avant de procéder à son remplacement, ou tout simplement de s'assurer que celle-ci n'est pas vide, et dans ce cas de l'initialiser avec...
Télécharger Smultron VoirSmultron est un éditeur de texte évolué. Il propose différentes fonctionnalités : numérotaion des lignes coloration syntaxique en plusieurs langages exécution de commandes prévisualisation de la page en HTML rechercher/remplacer sur...
Télécharger Renamer4Mac VoirRenamer4Mac permet de renommer facilement un grand nombre de fichiers. Par un simple glisser/déposer des fichiers sur son icône ou dans sa fenêtre, on peut agir de différentes manières. par Rechercher/Remplacer (expression régulière et...
Télécharger TextWrangler VoirTextWrangler est un éditeur de texte évolué. Il propose de nombreuses fonctionnalités : recherche/remplacement simple ou sur plusieurs fichiers utilisation d'expressions rationnelles (regexp) comparaisons de fichiers presse-papiers...
Manipulation de données - Recherche et remplacement VoirRecherche et remplacement Les algorithmes de remplacement permettent de remplacer tous les éléments d’un conteneur vérifiant une propriété particulière par un autre élément dont la valeur doit être fournie en argument. Les éléments devant être...
Javascript - Les variables VoirLe concept de variable Une variable est un objet repéré par son nom, pouvant contenir des données, qui pourront être modifiées lors de l'exécution du programme. En Javascript, les noms de variables peuvent être aussi long que l'on désire,...
Variables d'environnement VoirVariables d'environnement Une variable d'environnement est une valeur dynamique, chargée en mémoire, pouvant être utilisée par plusieurs processus fonctionnant simultanément. Sur la plupart des systèmes d'exploitation, les emplacement de...
Posez votre question Répondre

1

 LACOSTE JCl, le 25 fév 2008 à 17:52:59

Pour ton information, utilise ce VB qui fonctionne super bien :

Function RemplacerChaine(Chaine As String, Remplace As String, Nouveau As String)

On Error Resume Next

Dim X As Integer, Y As Integer
Dim Resultat As String
Dim ChainePrec

Y = Len(Remplace)
Resultat = ""

If Not IsNull(Resultat) Then
While Len(Chaine) > 0
X = InStr(Chaine, Remplace)
If X > 0 Then
ChainePrec = Mid(Chaine, 1, X - 1)
Chaine = Mid(Chaine, X + Y)
Resultat = Resultat & ChainePrec & Nouveau
Else
Resultat = Resultat & Chaine
Chaine = ""
End If
Wend
RemplacerChaine = Resultat
End If

End Function

   
Répondre à LACOSTE JCl
Posez votre question Répondre
Ils ont besoin de votre aide