[E - 03] Problème avec la fonction Find

Bonjour a tous !


J'ai un petit pb simple a résoudre je pense et si vous pouviez m'aider ce serait top !!

J'ai besoin de comparer deux onglets d'un excel qui comportent beaucoup de cellules et de marquer les différences s'il y en a

J'ai trouvé une macro sur internet que j'ai adaptée a ma situation.
Cette macro marche avec des valeurs simples.

Le problème est que les valeurs de mon tableau comportent beaucoup de décimales et dans les 2 onglets les valeurs sont parfois très proches mais pas identiques, et la macro les identifie comme des différences.
Exemple :
7.18999 dans l'onglet "1"
7.18997 dans l'onglet "2"

dans mes cellules, j'arrondis a 2 décimales donc les deux cellules sont en théorie exacte.
En gros j'aimerais que il prenne la valeur de la cellule (ici 7.19) et non pas la valeur réelle 7.18999



Voici ma macro, je pense que le problème se situe au niveau du LookIn:=xlvalues. J'ai essayé avec xlpart ca marche pas

Code:

---

1 2 3 4 5 6 7 8

Sub colorier() For Each cel In Range("A1:CL3") Set absent = Range("'2'!A1:'2'!CL3").Find(cel, LookIn:=xlValues) If absent Is Nothing Then cel.Interior.ColorIndex = 3 End If Next End Sub

---

Voila ! D'avance merci !

Bonjour,

en arrondissant la cellule dans excel la valeur reste inchangée.

Arrondie plustôt dans ton code.

oui j'ai vu que la valeur reste inchangée

comment faire en sorte qu'elle soit vraiment arrondie ?

Avant de lancer la macro avec le .Find, fais-toi une macro qui parcourt le fichier et arrondi ta cellule (la valeur et non le format).

Ensuite enchaine avec ta macro .Find

merci!

sais tu ou je pourrais trouver une telle macro ? je ne sais pas programmer !

Et voila, tu parcours ton fichier avec une boucle et tu utilises cette fonction:

Code:

---

Round(expression [,numdecimalplaces])

---

Dans l'aide tout est expliqué.

Si tu as des questions, n'hésites pas!

Ok merci drakkar


donc en gros je créé une macro arrondir

Code:

---

1 2 3 4 5 6 7

sub arrondir()   for i=1 to 300   round( ?? ,2)   end

---

le pb c'est que je veux en gros qu'il arrondisse toutes mes cellules entre ma colonne J et ma colonne CJ et cela sur 300 lignes

donc je dois mettre quoi a la place des "??" ?



encore merci !

Voici la base

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub MaMacro() ' Les valeurs dans le range donné en paramètre seront arrondies au nombre de décimal donné. Call Arrondir("A1:B4", 2) ' Ici tu continues le restant de ton code avec le .Find   End Sub Sub Arrondir(Plage As String, i As Integer) Dim c   For Each c In Range(Plage)   c.Value = Round(c.Value, i)   Next c   End Sub

---

Tu peux utiliser cette macro Arrondir en lui donnant une plage comme paramètre.
Tu peux adapter à ton besoin.

it works !!!

merci c'est génial