Comparaison de tabeaux sur la meme feuilleRésolu

Question

Bonjour,


Voila mon problème j’ai un tableau de 4 lignes 5 colonnes par jour a ajouter sur ma feuille Excel (les uns en dessous des autres)


Et je dois comparer ce tableau aux autres pour savoir si je l’ai déjà ou pas 


Si je l’ai j’affiche une msgbox sinon je continue.


Je n’arrive pas à trouver le code de la macro VBA , qui me permet de faire la comparaison.


J’ai essayé   Selection.FormulaArray _<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>


"=If(A1:D1 =A4:D5,""vrai"" ,""faux"")"
 ça marche mais des que je mets une variable a la place de A1 : D1 ça ne marche plus.


Selection.FormulaArray _


"=If(var1 =var2,""vrai"" ,""faux"")"


Merci de votre aide.

mortalino · Accepted Answer

Salut,


je confirme ce que dis scSami.


soit 
Dim rMaPlage1 As Range, rMaPlage2 As Range
   Set rMaPlage1 = Range("A1:D1")
   Set rMaPlage2 = Range("A2:D2")


soit, imaginons ton tableau de 4lignes, 5colonnes :
(à ma sauce car tes plages ne correspondent à rien)

Sub Verif ()
Dim iLigne As Integer, iColonne As Integer, i As Byte
Dim bCompare(1 To 20) As Boolean

i = 0
For iLigne = 1 To 4
   For icolonne = 1 To 5
      i = i + 1
      If Cells(iLigne, iColonne).Value = Cells(iLigne + 6, iColonne).Value Then _         bCompare(i) True Else bCompare(i) False
   Next iColonne
Next iLigne

For i = 1 To 20
   If bCompare(i) = False Then MsgBox "Le Tableau n'est pas saisie": Exit Sub
Next i

MsgBox "Le Tableau a déjà été saisie"
End Sub

Voilà, à toi d'adapter  

@++ 





<hr width="100%" size="2" />

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

ScSami · Answer

Normal, faut pas mettre de variables !
Soit tu fais la comparaison manuellement cellule par cellule, soit faut utiliser un objet Range à la place de tes variables !

Enjoy 


<hr size="2" width="100%" />




( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )

cs_cl91 · Answer

Merci beaucoup

Je vais essayer, je pense que ca va être bon.

@+

Comparaison de tabeaux sur la meme feuille

3 réponses

Votre réponse

Discussions similaires