problème macro vba collage

**olodin** · 18/06/2007, 10h09

Bonjour,
Je cherche à creer une macro excel vba qui me récupère le contenu de diverses colonnes, de les coller dans une autre feuille du meme classeur.
Cette macro doit etre lancer à la fermeture du classeur, mais le truc c'est que lors de la copie il ne doit pas i avoir de redondence (c'est à dire que les lignes crées lors de la copie ne doivent pas etre identique à celle deja enregistrées).
Si quelqu'un voit ce que je veut dire qu'il me dise comment faire.
Merci d'avance.

**ouskel'n'or** · 18/06/2007, 10h22

Montre-nous ce que tu as essayé, car tu as bien dû essayé quelque chose

Cela nous évite de répondre à côté et nous montre que tu ne nous demande pas de faire le boulot à ta place.
A+

**olodin** · 18/06/2007, 10h25

ok pas de problème voila le code de la macro qui permet de récupérer les données que je veut vers la feuille mais je n'arrive pas à l'automatiser et eviter les doublons.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 Range("A11:A93").Select
    Selection.Copy
    Sheets("synthèse").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C13").Select
    Sheets("Parametres contrôle poids").Select
    ActiveWindow.SmallScroll Down:=-72
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    Range("C11:C93").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("synthèse").Select
    Range("N2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L13").Select
    Sheets("Parametres contrôle poids").Select
    ActiveWindow.SmallScroll Down:=-87
    Range("D11:K93").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("synthèse").Select
    ActiveWindow.SmallScroll Down:=-9
    Sheets("Parametres contrôle poids").Select
    ActiveWindow.SmallScroll Down:=-93
    Range("H11:K93").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("synthèse").Select
    Range("C2:F75").Select
    ActiveWindow.SmallScroll Down:=-51
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H13").Select
    Sheets("Parametres contrôle poids").Select
    ActiveWindow.SmallScroll Down:=-90
    Range("N17").Select
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    Range("M11:P93").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("synthèse").Select
    Range("G2:J33").Select
    ActiveWindow.SmallScroll Down:=-30
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I13").Select
    Sheets("Parametres contrôle poids").Select
    ActiveWindow.SmallScroll Down:=-84
    Range("Q11:R93").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("synthèse").Select
    Range("K2:L26").Select
    ActiveWindow.SmallScroll Down:=-33
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H24").Select
    Sheets("Parametres contrôle poids").Select
    ActiveWindow.SmallScroll Down:=-84
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    Sheets("synthèse").Select
    Range("A2").Select
    ActiveWindow.SmallScroll Down:=-6

**Commodore** · 18/06/2007, 10h26

ce sujet est présent 2 fois sur le forum :s
http://www.developpez.net/forums/sho...d.php?t=360742

<edit>L'autre est en delestage, je vais me delester aussi alors

</edit>

**olodin** · 18/06/2007, 10h27

pour commodor psycopate: l'autre message je les delesté.

**olodin** · 18/06/2007, 11h20

si vous voulez je reformule ma demande:
Je souhaite creer une macro se lancant à l'ouverture du classeur excel. Il faut que cette macro puisse copier les valeurs de cellules par lignes (mais pas cetaine colonnes) et verifie si la ligne à copier n'est pas existante dans la feuille qui sert de synthèse aux copies. Le but est de lister les nouvelles saisies automatiquements dans une feuille autre que celle de la saisie.

**Commodore** · 18/06/2007, 11h31

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
Sub copier()
 
    Dim lig As Integer, col As Integer
 
    lig=1 : col=1 'mettre les lignes et colonnes de départ
 
    While cells(lig, col) <> empty
        If verif_exist(maFeuilleDestination, Cells(lig, col).Value) Then
            i=i+1
        Else
            Cells(lig,col).copy
            Worksheets(maFeuilleDestination).Cells(lig_cible, col_cible).PasteSpecial xlPasteValues
            i=i+1
        End If
    Wend
End Sub
 
Function Verif_Exist(feuille as String, valeur as <?>) as Boolean 'mettre le type des cellules a verifier
    Worksheets(feuille).Activate    
    While Cells(i, j) <> Empty
        If Cells(i,j).Value = valeur Then 
            Verif_Exist=True            
        Else 
            i=i+1
        End If
    Wend
    Verif_Exist=False
End Function

Voila quelque chose qui devrait t'aider.
Il reste à le customiser avec les spécificités de tes fichiers.

Attention, je n'ai pas testé le code, il pourrait y avoir qqes erreurs, mais je compte sur tous les yeux qui liront ce message pour les repérer

**olodin** · 18/06/2007, 11h47

en fait le code que tu a mis me permet de faire la verification et l'importation??? car le mien fait juste une copie et l'importation.

**Commodore** · 18/06/2007, 11h48

ce code permet de tester si une cellule est dans une autre feuille et de l'y importer si ce n'est pas le cas.

**olodin** · 18/06/2007, 12h33

ok

en fait je n'est pas besion du code que j'ai mis sur le forum. mais faut-il que je réecrive se code pour chaque cellule à copier?

**Commodore** · 18/06/2007, 13h33

ben, normalement ça boucle sur une ligne ou une colonne, ça depend si tu remplace i par lig ou par col

edit: attention, j'ai remarqué une erreur et je viens de la corriger

**olodin** · 18/06/2007, 14h05

Code :

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

'mettre les lignes et colonnes de départ

sa veut dire que je met les lignes et colonnes que je veut copier?

**olodin** · 18/06/2007, 14h16

en fait je ne comprend pas trés bien ou je doit placer mes cellules à copier dans ton codes et ou placer celles qui auront la copie.
Peut tu men dire plus stp

**Commodore** · 18/06/2007, 14h18

ça veut dire que la premiere cellule de la colonne a copier a pour coordonnées (lig,col), que j'ai mis tous deux à 1 pour l'exemple.

après, ce code est sans doute imparfait pour ton cas précis, à toi de l'adapter à tes besoins. Mais le principe de fonctionnement est là, dans les grandes lignes :
1 boucle de copie
1 boucle de verification anti doublon

en gros:
Nommons "colonne source" les valeurs a copier
et "colonne cible" là où elles sont copiées

Tu prends la 1ere valeur de la colonne source.
Tu vérifies qu'elle n'est pas déjà dans la colonne cible.
Si elle y est tu passes a la valeur suivante dans la colonne source.
Sinon tu copies à la fin de la colonne cible puis tu passes a la valeur suivante de la colonne source.
Et ainsi de suite...

ça fait quand même un algo et un bout de code... tu devrais t'en sortir avec tout ça

**olodin** · 18/06/2007, 14h25

merci sa va mieu . g pas trop l'abitude de programmer dans excel ou access. (je prefert monter tout de a à z (comme avec visual studio) je suis perdu avec tous ces parametre à prendre ne compte;
Merci pour t conseil en tout cas.

**olodin** · 18/06/2007, 14h44

ok mais tu crois que je peut mettre tous ce code dans une boucle pour faire passer chaque cellules que je veut copier?

**Commodore** · 18/06/2007, 14h48

la boucle est dejà dans mon code. il ne te reste plus qu'a faire les réglages nécessaires pour l'adapter à ton cas.

**olodin** · 18/06/2007, 14h51

sa va ,sa va !!!
ne t'enerve pas .
je v me débrouiller avec se que tu m'a donné. merci pour le cou de main car déjà je ne serait pas &rrivé ici tous seul.

**Commodore** · 18/06/2007, 14h51

je ne m'énerve jamais

**olodin** · 18/06/2007, 14h55

ous (ya enbrouille là)

je peu etre chiant a en tro demander désolé si ta du penser derrière ton ecran que ta affaire à un relou de service qui casse les biiiiiiiiip.
encore désolé et merci

problème macro vba collage

Macros et VBA Excel

Discussions similaires

Partager

Partager