Fonction replace en VBA access [Résolu]
WrestlingMan
78
Messages postés
mardi 16 juin 2009Date d'inscription
17 février 2011
Dernière intervention
-
17 juin 2009 à 15:46 - Dernière réponse :
WrestlingMan
78
Messages postés
mardi 16 juin 2009Date d'inscription
17 février 2011
Dernière intervention
- 18 juin 2009 à 10:05
- Fonction replace en VBA access
- Fonction replace en VBA, problème » Forum - Visual Basic
- Problème fonction replace(,,,) en VBA » Forum - Visual Basic
- Fonction replace pour access 97 aussi performante que replace de vb » Codes sources - Visual Basic / VB.NET (Texte)
- Fonction replace non reconnue dans vba : une fonction de remplacement (!) » Codes sources - Visual Basic / VB.NET (VBA)
- [VBA Access] Fonction à intégrer dans une requête SQL (Résolu) » Forum - Visual Basic 6
2 réponses
Meilleure réponse
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.
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.
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 125 internautes ce mois-ci
Meilleure réponse
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 & "') ;"
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 & "') ;"
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 125 internautes ce mois-ci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.