Discussion :

[arnolem]

Bonjour,

Dans le cadre de manipulation d'export d'une base de données, je voudrais remplacer des identifiants (Ex : 1, 2, 3, 4) par leur valeur présente sur une autre feuille (Ex : 1 => Affecté, 2 => En cours, 3 => Terminé, 4 => Archivé).

Les infos ci-dessus sont à titre d'exemple, j'ai en réalité plus de 2000 identifiants à remplacer. Je ne peux donc pas faire un recherche et remplace à la main.

Le but final étant de faire un fichier CSV avec les données fusionnées.

Merci d'avance.

[zoom61]

Salut,

Voici un bon de code qui pourrait aller :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
sub CopieColler()
	Dim monDocument as object, lesFeuilles as Object
	Dim uneFeuille1 as Object, uneFeuille2 as Object
	Dim i as long, nbId as string, nbTot as string
	Dim ValId as long, TxtId as string
 
	monDocument = ThisComponent
	lesFeuilles = monDocument.Sheets
	uneFeuille1 = lesFeuilles.getByName("Feuille4")
	positionFin = uneFeuille1.createCursor 
	positionFin.gotoEndOfUsedArea( False )
	nbId = positionFin.RangeAddress.EndRow
 
	uneFeuille2 = lesFeuilles.getByName("Feuille5")
	positionFin = uneFeuille2.createCursor 
	positionFin.gotoEndOfUsedArea( False )
	nbTot = positionFin.RangeAddress.EndRow
 
	for i = 0 to nbId
		maCellule1 = uneFeuille1.GetCellRangeByName("A" & i + 1)
		ValId = maCellule1.value
		maCellule2 = uneFeuille1.GetCellRangeByName("B" & i + 1)
		TxtId = maCellule2.string
		maZone = uneFeuille2.getCellRangeByName("D1:D" & NbTot +1)
		jeCherche = maZone.createSearchDescriptor
		msgbox ValId & chr(13) & TxtId
		with jeCherche
		  .SearchString = ValId
		  .ReplaceString = TxtId
		  .SearchWords = false 
		end with
		maZone.replaceAll(jeCherche)
	next	
 
end sub

@+.

[arnolem]

Merci pour ton retour, je vais regarder ça.
Je suis tout de même étonné qu'il n'y ai pas une fonctionnalité en natif ou avec un simple =SI () ...

[zoom61]

Si j'ai bien compris ton besoin, c'est de remplacer le code par du texte

Sinon si tu peux rajouter une colonne tu as les fonctions de recherche, recherchev et rechercheh...

@+.

[arnolem]

A oui, ça me parait pas mal ça, je peux ajouter une colonne sans problème.
Je vais plutôt essayer ça.

[zoom61]

Où en es-tu ?

@+.

[arnolem]

Où en es-tu ?

@+.

Du coup, j'ai fais un RECHERCHE avec une nouvelle colonne. Il faut juste que la plage de recherche soit trié de manière croissante pour que ça marche.

Merci