superbog
XLDnaute Occasionnel
Bonjour
Voici mon problème
Je souhaite mettre à jour les feuilles des clients (qui sont nommées numériquement) en fonction de la mise à jour de la liste clients.
J'ai donc essayé de faire une macro qui d'abord comparerait les données des clients non archivés avec les indications portées sur les fiches clients, mais je n'y suis pas arrivée
voici mon fichier exemple ainsi que le code de ma macro
merci d'avance de votre aide
Voici mon problème
Je souhaite mettre à jour les feuilles des clients (qui sont nommées numériquement) en fonction de la mise à jour de la liste clients.
J'ai donc essayé de faire une macro qui d'abord comparerait les données des clients non archivés avec les indications portées sur les fiches clients, mais je n'y suis pas arrivée
voici mon fichier exemple ainsi que le code de ma macro
Code:
Sub compare_dossier()
Dim i, DerLigBase As Integer
Dim dossier As String
DerLigBase = Sheets("clients").range("B500").End(xlUp).Row
For i = 2 To DerLigBase
dossier = Cells(i, 1).Text
'Copie les valeurs si non cochées
If Sheets(dossier).Rows(2) <> Sheets("clients").Rows(i) Then
Sheets("clients").Rows(i).Copy _
Destination:=Sheets(dossier).Rows(2)
End If
Next i
MsgBox "La mise à jour est effectuée"
End Sub
merci d'avance de votre aide