Comparaison de cellules et affichage de "Vrai ou Faux"

lemarcheurfou · 3 Février 2014

Bonjour à tous,

Je voudrais faire une comparaison de deux plages de cellules mais je ne trouve pas la solution c'est un peu complexe pour moi...

Voilà mon code et je joins aussi mon fichier pour que vous voyez ce que je veux faire.

Code:

Sub Comparaison()

 Dim Arr1, Arr2, Flag
 Arr1 = Range("A2:D2")
 Arr2 = Range("F2:I2")
 Flag = True
 For i = LBound(Arr1, 2) To UBound(Arr1, 2)
 For j = LBound(Arr1, 1) To UBound(Arr1, 1)
 If Not Arr1(j, i) = Arr2(j, i) Then
 Flag = False: Exit For
 End If
 Next j
 If Not Flag Then Exit For
 Next i
 
  Set Range("" & Flag)

End Sub

Je vous remercie d'avance pour votre aide.

Guest · 3 Février 2014

Re : Comparaison de cellules et affichage de "Vrai ou Faux"

Bonjour,

En une seule boucle:

Code:

    Dim i As Integer
    With Range("A2:D2")
        For i = 1 To .Count
            Range("K2:N2").Cells(i) = .Cells(i) = Range("F2:I2").Cells(i)
        Next i
    End With

A+

chris · 3 Février 2014

Re : Comparaison de cellules et affichage de "Vrai ou Faux"

Bonjour

Pourquoi pas tout simplement avec des formules à base d'EQUIV ?

Guest · 3 Février 2014

Re : Comparaison de cellules et affichage de "Vrai ou Faux"

Re,

Hello Chris, On se le demande hein?....🙂 arf
Ou alors en k2 à tirer vers la droite et le bas: =A2=F2

A+

lemarcheurfou · 3 Février 2014

Re : Comparaison de cellules et affichage de "Vrai ou Faux"

Hasco à dit:

Bonjour,

En une seule boucle:

Code:

    Dim i As Integer
    With Range("A2:D2")
        For i = 1 To .Count
            Range("K2:N2").Cells(i) = .Cells(i) = Range("F2:I2").Cells(i)
        Next i
    End With

A+

Merci pour vos réponses très rapide.

Hasco ton code marche parfaitement mais juste pour la première ligne. Faudrai que j'ajoute une boucle pour les autres lignes de mon tableau c'est bien ça?

Guest · 3 Février 2014

Re : Comparaison de cellules et affichage de "Vrai ou Faux"

Re

Pas besoin de deuxième boucle, tes plages allant de la ligne 2 à 3:

Code:

 Dim i As Integer
    With Range("A2:D3")
        For i = 1 To .Count
            Range("K2:N3").Cells(i) = .Cells(i) = Range("F2:I3").Cells(i)
        Next i
    End With

J'avais pas corrigé dans le précédent post. Quant on ne met pas d'index de colonne dans un objet range Excel identifie le premier index comme un n° d'ordre. Exemple soit une plage de 4 Cellules (A2:B3) la cellule 1 est A2 la cellule 2 est B2 la cellule 3 est A3 la cellule 4 est B3

A+

lemarcheurfou · 3 Février 2014

Re : Comparaison de cellules et affichage de "Vrai ou Faux"

Hasco à dit:
Re

Pas besoin de deuxième boucle, tes plages allant de la ligne 2 à 3:

Code:

Dim i As Integer With Range("A2:D3") For i = 1 To .Count Range("K2:N3").Cells(i) = .Cells(i) = Range("F2:I3").Cells(i) Next i End With

J'avais pas corrigé dans le précédent post. Quant on ne met pas d'index de colonne dans un objet range Excel identifie le premier index comme un n° d'ordre. Exemple soit une plage de 4 Cellules (A2:B3) la cellule 1 est A2 la cellule 2 est B2 la cellule 3 est A3 la cellule 4 est B3

A+

Ah oui merci j'ai pas remarqué mais si j'ai un nombre de ligne qui n'est pas devinable je dois compté toute les lignes avec Range("A65536").End(xlUp).Row?

Guest · 3 Février 2014

Re : Comparaison de cellules et affichage de "Vrai ou Faux"

Re,

Fais tes propres tests, c'est la meilleur façon d'apprendre.

A+

lemarcheurfou · 3 Février 2014

Re : Comparaison de cellules et affichage de "Vrai ou Faux"

Oui je vais testé tout ça je te remercie pour ton aide en tout cas.

Bonne journée.

lemarcheurfou · 3 Février 2014

Re : Comparaison de cellules et affichage de "Vrai ou Faux"

Voilà la solution:

Code:

Sub Comparaison()

 Dim i As Integer
 Dim nbColonne As Integer

  nbColonne = Range("A2").End(xlDown).Row

    With Range("C2:D" & nbColonne)
        For i = 1 To .Count
            Range("I2:J" & nbColonne).Cells(i) = .Cells(i) = Range("F2:G" & nbColonne).Cells(i)
        Next i
    End With

End Sub

lemarcheurfou · 3 Février 2014

Re : Comparaison de cellules et affichage de "Vrai ou Faux"

lemarcheurfou à dit:
Oui je vais testé tout ça je te remercie pour ton aide en tout cas.

Bonne journée.

Voilà la solution:

Code:

Sub Comparaison()

 Dim i As Integer
 Dim nbColonne As Integer

  nbColonne = Range("A2").End(xlDown).Row

    With Range("C2:D" & nbColonne)
        For i = 1 To .Count
            Range("I2:J" & nbColonne).Cells(i) = .Cells(i) = Range("F2:G" & nbColonne).Cells(i)
        Next i
    End With

End Sub

Guest · 3 Février 2014

Re : Comparaison de cellules et affichage de "Vrai ou Faux"

Re,

Juste, pour être pointilleux, et si quelqu'un reprend ton code:
nbColonne ne serait-il pas mieux appellé nbLigne!? ....arf🙂 En type long (pour ce qui est des lignes et colonnes)

[Edition] Attention à l'emploi de XlDown qui peut très vite atteindre la fin de feuille (1048576 lignes pour excel 2010) si tu n'as rien en A3

Voir du côté de .End(xlUp) ou de [A2].currentRegion ou tester la variable.

A+

Comparaison de cellules et affichage de "Vrai ou Faux"

lemarcheurfou

Guest

Pièces jointes

Guest

Guest

chris

XLDnaute Barbatruc

Guest

Guest

lemarcheurfou

Guest

Guest

Guest

lemarcheurfou

Guest

Guest

Guest

lemarcheurfou

Guest

lemarcheurfou

Guest

lemarcheurfou

Guest

Guest

Guest

Discussions similaires

Comparaison de cellules et affichage de "Vrai ou Faux"

lemarcheurfou

Guest

Pièces jointes

Guest

Guest

chris

XLDnaute Barbatruc

Guest

Guest

lemarcheurfou

Guest

Guest

Guest

lemarcheurfou

Guest

Guest

Guest

lemarcheurfou

Guest

lemarcheurfou

Guest

lemarcheurfou

Guest

Guest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency