Fonction replace en VBA access [Résolu]

Question

Sujet Précédent Sujet Suivant

Fonction replace en VBA access [Résolu]

Signaler

WrestlingMan

Messages postés: 78
Date d'inscription: mardi 16 juin 2009
Statut: Membre
Dernière intervention: 17 février 2011

- 17 juin 2009 à 15:46
WrestlingMan

Messages postés: 78
Date d'inscription: mardi 16 juin 2009
Statut: Membre
Dernière intervention: 17 février 2011

- 18 juin 2009 à 10:05

Voila : j'ai un petit souci ! En effet, j'ai réalisé une requête d'insertion pour un formulaire de saisie de résultats de tests sportifs ! Le problème c'est que je voudrais remplacer la "," par un "." avec la fonction replace ! Après maintes tentatives je n'y arrive toujours pas ! Si quelqu'un pouvais me mettre un exemple de cette fonction cela m'arrangerais !

le champ qui doit etre modifié avec cette fonction replace est : txt_taille.value

A vous de jouer ! merci d'avance pour toutes éventuelles réponses !!

A voir également:

Fonction replace vba
Fonction val vba - Meilleures réponses
Vba fonction replace - Meilleures réponses
[Excel | VBA] Macro fonction ✓ - Forum - Visual Basic 6
Comment remplacer un caractere par un autre dans une chaine de caractere ? - Forum - Visual Basic
Visual Basic / VB.NET : Fonction replace non reconnue dans vba : une fonction de remplacement (!) - - Guide
Fonction set vba - Forum - Visual Basic
Fonction mod vba - Forum - Visual Basic

2 réponses

Réponse 2 / 2

WrestlingMan

Messages postés: 78
Date d'inscription: mardi 16 juin 2009
Statut: Membre
Dernière intervention: 17 février 2011

1
18 juin 2009 à 10:05

J'ai réussi à utiliser correctement la fonction replace dans une requête sur access finalement ! Merci de m'avoir donner un exemple sur excel sa pourra servir ! Voici mon résultat pour ceux à qui cela pourrait interesser :

sql5 = "insert into T_Test values(" & rs.Fields("CodeSportif").Value & ", " & rs2.Fields("CodeTest").Value & ", " & ld_année.Value & ", " & rs3.Fields("CodeMois").Value & ", " & Replace(txt_poids.Value, ",", ".") & ", " & Replace(txt_taille.Value, ",", ".") & ", " & Replace(txt_MG.Value, ",", ".") & ", '" & txt_resultat.Value & "', " & Replace(txt_puissanceaerobie.Value, ",", ".") & ", " & Replace(txt_hr240w.Value, ",", ".") & ", " & Replace(txt_vo2_Lseuil.Value, ",", ".") & ", " & Replace(txt_seuilhr.Value, ",", ".") & ", " & Replace(txt_vo2max.Value, ",", ".") & ", " & Replace(txt_v_emax.Value, ",", ".") & ", '" & ld_categorie.Value & "', " & rs4.Fields("CodeClub").Value & ", '" & ld_Velo.Value & "') ;"

Répondre Posez votre question

lepetitcodeur · Accepted Answer · 2009-06-17T16:17:49+0200

Réponse 1 / 2

lepetitcodeur

Messages postés: 8
Date d'inscription: mercredi 17 juin 2009
Statut: Membre
Dernière intervention: 23 juillet 2009

17 juin 2009 à 16:17

Salut,
Alors je te donne un petit exemple fait sur Excel, donc quelques modifs à faire, ce que j'ai fait c'est remplacer dans une colonne, les arguments sont plutot parlants tu vas voir :

Columns("A:A").Select
    Range("A1").Activate
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

C'est pas tout à fait pareil en ce sens où j'ai fait ça sur une colonne, mais la fonction est a priori très similaire.

Votre réponse