éviter feuille.activate + question array

Version imprimable

Voir 40 message(s) de cette discussion en une page

07/10/2020, 16h41
Patrice740

Citation:

Envoyé par Darkangel2014

je pensais pouvoir réutiliser le i de

Code:

For i = 1 To UBound(TblReport)

Cette variable n'étant plus utilisée, tu peux la réutiliser pour ce tableau.

Je déclarerais le tableau avec :

Code:

ReDim Mailing(1 to 1) As Variant

Puis pour faire évoluer la taille du tableau :
Avant le Do :

Code:

i = 1

Avant le Loop :

Code:

i = i + 1

Le redimensionnement en précisant Lower :

Code:

ReDim Preserve Mailing(1 to i)

Insertion des données : inchangée

Bonjour Patrice740,

merci à vous pour votre retour.
cela m'indique néanmoins que l'indice n'appartient pas à la sélection.

n'y a t'il toutefois pas de confusion entre i pour TblReport et ce nouveau i qu'l faudrait peut être renommé en j par exemple.
j'ai tenté mais cela ne fonctionne toutefois pas.

par ailleurs j'ai aussi testé Dim Mailing(1 To 1) As Variant au lieu de REDim mais pour le deuxième Redim preserve ca m'indique tableau déjà dimensionné..

une idée svp, je nage là dessus..
merci à vous pour votre soutien par avance

Code:

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
Dim SpS As Worksheet, SpP As Range, valeur1 As Variant, valeur2 As Variant, decalage As Integer
Dim TblReport()
Dim Mailing()
 
 
TableName = "T_Reports"
TblReport = Range(TableName)
 
  For i = 1 To UBound(TblReport)
 
If TblReport(i, 7) > Now And TblReport(i, 7) <= Now + 56 And TblReport(i, 10) = "Y" Then
Project_ID = TblReport(i, 1)
periodid = TblReport(i, 2)
Acronym_Range = Application.Match(Project_ID, Worksheets("Projects").Range("A:A"), 0)
Acronym = Worksheets("Projects").Cells(Acronym_Range, 3)
 
 
Set SpS = ThisWorkbook.Worksheets("Staff")
 
    Set SpP = SpS.Range("A1:A" & SpS.Range("A" & Rows.Count).End(xlUp).row)
    valeur1 = Project_ID
    valeur2 = periodid
    decalage = 7 '(de A à H)
 
  ReDim Mailing(1 To 1) As Variant
    With SpP
        Set la = .Find(valeur1, LookIn:=xlValues)
 
        If Not la Is Nothing Then
            prem = la.Address
            i = 1
                      Do
   i = i + 1
 
 
           If la.Offset(0, decalage) = valeur2 Then Mailing(i) = (SpS.Cells(la.row, 4) & "." & SpS.Cells(la.row, 3))
 
 
 
ReDim Preserve Mailing(1 To i)
 
                            Set la = .FindNext(la)
            Loop While Not la Is Nothing And la.Address <> prem
        End If
    End With
 
End If
 
Next
 
 
MsgBox (Mailing(1))

08/10/2020, 11h46
Philippe Tulliez

Bonjour,

Citation:

par ailleurs j'ai aussi testé Dim Mailing(1 To 1) As Variant au lieu de REDim mais pour le deuxième Redim preserve ca m'indique tableau déjà dimensionné.
une idée svp, je nage là dessus..

Pour avoir la réponse à vous multiples questions, il est important que vous lisiez le tutoriel Utiliser les variables tableaux en VBA Excel que vous a suggéré de consulter Patrice :salut: dans le Fil#7 de cette discussion.

Re,

Citation:

Envoyé par Darkangel2014

n'y a t'il toutefois pas de confusion entre i pour TblReport ...

Effectivement, j'ai lu ton code un peu vide et comme il est très mal indenté, je pensais que i n'était plus utilisé ...

Je l'aurais écrit comme ça, en déclarant toutes les variables et uniquement celles utilisées :

Code:

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
Option Explicit
Sub Test()
Dim spS As Worksheet
Dim spP As Range
Dim la As Range
Dim tblReport() As Variant
Dim project_ID As Variant
Dim period_ID As Variant
Dim acronym_Row As Variant
Dim acronym As Variant
Dim prem As String
Dim i As Long
Dim n As Long
ReDim mailing(1 To 1)               'Déclaration d'un tableau dynamique (donc redimensionnable)
Const decalage As Integer = 7       '(de A à H)
Const tableName$ = "T_Reports"
 
  tblReport = Worksheets("Feuil1").Range(tableName).Value    'Adapter le nom de la feuille
  For i = 1 To UBound(tblReport)
    If tblReport(i, 7) > Now And tblReport(i, 7) <= Now + 56 And tblReport(i, 10) = "Y" Then
      project_ID = tblReport(i, 1)
      period_ID = tblReport(i, 2)
      acronym_Row = Application.Match(project_ID, Worksheets("Projects").Range("A:A"), 0)
      If Not IsError(acronym_Row) Then
        acronym = Worksheets("Projects").Cells(acronym_Row, 3).Value
        Set spS = ThisWorkbook.Worksheets("Staff")
        Set spP = spS.Range("A1:A" & spS.Range("A" & Rows.Count).End(xlUp).Row)
        With spP
          Set la = .Find(project_ID, LookIn:=xlValues)
          If Not la Is Nothing Then
            prem = la.Address
            Do
              n = n + 1
              ReDim Preserve mailing(1 To n)   'Redimentionnement du tableau (ne pas typer)
              If la.Offset(0, decalage) = period_ID Then mailing(n) = spS.Cells(la.Row, 4).Value & "." & spS.Cells(la.Row, 3).Value
              Set la = .FindNext(la)
            Loop While la.Address <> prem
          End If
        End With
      End If
    End If
  Next i
  If n = 0 Then
    MsgBox "mailing est vide"
  Else
    MsgBox Join(mailing, vbLf)
  End If
End Sub

Lorsqu'elles ne sont utilisées qu'une seule fois, déclarer des variables ou des constantes comme decalage ou tableName ne présente que très peu d'intérêt par rapport à l'utilisation direct de leur valeur sur la seule ligne de code où elles sont utilisées.

Note : par convention, je commence tous les noms de variables par une minuscule pour les différencier des Mots clés et des noms de procédures.

08/10/2020, 14h58
Darkangel2014

Bonjour Patrice,

Je vous remercie pour votre retour ainsi que votre code fonctionnel et répondant à mon soucis

Code:

j'ai lu ton code un peu vide et comme il est très mal indenté

Effectivement j'ai tenté de faire aussi bien que possible en fonction de mes connaissances limitées :)

je vais désormais éplucher ligne à ligne votre proposition ainsi que le site communiqué afin d'en comprendre l'usage et le fonctionnement.

merci à vous.

mais sans vouloir abuser de vos services j'aimerais désormais savoir comment je pourrais procéder afin de splitter les infos récupéré par l'array
cela me sera utile car au delà du nom j'ai besoin de ces informations pour aller chercher les fichiers

En effet j'ai donc
If la.Offset(0, decalage) = period_ID Then Mailing(n) = spS.Cells(la.row, 4).Value & "." & spS.Cells(la.row, 3).Value & "/" & acronym & "/" & period_ID

j'aimerais désormais pouvoir splitter le Join(Mailing, vbLf)
afin de pouvoir pour chaque résultat en sortir le prenom, le nom l'acronyme et la periode concernée
j'ai donc
Code:

1 2 3 4 For i = 0 To UBound(Mailing) i = i + 1 MsgBox (Mailing(i)) Next
mais comment sortir pour chaque i les différentes données?

j'ai ténté quelque chose mais ca ne fonctionne pas
Code:

1 2 3 4 5 6 7 8 9 10 11 For i = 0 To UBound(Mailing) i = i + 1 ' MsgBox (Mailing(i)) Splitarray = Split(Mailing(i), "/") mail = Splitarray(1) Project = Splitarray(2) Period = Splitarray(3) MsgBox ("Mail :" & mail & "Project : " & Project & "Period ! " & Period) Next
Cela me pemettra ensuite de récupérer le chemin des fichiers qui seront à mettre en pièce jointe des mails à destination des gens identifiés

'With Olmail' .To =

grand merci dans tous les cas pour votre soutien

Voir 40 message(s) de cette discussion en une page