Discussion :

[bobafric]

Bonjour à tous
Mon intitulé n'est pas très expressif, mais pour l'être il eut été trop long.
Mon projet:
Dans un classeur plusieurs feuilles"1", "2", "3", "4", "cumul"
dans la colonne A de des feuilles 1,2,3,4 des nombres aléatoires inscrits dans la plage (A1:A50).
Je voudrai à partir de la feuille active 1 ou 2 ou 3 ou 4 copier les nombres dans la collonne B de la feuille "cumul", sans faire de doublons.
L'opération ne se fait qu'une seule fois par feuille, c'est à dire qu'on commence par la feuille 1 et qu'on ne reviendra pas dessus.
Je joins un exemple du résultat que j'espère, et que j'adapterai ensuite à mon programme.
Merci d'avance pour vos propositions
Bob

[jfontaine]

Bonjour,

Ce code devrait faire l'affaire

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
 
Dim i As Long
Dim lngDest As Long
Dim lngSource As Long
 
lngDest = 1
 
 
For i = 1 To 4
 
    lngSource = 1
 
    Do While Sheets(i).Range("A" & lngSource).Value <> ""
 
        If Application.WorksheetFunction.CountIf(Sheets("cumul").Range("B:B"), Sheets(i).Range("A" & lngSource).Value) = 0 Then
 
            Sheets("cumul").Range("B" & lngDest).Value = Sheets(i).Range("A" & lngSource).Value
            lngDest = lngDest + 1
 
        End If
 
        lngSource = lngSource + 1
 
    Loop
 
Next i

[Pierre Fauconnier]

Bonjour

Tu ne précises pas la version d'Excel

Si tu es en XL2007, tu peux utiliser la nouvelle procédure de suppression de doublons

Code :

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

1
2
3
4
5
6
7
Sub TransfertSansDoublons()
    Worksheets("A").Range("a1:a50").Copy Destination:=Worksheets("cumul").Range("b1")
    Worksheets("B").Range("a1:a50").Copy Destination:=Worksheets("cumul").Range("b51")
    Worksheets("C").Range("a1:a50").Copy Destination:=Worksheets("cumul").Range("b101")
    Worksheets("D").Range("a1:a50").Copy Destination:=Worksheets("cumul").Range("b151")
    Worksheets("cumul").Range("b1:b200").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

[bobafric]

Salut JFontaine salut Pierre
Je suis sur excel 2003

J'ai ouvert un module avec le code de Jfontaine, et ensuite à partir de la feuille "1" ou "2" ou "3" etc j'active la macro.
Ton code me donne ce message:

Erreur de compilation
instruction incorrecte à l'extérieur d'une procédure
lngDest = 1
Merci Bob

[Pierre Fauconnier]

Je prends le relais de Jérôme...

Tu dois bien entendu encapsuler le code proposé dans une procédure existante.

S'il n'y en a pas, tu dois faire débuter le code par exemple par la ligne

Code :

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

sub transfert()

et le terminer par la ligne

Code :

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

end sub

[bobafric]

Salut les gars
Le code fonctionne à merveille mais je veux appliquer le code que pour la feuille active car le transfert est journalier. Je veux éviter de repasser sur les feuilles dont les données ont déjà été transférées. Cette application se portera sur une trentaine de page (calendrier mensuel)et une centaine de lignes.Si le code doit tout repasser à chaque fois, ça va mettre un temps fou.
Ne peut_on pas insérer "ActiveSheet" dans la partie du code ci-dessous

Code :

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

 Do While Sheets(i).Range("A" & lngSource).Value <> ""

Merci d'avance
Bob