Obtention d'un array à partir de 2 autres (VBA)

E

Eric 45

XLDnaute Occasionnel

• 2 Novembre 2018

• #2

Bonjour à toutes et tous
Bonjour Chatounet

Essaie ceci :

Code:

Montab = Array(w,y)

Eric

 

Vote positif 0 Vote négatif

C

chatounet

Guest

• 2 Novembre 2018

• #3

Merci Eric
Ta proposition concatène les 2 tableaux mais ne les soustrait pas. Une autre idée ?

 

Vote positif 0 Vote négatif

E

Eric 45

XLDnaute Occasionnel

• 2 Novembre 2018

• #4

essaie ceci :

Code:

Private Function TABLP1()
  TABLP1 = w
End Function

Private Function TABLP2()
  TABLP2 = y
End Function

  Tabl = Evaluate("TABLP1() - TABLP2()")
  'on aurait pu aussi écrire :
  Tabl = [TABLP1() - TABLP2()]

Eric

 

Vote positif 0 Vote négatif

C

chatounet

Guest

• 2 Novembre 2018

• #5

Eric
Merci pour ta persévérance. Mais ta proposition donne une Erreur 2029.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 2 Novembre 2018

• #6

Bonjour,

ce que j'ai compris

Boisgontier

 

Pièces jointes

• Classeur1.xls

  37 KB · Affichages: 22

Vote positif 0 Vote négatif

C

chatounet

Guest

• 2 Novembre 2018

• #7

Merci à tous Eric, Jacques,
Je joins mon classeur ; je pense que serait le plus simple.

 

Pièces jointes

• rec sns nm.xlsm

  431.4 KB · Affichages: 18

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 2 Novembre 2018

• #8

Bonjour,

ce que j'ai compris

Code:

Sub essai()
  '-- simulation w() et y()
  Dim w(1 To 31), y(1 To 3)
  m = 1: an = 2018
  For j = 1 To 31
    w(j) = DateSerial(an, m, j)
  Next j
  y(1) = DateSerial(2018, 1, 2)
  y(2) = DateSerial(2018, 1, 5)
  y(3) = DateSerial(2018, 1, 8)
  '--- différence z=w()-y()
  Set d1 = CreateObject("scripting.dictionary")
  For Each c In y(): d1(c) = "": Next c
   Set d2 = CreateObject("scripting.dictionary")
   For Each c In w
     If Not d1.exists(c) Then d2(c) = ""
   Next c
   Z = d2.keys
   [A1].Resize(, UBound(Z)) = Z
End Sub

Boisgontier

 

Pièces jointes

• Classeur1.xls

  35.5 KB · Affichages: 18

Vote positif 0 Vote négatif

C

chatounet

Guest

• 2 Novembre 2018

• #9

Merci encore J. Boisgontier
Le résultat de votre proposition n'est pas ce que j'attendais : des 31 jour de janvier (dans mon cas W) il faudrait ôter les éléments de Y :
09/01/2017
11/01/2017
12/01/2017
13/01/2017
16/01/2017
17/01/2017
18/01/2017
19/01/2017
26/01/2017
27/01/2017
30/01/2017
31/01/2017
ainsi j'obtiendrais :
01/01/17
02/01/17
03/01/17
04/01/17
05/01/17
06/01/17
07/01/17
08/01/17
10/01/17
14/01/17
15/01/17
20/01/17
21/01/17
22/01/17
23/01/17
24/01/17
25/01/17
28/01/17
29/01/17

 

Vote positif 0 Vote négatif

C

chatounet

Guest

• 2 Novembre 2018

• #10

Rectificatif pour J. Boisgontier
Votre solution est conforme à mon attente. Je l'avais mal lue. Toutes mes excuses et mes remerciements.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Novembre 2018

• #11

Bonjour,

Sous forme de fonction

Code:

Function ComplementArray(a, b)
  Set d1 = CreateObject("scripting.dictionary")
  For Each c In b: d1(c) = "": Next c
   Set d2 = CreateObject("scripting.dictionary")
   For Each c In a
     If Not d1.exists(c) Then d2(c) = ""
   Next c
   ComplementArray = d2.keys
End Function

Boisgontier

 

Pièces jointes

• ComplementArray.xls

  37.5 KB · Affichages: 20

Vote positif 0 Vote négatif

C

chatounet

Guest

• 3 Novembre 2018

• #12

Merci à tous Eric, Jacques,
Merci pour tout ; vos réponses m'ont beaucoup aidé à poursuivre mon projet.
Cordialement

 

Vote positif 0 Vote négatif