Discussion :

[documentation]

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 :

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

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 !

[drakkar_agfa]

Bonjour,

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

Arrondie plustôt dans ton code.

[documentation]

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

comment faire en sorte qu'elle soit vraiment arrondie ?

[drakkar_agfa]

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

[documentation]

merci!

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

[drakkar_agfa]

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

Code :

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

Round(expression [,numdecimalplaces])

Dans l'aide tout est expliqué.

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

[documentation]

Ok merci drakkar


donc en gros je créé une macro arrondir

Code :

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

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 !

[drakkar_agfa]

Voici la base

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
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.

[documentation]

it works !!!

merci c'est génial