Discussion :

[bobafric]

Bonjour à tous
Je voudrais dans une colonne supprimer une partie d'un texte en gardant l'autre.
Exemple: dans l'enregistrement 1 C:\PHOTO\VASE1
2 C:\PHOTO\VASE2
3 C:\PHOTO\VASE3
je veux supprimer C:\photo\ pour ne laisser que
1 VASE1
2 VASE2
3 VASE3
ça ne marche pas avec la fonction rechercher et remplacer de Excel

Merci d'avance
BOB

[Tonioyo]

Bonjour,

Pour obtenir ce genre de chose il faut faire des opérations sur chaines de caractères (string). Pour un chaine telle que celle-ci "C:\PHOTO\VASE1"
ce code devrait aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Function RecupereNom(Chaine As String)
    Dim iterator As Integer
 
    iterator = InStr(Chaine, "\")
    While InStr(iterator + 1, Chaine, "\") > 0
      iterator = InStr(iterator + 1, Chaine, "\")
    Wend
    RecupereNom = Right(Chaine, Len(Chaine) - iterator)
End Function

Elle s'utilise comme ceci dans la fenetre d'éxécution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

?RecupereNom("C:\PHOTO\VASE1")

elle retourne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VASE1

et elle s'utilise comme ceci dans du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim resultat as String
Resultat = RecupereNom("C:\PHOTO\VASE1")

et Resultat vaut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VASE1

[nico84]

J'ajoute que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

update matable set monNom=recuperenom(monNom)

marche aussi

[bobafric]

Bonjour les amis
Je vous remercie pour vos réponses, mais je ne sais pas trop qu'en faireniet où et comment les entrer dans ma base.
Vous avez remarqué que je ne suis pas expert en la matière.
Merci pour votre gentillesse
A + Bob

[Tonioyo]

Salut bob,

et bien le code que j'ai posté plus haut il faut l'écrire dans un module, pour cela il faut ouvrir le Visual Basic Editor (VBE). Une fois ouvert en haut sur la droite tu peux voir un projet c'est celui de ton fichier qui est ouvert (il y en a un par fichier). tu fait un clic droit dessus puis ajouter module (de mémoire ca doit être inserer-> module).

Tu copie et tu colle le code dans ce nouveau module que tu pourra executer a partir de là.

Pour executer ce code après tu n'a que l'embaras du choix, mettre un bouton, l'ajouter a du code existant pour traiter des chaines de caractères, ou le mettre dans une requete comme nous l'a dis notre amis nico.

Expliques-nous un peu plus ton problème si tu souhaites que l'on te guide vers une solution appropriée.

@++

[User]

Comme te l'indiquent Tonioyo et Nico,

Après avoir mis le code de la fonction RecupereNom dans un module tu
tu peux créer la requête avec le sql qui t'as été donné:

Dans requêtes, faire:
nouveau -> mode création -> Affichage: mode SQL

Puis copier le sql:

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

update matable set monNom=recuperenom(monNom)

puis enregistrer, ensuite fermer
et enfin double-cliquer sur la requête crée pour l'exécuter.

Ou tu peux exécuter la requête proposée avec un RunSQL, sur l'évènement clic d'un bouton de commande (ici Commande1):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Commande1_Click()
DoCmd.RunSQL ("update matable set monNom=recuperenom(monNom)")
End Sub

(matable et monnom sont bien sûr à adapter à ton cas )

Enfin, pour éclairer la problématique, je crois que cette discussion est à rapprocher de ce fil

Bonne continuation...

[loufab]

Bonjour,

En seule ligne sans fonction vba personnelle !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

replace(Monchamp,mid(Monchamp,1,instrrev(Monchamp,"\")),"")

Toujours à mettre dans une requète mais ne pas oublier de remplacer les , par des ;

Cordialement,

[bobafric]

Merci loufab, tonioyo et user
Je vois que j'ai fait bougé du monde, ce forum est extraordinaire.
Comme l'a remarqué user la discution est la suite du fil indiqué, mais le problème est de supprimer une partie d'un enregistrement pour ne pas le faire manuellemnet.
Mon exemple en réalité c'est que dans une colonne de 15000 enregistrements j'ai ceci:
c:\physio\photo2\client1 jusqu'au 15000 ème

et je veux supprimer C:\physio\photo2\
pour ne garder que CLIENT1
Tout ceci parce que sur le fil précédent nos amis du forum m'ont aider à trouver une solution de mise en réseau qui demande ce résultat.
L'autre problème c'est que les codes que vous me donner doivent être excellents, mais moi je ne fais pas dans l'excellence et je ne sais pas comment remplacer les termes que vous utiliser par ceux qui me concernent. Je ne comprend rien au langage vb.

Voilà j'espère que j'ai été assez clair, c'est vrai que c'est pas simple.
Merci les gars et à plus
Bob

[User]

ReSalut,

C'est vrai que çà fait beaucoup de travail à la main

J'ai repris les propositions précédentes (Loufab, Nico. et Tonyo.):

J'ai repris ta table Clients sur l'autre fil et ajouté la requête UpDatePhysio.

Maintenant il ne te reste plus qu'à ajouter cette requête à ta base...

La base:
CLIENTS.zip

[bobafric]

BRAVISSIMO User
C'est impeccable, je l'ai testé sur ma base, nickel.
Je remercie tout le monde pour l"aide que vous m'avez apportée, avec un clin d'oeil por user.
Je vais essater de me mettre au vba c"est super.
Cordialement Bob