Discussion :

[solorac]

Bonjour la Communauté,

Je viens de créer un bon de commande téléphonique et je voudrais maintenant, dans un onglet différent, qu'il se crée automatiquement un récapitulatif.
Est-ce possible de le faire avec une macro ?

Si oui, pourriez-vous m'orienter sur un début de code ?

En sachant que je voudrais qu'il s'affiche uniquement les références commandées et les quantités.
Mon tableau de saisie se présente actuellement avec 3 x 4 colonnes (ref - qte - pu - poids) et j'ai 752 références.

Si vous voulez un exemple de mon tableau, demandez-le moi !

A bientôt

[EvaristeGaloisBis]

as tu fait quelque chose au moins?

[solorac]

Bien sur, mon tableau de cde est opérationnel.
Il y a une macro pour la remise à zéro, mais pour le récap, je n'ai rien commencé car je ne sais pas comment commencer.

[EvaristeGaloisBis]

Deux méthodes :
Méthode 1:
Etape 1 : savoir ce que l'on veut remonter et le format des données
Etape 2 : récuperer toutes les données dans la feuilles ou les classeurs
Etape 3 : faire le tableau en mémoire
Etape 4 : coller le tableau dans la feuille résultat

Ou alors
Methode 2:
Etape 1 : penser ses données pour une pivotTable
Etape 2 : faire une pivot table
Etape 3 : la rafraichir dès qu'un nouveau produit est booké.

[solorac]

Quelle est la méthode la plus simple ?

Où trouver toutes les infos pour la mise en place de ces méthodes ?
Existe-t-il des tutoriels ?
Merci

[EvaristeGaloisBis]

La méthode la plus simple est la deuxieme (si tu es en 2007). Peu ou prou de code, et possibilité d'approfondir a loisir le tableau par l'utilisateur sans passer par le dev.
le tuto developpez.com : http://silkyroad.developpez.com/excel/tcd/

Sinon pour la premiere méthode tu peux faire ça

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
Public Function GetDataFromRg(rgData As Range, vtab_Out As Variant, stErrMsg As String) As Boolean
'fonction qui permet d'aspirer des données dès lorsqu'on connait au moins une cellule dans la feuille.
  On Error GoTo ErrorHdlr
  vtab_Out = rgData.CurrentRegion.Cells.Value
 
  GetDataFromRg = True
Exit Function
ErrorHdlr:
 stErrMsg = "Erreur dans le Range"
End Function
 
 
 
Public Function PasteDataInRg(vtabToPaste As Variant, rgToPaste As Range, stErrMsg As String) As Boolean
Dim iRow As Long
Dim iCol As Long
 
Dim iMaxRow As Long
Dim iMaxCol As Long
Dim iMinRow As Long
Dim iMinCol As Long
 
 
  With rgToPaste
    iRow = .Row
    iCol = .Column
  End With
 
  iMaxCol = UBound(vtabToPaste, 2)
  iMaxRow = UBound(vtabToPaste, 1)
  iMinCol = LBound(vtabToPaste, 2)
  iMinRow = LBound(vtabToPaste, 1)
 
  rgToPaste.Range(TranscoNb2Car(iCol) & iRow & ":" & TranscoNb2Car(iCol + iMaxCol - iMinCol) & iRow + iMaxRow - iMinRow).Value = vtabToPaste
 
  PasteDataInRg = True
End Function
 
'///////////////////////////////
'
' MAIN
'
'
Public Sub Main()
 
 
Dim vtabData As Variant
Dim iDataMaxRow As Long
Dim stErrMsg As String
 
Dim vtabResult As Variant
 
  'Get data
  If Not GetDataFromRg(ThisWorkbook.Sheets(NOM_FEUILLE).Range(NOM_RANGE), vtabData, stErrMsg) Then GoTo ErrorHdlr
 
  'la je ne peux pas du tout t'aider car seul toi sait ce qu'il y a dans ton tableau et ce qu'il faut dans ton report
  If Not MakeMyReport(vtabData, vtabResult, stErrMsg) Then GoTo ErrorHdlr
 
  'Paste
  If Not PasteDataInRg(vtabResult, ThisWorkbook.Sheets(NOM_FEUILLE).Range(NOM_RANGE), stErrMsg) Then GoTo ErrorHdlr
 
  Exit Sub
ErrorHdlr:
  MsgBox stErrMsg, vbOKOnly, "Attention Erreur!"
End Sub

Je te laisse faire le code de la fonction TranscoNb2Car car il est trivial.

Amuse toi bien