Discussion :

[zaza45]

Bonjour

J'ai un petit souci, et je ne sais vraiment pas quelle formule utiliser.

J'aimerai récupérer une valeur d'une table qui ne se retrouve pas dans une autre table. Je ne peux pas utiliser de TCD, ni la fonction recherchev car je ne connais pas la valeur.

En plus clair, je l'espére !

J'ai une table (feuil 1) avec pour chaque article un code X en col "G"

J'ai un tableau (feuille synthése) avec pour chaque code X (en col A)un total.

S'il y a un code supplémentaire non connu dans la feuille synthèse j'aimerai l'afficher à la fin de la col A de feuille synthése.

Mercvi beaucoup pour votre aide

[QuestVba]

Bonjour,

Dans ce super tuto, tu devrais trouver ton bonheur. Il y est expliqué les doublons mais également les déifférences

[zaza45]

Bonour Questvba

Je ne trouve pas dans ce tuto la réponse à mon problème car je veux afficher les valeurs de la table qui ne sont pas dans la synthèse. Ma table de 1000 lignes par ex avec codes T002, T005, T040, T106 et T402.

Dans ma synthèse, j'ai les codes T002, T005, T040, T106 mais pas le T402.
J'aimerai qu'il s'affiche dans mon tableau synthèse.

Je ne connais jamais les nouveaux codes.

C'est excatement ce que fait un TCD, mais sont utilisation est impossible dans mon fichier.

[QuestVba]

Bonjour,
Tu pourrais mettre ton fichier en effaçant ce qui est perso pour être certain de ne pas m'aventurer dans ...???

[casefayere]

Bonjour,

Sinon, une idée qui reprend toutes les données en feuille "synthèse"

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
Option Explicit
Dim x As Integer, cel As Range, tb()
Sub Maj()
With Sheets("Feuil1")
   x = .Range("G" & .Rows.Count).End(xlUp).Row
   Sup_doublons .Range("G2:G" & x)
End With
Application.Calculation = xlCalculationManual
With Sheets("synthèse")'Attention correction du mot synthèse, snon remplacer par ton nom de feuille 
  x = .Range("A" & .Rows.Count).End(xlUp).Row
  If x > 1 Then
    .Range("A2:B" & x).ClearContents
  End If
  .Range("A2").Resize(UBound(tb), 1) = Application.Transpose(tb) '
  x = .Range("A" & .Rows.Count).End(xlUp).Row
  .Range("B2:B" & x).FormulaLocal = "=SOMME.SI(Feuil1!$G$2:$G$646;A2;Feuil1!$H$2:$H$646)" 'totoal en col B
End With
Application.Calculation = xlCalculationAutomatic
End Sub
 
Sub Sup_doublons(Plg As Range)
Dim Un As Collection
x = 0
Set Un = New Collection
On Error Resume Next
With Sheets("Feuil1")
  For Each cel In Plg
    Un.Add cel, CStr(cel)
    If Err = 0 Then
      x = x + 1
      ReDim Preserve tb(1 To x)
      tb(x) = cel
    End If
    Err.Clear
  Next cel
End With
Set Un = Nothing
End Sub

[papouclo]

Bonjour,
Comment les codes de la base de données sont-ils récupérés sur la feuille Synthèse ? Il ne s'agit pas de TCD donc sont-ils récupérés par formule ? Dans ce cas, pourquoi en manquerait-il ?
Sont-ils écrits manuellement ? Le mieux est peut-être le mise à disposition du fichier qui t'as été demandée.
Le classeur joint ne répond pas tout à fait à la demande puisque les codes nouveaux ne sont pas rajoutés à la suite de la colonne A dans la feuille Synthèse, mais, à l'aide d'une formule matricielle,
ils le sont dans une autre colonne ( dans l'exemple colonne C), à charge pour l'utilisateur de compléter la colonne A.
Autre problème : lorsqu'un code non écrit dans la colonne A de la feuille Synthèse a plusieurs occurrences dans la base de données, il apparait autant de fois dans la colonne C de "récupération",
mais c'est un moindre mal car en notant ce code en colonne A, toutes les occurrences de la colonne C disparaissent.
Cordialement
Claude