Discussion :

[Mielure]

Bonjour,

Voila mon probleme:
Dans un classeur excel, j'ai 16 feuilles, La feuille 1 sert a entrer des donnée, les autres (feuilles 2 à 16) servent à synthetiser les données entrées dans la feuille 1. Les feuilles 2 à 16 representent des vehicules.
Ce que je veux faire par l'intermediaire d'un bouton (que j'ai crée) c'est recuperer la valeur de certaine cellules (toujours les mêmes) et l'ecrire dans les cellules de la feuilles correspondante au n° de vehicule, et qu'a chaque fois que la feuille 1 est renseiqnée ecrire à la suite dans le tableau de la feuille du vehicule.
Exemple:Feuille 1 cellule E4 vers vehicule 2 cellule B6 puis B7 ...
Je cherche le code à mettre dans le bouton mais etant completement incompetant en VBA excel je me rapproche de vos competences pour avoir un peu d'aide.
Quitte à etre ridicule voila seulement ce que j'ai reussi à mettre dans mon bouton avec l'enregistreur de macro.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ENREGISTRE_Click()
'
' Macro3 Macro
' Macro enregistrée le 02/02/2009 par 6710260L
'
 
'
    Selection.Copy
    Range("C21").Select
    Sheets("TT01").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

C'est trés peu, mais c'est un debut.
Merci pour votre aide.

[drakkar_agfa]

Bonjour,

Je viens de répondre à une question similaire.
Boici http://www.developpez.net/forums/d67...e-creer-macro/

Regarde ce code et essais de l'adapter.
Il est utilisé pour trier la première feuille dans les autres feuilles. Et si la feuille correspondante n'éxiste pas, elle est créée.

Tiens nous au courant.

[Mielure]

Bonjour,
Désolé de ne pas avoir répondu avant.
Merci drakkar_agfa pour ta réponse.
J'ai trouvé le solution avec l'aide d'un collègue qui utilise un peu VBA.
Voici le code que l'on a écrit:

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
Sub General()
 
Feuille = Feuil1.Cells(3, 10)
Sheets(Feuille).Select
 
a = 3
 
Do Until Cells(a, 1) = ""
    Cells(a, 1).Select
    a = a + 1
Loop
 
'Renvoi les cases
Cells(a, 1) = Feuil1.Cells(10, 5)
Cells(a, 2) = Feuil1.Cells(11, 5)
Cells(a, 3) = Feuil1.Cells(7, 5)
Cells(a, 4) = Feuil1.Cells(8, 5)
Cells(a, 5) = Feuil1.Cells(10, 7)
Cells(a, 6) = Feuil1.Cells(11, 7)
Cells(a, 7) = Feuil1.Cells(7, 7)
Cells(a, 8) = Feuil1.Cells(8, 7)
Cells(a, 9) = Feuil1.Cells(10, 9)
Cells(a, 10) = Feuil1.Cells(11, 9)
Cells(a, 11) = Feuil1.Cells(7, 9)
Cells(a, 12) = Feuil1.Cells(8, 9)
Cells(a, 13) = Feuil1.Cells(10, 11)
Cells(a, 14) = Feuil1.Cells(11, 11)
Cells(a, 15) = Feuil1.Cells(7, 11)
Cells(a, 16) = Feuil1.Cells(8, 11)
Cells(a, 17) = Feuil1.Cells(10, 13)
Cells(a, 18) = Feuil1.Cells(11, 13)
Cells(a, 19) = Feuil1.Cells(7, 13)
Cells(a, 20) = Feuil1.Cells(8, 13)
Cells(a, 21) = Feuil1.Cells(10, 15)
Cells(a, 22) = Feuil1.Cells(11, 15)
Cells(a, 23) = Feuil1.Cells(7, 15)
Cells(a, 24) = Feuil1.Cells(8, 15)
Cells(a, 25) = Feuil1.Cells(10, 17)
Cells(a, 26) = Feuil1.Cells(11, 17)
Cells(a, 27) = Feuil1.Cells(7, 17)
Cells(a, 28) = Feuil1.Cells(8, 17)
Cells(a, 29) = Feuil1.Cells(10, 19)
Cells(a, 30) = Feuil1.Cells(11, 19)
Cells(a, 31) = Feuil1.Cells(7, 19)
Cells(a, 32) = Feuil1.Cells(8, 19)
Cells(a, 33) = Feuil1.Cells(3, 6)
Cells(a, 34) = Feuil1.Cells(3, 14)
Cells(a, 35) = Feuil1.Cells(3, 18)
 
End Sub

Plus ça dans le code du bouton:

Code :

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

1
2
3
Private Sub ENREGISTRE_Click()
Call General
End Sub

Encore merci pour l'aide que vous m'avez apporté.
A+