Discussion :

[Ozer45]

Bonjour le forum,


J'ai encore une fois besoin de votre aide.

J'ai deux tableaux qui doivent contenir la meme entetes dans deux fichiers distincts.

Je souhaiterais verifier si mon entete (voir code ci dessous) de mon premier tableau (classeur original) correspondant à l'entete du deuxieme tableau (classeur test):

Code :

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

1
2
3
4
 
 
'entete à tester
Range(Cells(1, 2), Cells(8, maxcol))

S'il y a des données qui manquent dans l'entete du tableau du classeur test, rajouter une colonne supplementaire et inserer ces données.

Merci pour votre aide.

[Philippe Tulliez]

Bonjour,
Un petit exemple parmi d'autres

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
Option Explicit
Sub Test()
 Dim sht1 As Worksheet, sht2 As Worksheet
 Dim Tableau1 As Range, Tableau2 As Range
 Dim column As Byte
 Dim maxcol As Byte: maxcol = 3
 With ThisWorkbook
  Set sht1 = .Worksheets("Feuil1"):  Set sht2 = .Worksheets("Feuil2"):
 End With
 With sht1: Set Tableau1 = .Range(.Cells(1, 2), .Cells(4, maxcol)): End With
 With sht2: Set Tableau2 = .Range(.Cells(1, 1), .Cells(8, maxcol)): End With
 For column = 1 To maxcol
  If Tableau1.Cells(1, column) <> Tableau2.Cells(1, column) Then MsgBox "Titre colonne " & column & " différent"
 Next
End Sub

Ce code vérifie les cellules de la première ligne de chaque tableau sur MaxCol colonnes (ici 3).
Les tableaux sont sur les feuilles Feuil1 et Feuil2
Il y a évidemment moyen de vérifier si le nombre de colonnes sont identiques auquel cas on sait déjà qu'il y a une différence et on pourrait aussi mettre tout en majuscule pour éviter de considérer comme erreur Nom et NOM

[Ozer45]

Bonjour,

Merci tout d'abord pour la reponse!

Elle est bien ta macro, elle permet de detecter toutes les differences dans chaque colonne, sous forme de message d'erreurs.

Mais en fait ce que j'essaie de faire ce serait plutot de tester si la premiere ligne de mon premier tableau figure (original) dans le deuxieme tableau (test)

Si une ligne n'existe pas ce serait d'inserer une nouvelle colonne et de mettre la colonne manquante dans le deuxieme tableau.

Je vous met en fichier joint le fichier excel(peut etre pour plus de comprehension).

Merci d'avance

[Philippe Tulliez]

Bonjour,
Le code compare colonne par colonne les 2 premières lignes du tableau, ce que tu n'avais pas précisé, et si elle sont différentes copie la colonne du Tableau1 et l'insère dans le tableau2 au même n° de colonne.
Contrainte : Les deux tableaux doivent commencer en A1 et le nombre de lignes doit être identique.
Cela suppose aussi qu'il n'y a pas de mélange dans les colonnes. Il faudrait alors envisager de créer deux tables avec le n° d'ordre des colonnes, trier ces tables et ensuite comparer.

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
17
18
19
20
21
Option Explicit
Sub Test()
 Dim sht1 As Worksheet, sht2 As Worksheet
 Dim Tableau1 As Range, Tableau2 As Range
 Dim column As Byte
 Dim Addr As String
 With ThisWorkbook
  Set sht1 = .Worksheets("original"):  Set sht2 = .Worksheets("Test"):
 End With
 With sht1: Set Tableau1 = .Range("A1").CurrentRegion: End With
 With sht2: Set Tableau2 = .Range("A1").CurrentRegion: End With
 For column = 1 To Tableau1.Columns.Count
  If Tableau1.Cells(1, column) & Tableau1.Cells(2, column) <> Tableau2.Cells(1, column) & Tableau2.Cells(2, column) Then
   MsgBox "Titre colonne " & column & " différent"
   With Tableau1
   Addr = .Range(.Cells(1, column), .Cells(.Rows.Count, column)).Address
   .Range(Addr).Copy:  Tableau2.Range(Addr).Insert Shift:=xlToRight
   End With
  End If
 Next
End Sub

[Ozer45]

Merci Corona,

Bravo, ton code fonctionne supeeeeeeer bien dans mon cas !!!!!

Si je veux l'adapter: si je fais le meme test mais d'une feuille d'un classeur X vers une autre feuille d'un classeur Y, est ce possible (sachant que les deux feuilles peuvent porter le meme nom : genre "original")?

J'ose esperer que c'est possible de faire la meme comparaison pour deux classeurs differents mais portant le même nom pour les feuilles.

Je sais pas si j'ai etait bien clair


En tout cas merci!!!!

[Philippe Tulliez]

Bonjour,
Bien sûr c'est possible. Il faut modifier ce code

Code :

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

1
2
3
 With ThisWorkbook
  Set sht1 = .Worksheets("original"):  Set sht2 = .Worksheets("Test")
 End With

Par (par exemple)

Code :

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

1
2
Set sht1 = ThisWorkbook.Worksheets("original")
Set sht2 = Workbooks("maCopie.xls").Worksheets("Test")

ThisWorkbook représente le classeur où se trouve le code VBA
Workbooks("maCopie.xls") le nom d'un fichier ouvert. Le suffixe (xls) est obligatoire.
Contrainte : Les 2 classeurs doivent être ouverts. Il est possible de le faire avec des classeurs fermés mais alors il faut utiliser une autre techinque.

[Ozer45]

Merci Corona,


Juste une derniere question : pour faire tourner la macro de la feuille 2 à la feuille 10 des deux classeurs, faut faire comment?

Est ce qu'il faut que je rajoute sht1 et sht2 à chaque debut de Tableau1 et Tableau2?

Code :

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

1
2
3
4
5
6
7
8
 
for i =2 to 10
If sht1(i).Tableau1.Cells(1, column) & sht1(i).Tableau1.Cells(2, column) <> sht2(i).Tableau2.Cells(1, column) & sht2(i).Tableau2.Cells(2, column) Then
With Tableau1
   Addr = .Range(.Cells(1, column), .Cells(.Rows.Count, column)).Address
   .Range(Addr).Copy:  Tableau2.Range(Addr).Insert Shift:=xlToRight
   End With
  End Ifnext i

Je te remercie pour ton code et pour ton aide aussi.