Re: [users-fr] Comparaison tableau

Mon, 16 May 2005 13:39:41 -0700

Bonsoir,
J'avias �crit il y a quelques temps une macro qui permettait d'isoler les cellules dont le contenu n'existait pas dans une seconde feuille

Sub Comparer
'Supprimer les lignes dont la cellule Y de la feuille 1 est �gale � la cellule X de la feuille 2
'Remarque : les colonnes sont consid�r�es tri�es
' : l'exemple ne traite que les valeurs de type string
' : pour les types valeurs remplacer CelluleX.String par CelluleX.Value

  Dim FeuilleA As Object
  Dim FeuilleB As Object
  Dim CelluleA As Object
  Dim CelluleB As Object
  Dim i as integer, x as integer
  Dim j as integer,y as integer

  Dim ContVide As Integer
  ContVide   = com.sun.star.table.CellContentType.EMPTY
  'Interdire la mise � jour de l'affichage
  Thiscomponent.lockcontrollers

   'selectionner les feuilles
  FeuilleA = Thiscomponent.Sheets.getByName("Feuille1")
  FeuilleB = Thiscomponent .Sheets.getByName("Feuille2")
  i = 0
  x = 0
  j = 0
  y = 0

  CelluleB = FeuilleB.getCellByPosition(x,y)
  do while CelluleB.Type <> ContVide
    CelluleA = FeuilleA.getCellByPosition(i,j)
    do while CelluleA.Type <> ContVide
      if CelluleA.String = CelluleB.String then
        dim LaLigne As Object
        LaLigne = CelluleA.Rows
        LaLigne.removeByIndex(i,1)
      else  if CelluleA.String > CelluleB.String then
            exit do
            else
              j = j + 1
            end if
      end if
      CelluleA = FeuilleA.getCellByPosition(i,j)
    Loop
    j = 0
    y = y + 1
    CelluleB = FeuilleB.getCellByPosition(x,y)
  Loop
  'Autoriser la mise � jour  de l'affichage
  Thiscomponent.unlockcontrollers
End Sub


christianwtd a �crit : 
Joel Bernard a �crit :

Bonjour � tous,


Je recherche une mani�re pour comparer les donn�es de deux tableaux Calc pour mettre � jour l'original
Je m'explique, une liste de nom est r�cup�re sur un tableau et j'aimerais la comparer � mon original pour conna�tre les noms � ajouter.

Par quel moyen puis-je le faire?


Bonjour,

Une piste.. bas�e sur des suppositions.
Si tes 2 tableaux sont strictement identiques (en structure) et dans 2 feuilles diff�rentes et commen�ant en A1. Tu les compares dans une 3�me feuille avec la formule :
=Feuille1.A1=Feuille2.A1 (que tu recopies dans le tableau)
qui retourne VRAI (1) ou FAUX (0) suivant cas.
Ensuite � partir du tableau de base (Feuille 1 ?) tu appliques un formatage conditionnel en imposant (par exemple) un fond rouge si c'est diff�rent.

Oui, je sais, plus facile � dire qu'� faire :-)
Si �a va pas, pr�cises tes souhaits.

Je vous souhaite une bonne fin de journ�e
Merci � tous

Jo�l BERNARD
Correspondant Local Informatique
Route de La Fert�
71240 Sennecey le Grand
T�l : 03 85 44 68 14 [EMAIL PROTECTED]




Bon surf
Christian


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à