Actualisation de deux fichiers excel

Version imprimable

19/10/2019, 06h22
isachiara

Actualisation de deux fichiers excel

Bonjour
Je travaille sur sage gestion commerciale. J'ai extrait une liste des bons de commandes fournisseurs avec leur numéro au format Excel,que je vais appeler Base 1.J'ai rajouté des colonnes manuelles dans lesquelles j'ai saisi d'autres données (comme par ex une colonne 'visu' ou j'indique la date à laquelle mon chef a signé le BC. )Chaque semaine je sors une nouvelle extract : Sage Base 2 dans laquelle il y a de nouveaux BC.Je voudrais avec une macro que Base 2 soit renseigné avec les données manuelles saisies dans Base 1 et ainsi de suite chaque semaine.Si le BC n'existe plus dans Base 2 , c'est que la ligne a été supprimé et qu'il a été transformé en facture. Dans ce cas dans mon organisation interne et je n'ai plus besoin de renseigner la ligne.

Bonjour,

Une piste mais je n'ai absolument rien testé ! Lis les commentaires et adaptes avant de tester :

Code:

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
 
Sub Test()
 
    Dim Plg1 As Range
    Dim Plg2 As Range
    Dim Cel1 As Range
    Dim Cel2 As Range
 
    'défini les plage sur chaque feuille en colonne A à partir de A2 (A1 = entête)
    'La colonne A étant supposé être la colonne des numéros de bon de commande, adapter !
    With Worksheets("Base 1"): Set Plg1 = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
    With Worksheets("Base 2"): Set Plg2 = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    'parcours la colonne A de la feuille "Base 1"...
    For Each Cel1 In Plg1
 
        '...pour effectuer la recherche du numéro en cours
        Set Cel2 = Plg2.Find(Cel1.Value, , xlValues, xlWhole)
 
        'si trouvé, les valeurs saisies manuellement sont reportées en feuille "Base 2"
        'ici, j'ai supposé que les valeurs se trouvent à partir de la colonne J, adapter !
        If Not Cel1 Is Nothing Then
 
            Cel2.Offset(, 9).Value = Cel1.Offset(, 9).Value 'colonne J
            Cel2.Offset(, 10).Value = Cel1.Offset(, 10).Value 'colonne K
            Cel2.Offset(, 11).Value = Cel1.Offset(, 11).Value 'colonne L
 
        End If
 
    Next Cel1
 
End Sub

19/10/2019, 14h11
isachiara

Bonjour je vais tester lundi. Merci beaucoup
22/10/2019, 18h46
isachiara

Actualisation de deux fichiers excel

bonjour theze
Je ne connais ps du tout les macros
dans ta réponse , il faut que j’enlève de la macro toutes les phrases explicatives qui commencent par ' , ou bien elles font partie de la macro

dans 1 premier temps , je voudrais faire un copier collé de ta macro
Merci par avance !
22/10/2019, 19h57
Theze

Bonjour,

Il est préférable de toujours laisser les commentaires car dans le temps on fini par oublier ce que fait le code donc, lire les commentaires remet en mémoire ce que fait chaque lignes ou ensemble de lignes de code afin de se remémorer plus vite les actions ! Laisse les commentaires en place, le compilateur les ignore complètement.
Depuis Excel, tu appuis sur la combinaison de touches Alt+F11 puis Maj+M là, une fenêtre d'édition vient de s'afficher, tu copie le code et tu le colles dans cette fenêtre, à ce moment là, tu cliques n'importe où dans le code puis tu appuis sur la touche F5, le code est exécuté (le compilateur lit ligne par ligne et effectue les actions demandées)
Si tu n'as jamais touchée à VBA, ça va pas être facile mais avec un peu de ténacité, tu devrais y arriver !
Les commentaires sont là pour comprendre ce que fait le code donc, lis les bien puis, comme dit plus haut, mets le curseur dans le code et appuis sur F5 pour voir le résultat.
Reviens ici pour les questions qui te turlupinent ;)