Discussion :

[fredo49]

Bonjour à tous,
ça fait deux jours que je galère au boulot pour créer une macro sur excel et vu mes connaissances quasi-nulles en terme de macro, j'aurais fortement besoin de vos idées...

voilà je m'explique, j'ai deux tableaux comportant chacun une colonne avec refs de pièces, nom de cette pièce, ref du fournisseur associé,etc...
Je voudrais effectuer une mise à jour automatique sur un des fichiers (on l'apellera fichier mise a jour) à partir d'un fichier source concernant les refs de pièces.
Lorsqu'une nouvelle ref de pièce apparait dans le fichier source, j'aimerais qu'elle apparaisse aussi dans le fichier mise a jour et lorsqu'une des pièces n'apparait plus dans le fichier source, il faudrait qu'elle disparaisse du fichier mise à jour.

voila ce que j'ai écris pour le moment mais je suis sur que c'est truffé de faute. J'ai essayé de traiter que la partie suppression de données et je voulais savoir aussi s'il était possible de réaliser le tout en une seule macro ou s'il fallait en faire 2.

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
Windows("fichier source.xls").Activate
 
    Windows("fichier a mettre a jour.xls").Activate
 
        Dim VALEUR1 As String, VALEUR2 As String, i, j
        For i = 2 To 20
        VALEUR1 = Worksheets(“fichier mise à jour”).Range("B" & i).Value
        For j = 2 To 20
        VALEUR2 = Worksheets(“fichier source”).Range("B" & j).Value      
        If VALEUR1 <> VALEUR2 Then
        Worksheets(“fichier mise à jour”).Range("B" & i).Value.delete
 
End If
   Next i
   Next j
 
End Sub

[tedo01]

Bonjour,
Question idiote (peut-être...) : Comme les deux fichiers sont de structure identique, pourquoi ne pas simplement supprimer toutes les lignes du fichier à mettre à jour puis recopier dedans les lignes du fichier source ?

[fredo49]

en fait les fichiers en pièce jointe sont un exemple très simplifié des tableaux que je dois manier et ceux ci ne possèdent pas forcément les mm colonnes... donc une macro est nécessaire pour faire ce que je dois faire...

[a.floranc]

Bonjour Fredo49,

Peut etre pouvez-vous passer par l'import de données.

Dans votre fichier source créez une liste : Données, liste, créer une liste en ayant au préalable sélectionné votre liste produit.

Ensuite dans votre fichier Mise à jour allez dans Données, Données externes, Importer des données.

Il faut chercher le fichier source et suivre ce que excel demande

Aprés cela les données du fichier sources seront importer dans votre classeur "mise à jour".

Un clic droit permet la mise à jour des données et l'acces à des parametres divers (Fréquance de mise à jour...)


Voila, je suis un peu rapide mais cela devrait fonctionner !

[casefayere]

Bonjour,
Je me suis amusé à préparer ce code, tu peux toujours le tester en adaptant les colonnes

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub essai()
Dim Der_Sc As Long, W_Source As Workbook, F_Source As Worksheet
Dim der_Maj As Long, W_Maj As Workbook, F_Maj As Worksheet, FC As String
Dim x As Long
Application.ScreenUpdating = False
Set W_Source = Workbooks("fichier_source.xls")
Set F_Source = W_Source.Sheets("fichier source")
Set W_Maj = Workbooks("fichier_maj.xls")
Set F_Maj = W_Maj.Sheets("feuil1")
'si les ref sont en B dans les deux fichiers
Der_Sc = F_Source.Range("B" & F_Source.Rows.Count).End(xlUp).Row 'dernière ligne du fichier source
der_Maj = F_Maj.Range("B" & F_Maj.Rows.Count).End(xlUp).Row 'dernière ligne du fichier source
'les données du fichier "maj" commencent en B2
'une colonne temporaire
FC = "=NB.SI(" & "'[" & W_Source.Name & "]" & F_Source.Name & "'!$B$2:$B$" & Der_Sc & ";B2)"
F_Maj.Range("F2").FormulaLocal = FC
F_Maj.Range("F2").AutoFill Destination:=F_Maj.Range("F2:F" & der_Maj), Type:=xlFillDefault
For x = der_Maj To 2 Step -1
    If F_Maj.Range("F" & x) = 0 Then
        F_Maj.Range("F" & x).EntireRow.Delete
    End If
Next x
'on supprime la colonne temporaire
F_Maj.Columns("F:F").Delete
'on recommence mais à l'envers, pour ajouter les lignes
Der_Sc = F_Source.Range("B" & F_Source.Rows.Count).End(xlUp).Row
der_Maj = F_Maj.Range("B" & F_Maj.Rows.Count).End(xlUp).Row
'une colonne temporaire, cette fois au fichier source
FC = "=NB.SI(" & "'[" & W_Maj.Name & "]" & F_Maj.Name & "'!$B$2:$B$" & der_Maj & ";B2)"
F_Source.Range("F2").FormulaLocal = FC
F_Source.Range("F2").AutoFill Destination:=F_Source.Range("F2:F" & Der_Sc), Type:=xlFillDefault
For x = Der_Sc To 2 Step -1
    If F_Source.Range("F" & x) = 0 Then
        F_Maj.Range("A" & der_Maj + 1, "G" & der_Maj + 1).Value = F_Source.Range("A" & x, "G" & x).Value
        der_Maj = F_Maj.Range("B" & F_Maj.Rows.Count).End(xlUp).Row
    End If
Next x
'on supprime la colonne temporaire
F_Source.Columns("F:F").Delete
 
Application.ScreenUpdating = True
End Sub

[fredo49]

tout d'abord merci à casefayer et floranc pour les propositions...
à floranc, l'idée est pas mal mais pas tro adaptée à mes besoins...
à casefayer, dès que j'ai du temps mardi prochain je teste le code et je te dirais si c'est bon.

bon wk à tous