Discussion :

[marcm]

Bonjour à vous tous
Voici mon problème
j'ai trois feuilles, montreal, region, tous
les trois feuilles ont les mêmes colonnes ( nom, prénom, adresse, ville, etc.)
Je rentre des noms dans la feuille montreal et region. J'ai besoin d'une macro qui prendra les noms des deux feuilles et les copieront dans la feuille tous. Le code que vous voyez en bas fait très bien le travail. Par contre, si je change une donnée sur la feuille montreal ou region et que l'employé est déjà dans la feuille tous, les données ne se mettent pas à jour. Voici un exemple. Dans la feuille montréal j'écris

Tremblay Erick Finance
je pèse sur la macro, elle copie les donneés dans la feuille tous
je me rends compte que Erick ne prend pas de "K" je retourne sur la feuille montréal, corrige le nom, et quand je pèse sur la macro, elle ne fait pas le changement parceque le nom est déjà transféré.

Est-ce que quelqu'un peut m'aider.
Voici mon code
Marc

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
Sub fusion()
 
    Dim c As Range, PlageRecap As Range, Plage As Range
    Dim Ligne As Long
    Sheets("tous").Select
    Set PlageRecap = Range("A1", Range("A65536").End(xlUp))
    Ligne = PlageRecap.Rows.Count + 1
    Sheets("region").Select
    Set Plage = Range("A2", Range("A65536").End(xlUp))
    For Each c In Plage
        If Not IsNumeric(Application.Match(c, PlageRecap, 0)) Then
            c.EntireRow.Copy Sheets("tous").Cells(Ligne, 1)
            Ligne = Ligne + 1
        End If
    Next c
    Sheets("montreal").Select
    Set Plage = Range("A2", Range("A65536").End(xlUp))
    For Each c In Plage
        If Not IsNumeric(Application.Match(c, PlageRecap, 0)) Then
            c.EntireRow.Copy Sheets("tous").Cells(Ligne, 1)
            Ligne = Ligne + 1
        End If
    Next c
End Sub

[cwain]

Vite fait, je vois 2 solutions rapides :
- utiliser une seule feuille, ajouter une colonne avec le choix "Montreal" ou "Region", et puis utiliser les filtres d'excel sur cette colonne pour afficher seulement les lignes avec Montreal ou seulement les lignes avec Region. Mais bon je suppose que si tu as 3 feuilles c'est que tu en as besoin
- Réinitialiser ta feuille "tous" à chaque lancement de macro : tu rajoutes

Code :

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

Worksheets("tous").cells.value=""

avant de lancer ton calcul
- et si tu ne veux pas réinitialiser les données de la feuille "tous", une fois que tu as "matché" que la ligne existe dans les deux feuilles, tu te débrouilles pour trouver à quelle ligne ça correspond dans la feuille "tous" et comparer cellule par cellule, si tu trouves une différence, tu remplaces, mais bon dans ce cas je vois pas pourquoi tu ne réinitialises pas ta feuille entière

Cwain (2 solutions=3 en fait)

[marcm]

Merci Cwain

mais dans ton code après le symbole =, tu as écrit ""
ajoutes quoi à l'intérieur des guillemets, s'il y a quelque chose à rajouter bien sur.

merci de ton aide
marc

[cwain]

justement, c'est pour supprimer toute valeur, pour réinitialiser ta feuille

[marcm]

Je viens d'essayer, cela fonctionne pas, elle refait le travail, mais n'efface pas les données déjà dans la feuille

merci de m'aider

[alsimbad]

salut
utilise par exemple

Code :

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

worksheets ("tous").range ("a1").CurrentRegion.clearcontents

[cwain]

Comprend pas, ça marche chez moi
sinon le ClearContents est plus propre effectivement
Sheets("tous").Cells.Clearcontents pour tout effacer
sinon carrément supprimer l'onglet et en créer un qui s'appelle "tous" mais c'est un peu beaucoup pour une petite manip

[marcm]

Meric à tous ceux qui ont travaillé sur le projet. Tout fonctionne à merveille. Un gros merci

Marc

[cwain]

heu.. tu as utilisé quoi finalement ?