Vérifier et comparer entêtes de deux tableaux
Bonjour, j'importer ma feuil "First" du classeur "Trial2" et je colle dans le classeur "Trial" feuil "Feuil1. une fois que cela est fait je souhaite être en mesure d'être alerterquand les colonnes de ses deux feuilles ne correspondent pas ("sachant que mes colonnes ne sont pas vides, je supprime le titre de ma feuille importer pour pouvoir ajouter la continuité")
Auriez vous un code pour cela ?
Merci
J'ai trouvé ça comme code mais j'ai une erreur au niveau de mon if car l'indice n'appartient pas à la sélection.
Sachant que je souhaite vérifier uniquement les titres des colonnes Range("F:AB") donc la colonne 6 de la Sheets("Feuil1")
Auriez vous une solution ?
Dim header1 As Variant, header2 As Variant, i As Long
header1 = Sheets("Feuil3").Rows(1).Value
header2 = Sheets("Feuil1").Range("F:AB").Value
For i = 1 To 30
If header1(1, i) <> vbNullString Then
If header1(1, i) <> header2(6, i) Then
MsgBox "Compare Failed at column " & i
Exit For
End If
Else
MsgBox "Compare ="
Exit For
End If
Next i
Salut,
Ta question n'est vraiment pas très claire.
Dans les fichiers ci-joints, que j'ai renommé Source et Cible, j'ai compris que tu veux importer des données du fichier Source vers le fichier Cible puis effectuer certains contrôles.
Question 1) Dans le fichier Cible, est-ce qu'il y a déjà des données en place tel que sur mon modèle ?
Question 2) Les données des colonnes A à AB du fichier Source doivent bien être copiées-collées dans les colonnes F à AF du fichier Cible ?
Question 3) Peux-tu simuler l'état du fichier Cible au moment où tu souhaites trier les colonnes ?
Question 4) Est-ce bien correcte que tu veux trier que les colonnes F à AB (et non pas F à AF) ?
Question 5) Sur une autre feuille, peux-tu simuler le résultat final que tu attends ? Pour ce faire, tu peux effectuer une copie de la Feuil1 du fichier Cible et modifier manuellement les données.
Pour répondre, tu peux utiliser la numérotation de mes questions, ce serait probablement plus clair.