Discussion :

[ElPibeOro]

Bonjour,

J'ai mi en place une macro permettant de transférer les données d'une feuille "Centre Agglo Investissement" vers une feuille "Investissement".

Cependant un problème persiste et j'ai du mal à le résoudre :

En effet, pour l'instant, lorsque je clique sur le bouton où la macro est affectée, les lignes sont transférer dans la feuille "Investissement", et si je reclique une deuxième fois, les lignes sont à nouveau transférées et se retrouvent donc en doublons dans ma feuille.
J'aurai aimé que seules les lignes qui n'ont pas été transférées le soient, pour éviter les doublons dans ma feuille Investissement.
Avez-vous une idée pour effectuer cette opération ? Voici mon code :

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
Sub ALIMENTER()
 
'Déclaration des variables'
Dim MonProgramme As String
Dim Feuille_Source As Worksheet
Set Feuille_Source = Worksheets("Centre Agglo Investissement")
Dim Feuille_Cible As Worksheet
Set Feuille_Cible = Worksheets("Investissement")
Dim lig As Long
Dim derlig As Long, ligne_Fin As Long
Dim end_Line As Long
 
'Récupération de la dernière ligne remplie'
derlig = Feuille_Source.Range("B" & Rows.Count).End(xlUp).Row
 
'Copie de la dernière ligne remplie'
For lig = 5 To derlig
 Feuille_Source.Activate
    MonProgramme = Trim(Feuille_Source.Cells(lig, 2).Value)
    Feuille_Source.Range(Cells(lig, 2), Cells(lig, 32)).Copy
 Feuille_Cible.Activate
 
                        'Recherche du programme correspondant puis copie de la ligne à la suite de ce programme"
                        ligne_Fin = Range("b" & Rows.Count).End(xlUp).Row
                        Set R = Feuille_Cible.Range("b:b").Find(MonProgramme, lookat:=xlWhole)
                            If Not R Is Nothing Then
                               ligneDeb = R.Row
                            End If
                            nbVal = Application.WorksheetFunction.CountIf(Range(Cells(ligneDeb, 2), Cells(ligne_Fin, 2)), MonProgramme) - 1
                            end_Line = ligneDeb + nbVal
                            Feuille_Cible.Cells(end_Line + 1, 2).Select
                            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
                           Application.CutCopyMode = False
 
 
Next lig

Merci d'avance pour votre aide !

[Fred.dz]

Je vois 2 solutions à ton problème selon tes besoins:
-Supprimer tout ce qu'il y a dans la feuille "investissement" avant de la remplir. Mais je suppose que tu as besoin de garder les trucs.

-La deuxième solution c'est de dédoublonner. Pour ça tu as 2 options:

• Solution un peu bourrin qui est d'utiliser la fonction "supprimer les doublons" d'Excel. Tu peux enregistrer la macro et recupérer le code en l'adaptant.
• Ou te reprogrammer un truc qui dédoublonne. En gros tu remplis une collection avec en item le numéro de la ligne et en key la "clé primaire de ta base de donnée" (en gros le truc le plus petit qui pourra te permettre de dire que 2 lignes sont parfaitement identiques). Et ensuite tu te sert de cette collection pour supprimer toutes les lignes dont le numéro n'apparait dans la collection (pour ça il faut que tu fasse un boucle for en step -1).

[nibledispo]

bonjour,

je t'invite à regarder la discussion suivante sur DVP

http://www.developpez.net/forums/d13...ssai-tableaux/

Ccordialement.

[ElPibeOro]

Merci a vous deux pour vos réponses.

Etant débutant en langage VBA sur Excel (je n'en ai plus fais depuis 3 ans) je comprends ce que vous voulez dire mais j'ai du mal à le mettre en place dans ma macro.

Fred, je pense que la deuxième solution la moins "bourrine" est la bonne. J'ai effectivement une colonne qui peut jouer le rôle de clé primaire qui est un numéro d'opération. Cela permettra d'être sûr d'éviter les doublons.
Mais je ne vois pas comment intégrer la boucle for dans mon code...

Nibledispo, je suis allé voir la discussion que tu proposais, d'aprés ce que je comprends la ligne importante serait celle-ci :

Code :

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

mDico(sh1.Cells(i, 1).Text) = mDico(sh1.Cells(i, 1).Text) + sh1.Cells(i, 2).Text

Mais à quelle ligne cela correspond dans mon code ?

Merci encore pour votre aide

[Fred.dz]

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
dim numligneconserver as collection
dim trouve as boolean
dim i as long 
dim j as long
 
 
For i=premligne to dernligne
     on error resume next
            numligne conserver.add i, cells(i,?) '? étant le numéro de la colonne de ton numero d'operation
     on error goto 0
next i
 
For i=dernligne to premligne step-1
     trouve=false
     for j=1 to numligneconserver.count
           if i=numligneconserver(j) then
                trouve=true
                exit for
           end if
     next j
     if trouve=false then
           rows(i).delete
     end if
next i

[patricktoulon]

bonjour

nible dispo t'a donner un lien qui corespond a ton souci a 100 %

principe

mettre ce qui il y a dans ton sheets de destination dans un dictionnaire

ensuite boucler sur les cells du ou des sheets concerné et tester si il sont present dans le dico

instruire un tableau en fonction de la presence ou pas

tres simple en terme de code je te laisse aler voir le lien

Au plaisir