HELP pour comparaison de cellules VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : HELP pour comparaison de cellules VBA

sbaq

Bonjour à tous,

débutant en VBA j'ai un petit souci.

L'objectif de la macro est de comparer 2 plages de données dans 2 feuilles de calcul d'un même classeur. Si les 2 cellules sont égales, alors je veux faire apparaître "#N/A" dans la seconde feuille.

Pour ce faire je pense avoir trouvé comment faire pour une colonne, mais je n'arrive pas à passer à la colonne suivante.

Citation :

Sub Macro1()

Dim i As Integer
i = 5
While i < 200

If Worksheets("Feuil1" ).Range("G" + CStr(i)).Value <> Worksheets("Feuil2" ).Range("G" + CStr(i)).Value Then

Worksheets("Feuil2" ).Activate

Worksheets("Feuil2" ).Range("G" + CStr(i)).Value="#N/A"

End If

i = i + 1

Wend

End Sub

Grâce à cela, ça compare la colonne G et le #N/A apparaît si les 2 valeurs sont identiques.

Ma question est donc : comment compléter cela pour faire ce procédé de la colonne G à la colonne S ? ou plus simplement sur toute la plage [G5:S200]

Merci à vous pour votre aide !

Message édité par sbaq le 29-07-2014 à 16:20:15

Publicité

patrice33740

Avec la réponse, c'est facile.

Bonjour

Tu demandes : Si les 2 cellules sont égales, alors je veux faire apparaître "#N/A" dans la seconde feuille

Dans ton code tu mets : <> (c'est-à-dire différentes) et tu affirmes : Grâce à cela, ça compare la colonne G et le #N/A apparaît si les 2 valeurs sont identiques. :ouch: :pt1cable: :ouch:

Voici donc 2 codes :
Celui-ci pour écrire #N/A lorsque les cellules sont identiques :

Code :

Sub x()
Dim r As Range
Dim c As Range
Dim o As Variant
Dim d As Variant
Set r = Worksheets("Feuil1" ).Range("G5:S200" )
With Worksheets("Feuil2" )
For Each c In r.Cells
o = c.Value
d = .Range(c.Address).Value
If VarType(o) = VarType(d) Then
If o = d Then .Range(c.Address).Value = "#N/A"
End If
Next c
End With
End Sub

Et celui-ci pour écrire #N/A lorsque les cellules sont différentes:

Code :

Sub y()
Dim r As Range
Dim c As Range
Dim o As Variant
Dim d As Variant
Set r = Worksheets("Feuil1" ).Range("G5:S200" )
With Worksheets("Feuil2" )
For Each c In r.Cells
o = c.Value
d = .Range(c.Address).Value
If VarType(o) = VarType(d) Then
If o <> d Then .Range(c.Address).Value = "#N/A"
Else
.Range(c.Address).Value = "#N/A"
End If
Next c
End With
End Sub

Message édité par patrice33740 le 29-07-2014 à 20:53:57

sbaq

Au temps pour moi j'avais bien écrit n'importe quoi... je confirme, elles doivent être identiques, je m'étais trompé sur le signe <>, il fallait bien un égal, ne me demande pas pourquoi j'en suis arrivé là, je me le demande encore...

En tout cas un énorme merci pour ta (tes) réponse(s), ça m'aide énormément

FORUM HardWare.fr

Programmation

VB/VBA/VBS

HELP pour comparaison de cellules VBA

Sujets relatifs
HELP macro copie/colle valeurs entre 2 classeurs différents	Help SVP "erreur d'exécution 13 incompatibilité de type, vba"
VBA - creer tableau dans word	L'indice n'appartient pas à la sélection, VBA Excel
Demande de réunion VBA Excel/Outlook	Liens Hypertexte dans Listbox VBA
Help SVP "sous-répertoires VBA"	help programmation perl
Plus de sujets relatifs à : HELP pour comparaison de cellules VBA

Page générée en 0.054 secondes