Discussion :

[taratata92400]

Bonjour à tous ! :-).

Je pratique déjà VBA depuis un petit moment..mais plutot sous access. Je rencontre un souci pour mettre à execution l'idée suivante :

- Importer des données à partir d'une requete d'une base access et les copier dans une feuille excel (=> cette étape là est OK).

- Proposer la possibilité de modifier les données via une table de correspondance qui serait dans un deuxième onglet.
Ex :

Valeur base: Valeur choisies ( par l'utilisateur) :
val1 val1bis
val2 val2bis
val3 val3bis
val2 val2bis
val4 val4bis

et un bouton cliquable "MAJ la base", qui remplacerait chaque occurence des valeurs de la base par les valeurs de l'utilisateur.

Cela peut se faire, via des boucles simples mais le temps de calcul est long (de l'ordre de n², où n est le nombre de ligne de la base).


Existe t'il un moyen plus simple pour procéder ?

Je doute de la clareté du message...si vous avez besoin de plus de précisions n'hésitez pas.

Merci d'avance pour votre aide !

[SilkyRoad]

bonjour

Quelle procédure de remplacement as tu utilisé ?


bonne journée
michel

[helas]

Pourquoi ne pas utiliser la commande de remplacement ?

Dans l'exemple Origine est remplacé par Final

Code :

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

1
2
3
4
 
   Sheets("Feuil1").Cells.Replace What:="Origine", Replacement:="Final", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

[taratata92400]

Re,

En fait pour le remplacement j'ai utilisé 2 boucles imbriquées; l'une qui parcours la base importées et l'autre la table de correspondance. Ainsi, si on appelle Bi (i=1,2,3,...j,...N) les valeurs de la base et Cj et C'j (j=1,2,...n) les valeurs de la table de correspondance (les C'j sont renseignés par l'utilisateur), on fait :

Code :

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

1
2
3
4
5
sub MAJ ()
for (i=1 à N):
     for (j=1 à n)
                   Si (Bi = Cj) alors  Bi=C'j
end sub

Un bouton est aussi disponible sur la feuille de calcul pour rafraichir la base.

(NB: En realitéLa fonction est plus longue (garde en mémoire les valeurs intermédiaires, pour prendre en compte des modifications successives)

Ma fonction de remplacement (artisanale ) fonctionne bien...mais pour certaines bases notamment celles nombre de ligne important le temps est calcul est considérable. Je me demandais donc s'il n'y avait plus simple?

Si vous preferez voir le code, n'hesitez pas à me le faire savoir.

Merci encore pour votre aide...

Louis