Macro pour comparer des feuille excel identiques

Pas de souci.
N'hésite pas!
@+

Bonjour :)

En fait il me manques un truc.. Je veux définir une variable dans laquelle je mets une zone qui contient le n° d'un article. Et en gros ma macro doit vérifier que c'est le même numéro d'article déjà puis copier les différents prix et les coller dans une nouvelle feuille/nouveau classeur classés par n° de produit.

Donc je pense faire For each Feuille in activeWorkbook.worksheets (j'ai fait une macro qui ouvre tout les classeurs contenus dans le fichier) puis with Active.workbook.sheets(i)
If sheets.range("C3") c'est la cellule qui contient le n° du produit...

Comment est ce que je peux dire si le N° produit est le même dans toutes les feuilles?

Sachant que j'ai 200 produits donc je peux pas faire une boucle si nom produit= x, il me faut une boucle.

Je ne sais pas si je suis clair...

Je ne sais pas si je suis clair...

Ben non.
Je n'ai pas compris ce que tu souhaites...

Désolé...
Comment je fais pour joindre des fichiers ici? Comme ça ça illustre plus ce que je veux dire..

Il faut passer par un site de pièce jointe tel que https://www.cjoint.com/

Va sur ce site,
Clic sur parcourir
Cherche ton fichier
clic sur ouvrir
Clic sur "Créer le lien cjoint"
Copier le lien
Revenir ici le coller dans une réponse...

Les .range ne marchentpas.
As tu bien mis, avant les .range With ws et après End With?

Sinon, tu peux mettre ws.Range sans souci, c'est la même chose...

J'ai tester, j'ai plus d'erreur par contre ça ne fait rien :(

Une fenêtre s'ouvre bien et je séléctionne les fichiers à traiter, puis rien ...
Tu peux jetter un coup d'oeil stp?

https://www.cjoint.com/?3Fmp37yxkNu

Suis bête,
donc là pour l'instant on a sauvegarder les valeur dans un tableau.
Il faut ensuite les copier dans les cellules dans le fichier analyse, non?

avec les fichiers que tu m'as transmis, j'ai essayé le code donné plus haut, il fonctionne.

Je te le remets ici, avec tes propres codes intégrés...

Option Explicit

Sub Test()
Dim lockcode As String
Dim Dialog As Office.FileDialog
Dim Repeat As String
Dim fPath As String, fName As String, OldDir As String
Dim Cnt As Long
Dim cell1, cell2, cell3, cell4 As Boolean
Dim ligne As Integer
Dim colonne As Integer
Dim Chemin As String, Fichier As String
Dim i As Integer
Dim ws As Worksheet
Dim Tbl()

Chemin = "D:\8710839D\Desktop\Analyse"
Fichier = "Analyse_des_offres.xlsm"
If MsgBox("LANCEMENT DE L'APPLICATION D'ANALYSE", vbOK, "ACCES ADMINISTRATEUR") Then
    lockcode = InputBox("Veuillez saisir votre mot de passe administrateur", "FENÊTRE DE CONTRÔLE", vbOKCancel)
    If lockcode = ("AdminXXXX") Then
        Set Dialog = Application.FileDialog(msoFileDialogFilePicker)
        With Dialog
            .AllowMultiSelect = True
            .ButtonName = "Valider"
            .Filters.Clear
            .Filters.Add "Excel Files", "*.xls;*.xlw, 1"
            .Filters.Add "Excel Files", "*.xlsx*, 1"
            .Filters.Add "Excel Files", "*.xlsm*, 1"
            .Title = "Veuillez selectionner les fichiers à traiter"
            .InitialFileName = "C:\InitialPath\"
            .InitialView = msoFileDialogViewList
            If .Show Then
                If .SelectedItems.Count > 0 Then fPath = .SelectedItems(1) & "\"
                Do While Len(fName) > 0
                    Workbooks.Open fName
                    For Each ws In ActiveWorkbook.Worksheets
                        If ws.Name <> ("Lisez moi") Then
                            If ws.Name <> ("Paramètres") Then
                                With ws
                                    If .Range("T6").Value <> 0 Then
                                        i = i + 1
                                        ReDim Preserve Tbl(1 To 3, 1 To i)
                                        Tbl(2, i) = .Range("C3")
                                        'n° lot
                                        Tbl(1, i) = .Range("D6")
                                        'Nom entreprise 
                                        Tbl(3, i) = .Range("T6")
                                        'montant global
                                    End If
                                End With
                            End If
                        End If
                    Next ws
                    ActiveWorkbook.Close True
                    fName = Dir
                   Cnt = Cnt + 1
               Loop
           End If
           MsgBox Cnt & "  fichiers ont été traités."
           Workbooks("analyse_des_offres.xlsm").Sheets("Feuil1").Range("A2").Resize(UBound(Tbl, 2), 3) = Application.Transpose(Tbl)                    
        End With
    End If
End If


End Sub

Je l'ai pas mal modifié, mais teste pour voir

ça me met "l'indice n'appartient pas à la selection".
C'est donc que un des fichiers n'est pas dans le bon endroit ou n'as pas le bon nom présent dans le code?

deux choix comme je ne sais pas ce que tu veux faire :

=SI(I36>0;SI(OU(ESTVIDE(H36);ESTVIDE(H37);ESTVIDE(H38);ESTVIDE(H39);ESTVIDE(H40);ESTVIDE(H41));"Veuillez renseigner les champs-> ";"");"valeur si I36<0")

ou

=SI(I36>0;"valeur si I36>0";SI(OU(ESTVIDE(H36);ESTVIDE(H37);ESTVIDE(H38);ESTVIDE(H39);ESTVIDE(H40);ESTVIDE(H41));"Veuillez renseigner les champs-> ";""))

Génial, ça a marché.
En fait je veux que tant que une de ces cellules sont vides que ça affiche un message a côte.

Encore une question... (j'abuse? :$)

Sheets(i).Name = "Lot n° " & Sheets(i).Range("C3").Value & Sheets(i).Range("D3").Value

je peux utiliser & ""& pour mettre un esapce entre Sheets(i).Range("C3").Value et Sheets(i).Range("D3").Value ?

oui, à condition de mettre un espace entre tes deux guillemets...

Sheets(i).Name = "Lot n° " & Sheets(i).Range("C3").Value & " " & Sheets(i).Range("D3").Value 

:D
J'ai commencé cette procédure pour dupliquer une feuille et la renommer.
Ca bloque je pense sur une questoin de nom incorrect.










Sub dupliquer_feuilles()

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
'Allow user to make multiple selections in dialog box.
.AllowMultiSelect = True
.ButtonName = "Valider"
'Set the title of the dialog box.
.Title = "Veuillez selectionner les fichiers à traiter"

'Clear out the current filters, and add our own.
.Filters.Clear

.Filters.Add "Excel Files", "*.xls;*.xlw, 1"
.Filters.Add "Excel Files", "*.xlsx, 1"
.Filters.Add "Excel Files", "*.xlsm, 1"
.Filters.Add "All Files", "*.*"
.InitialFileName = "C:\InitialPath\"
.InitialView = msoFileDialogViewList


'Show the dialog box. If the .Show method returns True, the
'user picked at least one file. If the .Show method returns
'False, the user clicked Cancel.
If .Show = True Then
If .SelectedItems.Count > 0 Then
fPath = .SelectedItems(1) & "\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
'Loop through each file selected and add it to the list box.

For Each varFile In .SelectedItems


Workbooks.Open varFile





'Procédure duplication de la feuille Lot n° x
nomb = InputBox("Nombre de fois que vous souhaitez dupliquer la feuille", "Nombre")
nomb = nomb - 1
With varFile
For i = 1 To Sheets.Count

If Sheets(i).Name <> ("Lisez moi") Then
If Sheets(i).Name <> ("Paramètres") Then

For j = 1 To nomb
Sheets(ongl & " " & i).Select
Sheets(ongl & " " & i).Copy After:=Sheets(i + 2)
ActiveSheet.Name = ongl & " " & i + 1

Next j
End If
End If

Next


End With

Next
End If
End If
End With



End Sub