Discussion :

[laurentdx59]

Bonjour à tous,

Je sollicite votre aide pour une problématique que je n'arrive pas à résoudre en VBA malgré mes recherches et quelques tentatives infructueuses.

J'ai un fichier avec les deux onglets suivants:

- BASE: base de données que je viens extraire chaque semaine mon portefeuille client mis à jour

- SYNTHESE: fichier de travail sur laquelle j'ai ma liste de clients présents avant la mise à jour. C'est un fichier de travail sur lequel je viens intégrer des commentaires manuellement sur la colonne "Commentaire"

Je souhaiterais donc que, via une macro, les lignes concernant les nouveaux clients qui apparaissent dans l'onglet "BASE", viennent s'intégrer dans mon onglet Synthèse à la suite de mes lignes existantes.

Par contre, étant donné que j'avais intégré des commentaires de façon manuelle, je ne dois pas écraser les lignes déjà existantes pour ne pas avoir de décalage sur les commentaires et les numéros de commandes.

Je ne sais pas si je suis très clair mais je vous mets un petit exemple du fichier Excel que j'adapterai sur mon vrai fichier.

Merci d'avance pour votre aide.

[Alex020181]

Bonjour,

Voici un exemple de façon de faire.
En plus de votre demande de transfert de données j'ai mis les cellules au format texte pour ne pas qu'Excel enlève les "0" de premiers caractères.

[laurentdx59]

Super. Merci, ca ressemble à ce que je recherche. Je vais donc l'adapter à mon fichier !

Merci beaucoup !

[MarcelG]

Bonsoir le Forum,

Un tant soit peu, avec un investissement - toujours profitable - sur les tables de données (tableaux structurés)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub Compilation()
 
With ThisWorkbook.Worksheets("SYNTHESE").Range("T_Synthèse")
      .Range("A1").Offset(.Rows.Count, 0).Resize(Range("T_Base").Rows.Count, Range("T_Base").Columns.Count).Value = Range("T_Base").Value
End With
 
End Sub