éviter feuille.activate + question array

Bonjour à toutes et à tous,

j'ai deux questions relatives à la macro ci-dessous pour laquelle j'aurais besoin de votre assistance

1) comment éviter le Worksheets("Staff").Activate pour ensuite revenir sur la page principale via Worksheets("Dashboard").Activate.
En effet il s'agit d'une macro permettant d'envoyer des mails avec pièce jointes mais en arrière plan et donc non visible
En effet j'arrive à jongler entre deux feuilles distinctes (T_Reports vs Projects) au début mais pas lors de la boucle
j'ai tenté via un

Code:

---

1 2 3

Set Sp = Worksheets("Staff") Set plage = Sp.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).row) MsgBox Sp.Cells(ici.row, 4) & " " & Sp.Cells(ici.row, 3)

---

mais j'ai le droit une erreur d'exécution 1004


2) comment procéder au lieu d'afficher Cells(ici.row, 4) & " " & Cells(ici.row, 3) mettre cela dans un array ( ce sont des noms et prénoms que je peux facilement transformer en mail
Mon objectif étant de pouvoir le récupérer en dehors de la boucle et pouvoir le splitter pour un envoi de mail

Code:

---

With Olmail' .To =

---

merci par avance pour votre aide

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

nomtableau = "T_Reports" TblBD = Range(nomtableau)   For i = 1 To UBound(TblBD)   If TblBD(i, 7) > Now And TblBD(i, 7) <= Now + 56 And TblBD(i, 10) = "Y" Then Project_ID = TblBD(i, 1) periodid = TblBD(i, 2) Acronym_Range = Application.Match(Project_ID, Worksheets("Projects").Range("A:A"), 0) Acronym = Worksheets("Projects").Cells(Acronym_Range, 3)   Worksheets("Staff").Activate   Dim plage As Range, valeur1 As Variant, valeur2 As Variant, decalage As Integer Set plage = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).row) valeur1 = Project_ID valeur2 = periodid decalage = 7 '(de A à H) With plage Set ici = .Find(valeur1, LookIn:=xlValues) If Not ici Is Nothing Then prem = ici.Address Do   If ici.Offset(0, decalage) = valeur2 Then MsgBox (Cells(ici.row, 4) & "." & Cells(ici.row, 3))   Set ici = .FindNext(ici) Loop While Not ici Is Nothing And ici.Address <> prem End If End With   End If Next Worksheets("Dashboard").Activate

---

Bonjour,
La ligne 2 du premier code publié n'est pas correcte et explique sans doute le problème que vous rencontrez si la feuille nommée Staff n'est pas active
En effet dans cette ligne Set plage = Sp.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).row), seul le premier Range est rattaché à son parent (la variable objet Sp)

Citation:

---

La ligne 2 du premier code publié n'est pas correcte

---

Merci à vous pour cette observation, aussi quelle syntaxe serait appropriée pour éviter cela ?

Bonjour,

Citation:

---

Envoyé par Darkangel2014

Merci à vous pour cette observation, aussi quelle syntaxe serait appropriée pour éviter cela ?

---

Il faut systématiquement définir la parentalité de chaque objet Excel.
Donc rattacher chaque objet Range (i.e. Range, Cells, Rows, Columns, ...) à son parent (sa feuille).
C'est à dire ne jamais écrire & Range("A") mais & ObjetFeuille.Range("A").
Et lorsqu'on utilise plusieurs classeurs, il faut préciser le parent (le classeur) de chaque feuille.

Bonjour,
Exemple où Plage représentera les cellules remplies de la colonne A de la feuille nommée Staff du classeur où se trouve le code VBA et ce quelle que soit la feuille active

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub T() Dim Sp As Worksheet Dim Plage As Range Set Sp = ThisWorkbook.Worksheets("Staff") With Sp Set Plage = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row) End With MsgBox Plage.Address(External:=True) Set Sp = Nothing: Set Plage = Nothing End Sub

---

Merci à vous pour vos retours respectifs ainsi que vos explications.

Qui de la 2ème question toutefois?

Merci par avance

Citation:

---

Envoyé par Darkangel2014

2) comment procéder au lieu d'afficher Cells(ici.row, 4) & " " & Cells(ici.row, 3) mettre cela dans un array ( ce sont des noms et prénoms que je peux facilement transformer en mail

---

- déclares un tableau dynamique
- ajoutes une ligne au tableau en préservant les données précédentes (REDIM & PRESERVE)
- défini les nouveaux éléments du tableau

Voir : Utiliser tableaux VBA Excel

ok merci à vous.

Juste une dernière question qui me pose un cas de conscience

j'ai donc la macro suivante qui fonctionne (merci à vous) depuis tous mes onglets sauf 1 à savoir mon dashboard
j'ai donc tenté de changer le nom des variables sait on jamais mais rien n'y fait
la macro se lance bien et si je teste même de simple Msgbox("ok") cela fonctionne sauf à partir de la ligne
If Not la Is Nothing Then
alors que cela fonctionne depuis les autres onglets...
Une idée de ce qui pourrait expliquer cela svp??

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

Dim SpS As Worksheet, SpP As Range, valeur1 As Variant, valeur2 As Variant, decalage As Integer Dim TblReport()   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" & Range("A" & Rows.Count).End(xlUp).row) valeur1 = Project_ID valeur2 = periodid decalage = 7 '(de A à H) With SpP Set la = .Find(valeur1, LookIn:=xlValues) If Not la Is Nothing Then prem = la.Address Do If la.Offset(0, decalage) = valeur2 Then MsgBox (SpS.Cells(la.row, 4) & "." & SpS.Cells(la.row, 3))   Set la = .FindNext(la) Loop While Not la Is Nothing And la.Address <> prem End If End With   End If Next

---

Qu'est-ce qui ne fonctionne pas ?
Un message d'erreur ?
En pas à pas que disent les variables ?

Aucun message d'erreur justement c'est que depuis dashboard:

Code:

---

Set la = .Find(valeur1, LookIn:=xlValues)

---

il bypass cette section... ce qui fait que rien n'en résulte

Citation:

---

Envoyé par Darkangel2014

Set la = .Find(valeur1, LookIn:=xlValues)
il bypass cette section... ce qui fait que rien n'en résulte

---

Il n'y a aucune raison que cette ligne ne soit pas exécutée !!!
Est-tu certain de ce que tu affirmes ????
Lorsque tu exécutes le code en pas à pas : quelle est donc la ligne exécutée aussitôt après la précédente ????

le find est bien exécuté désolé pour la confusion

C'est

Code:

---

If Not la Is Nothing Then

---

ligne 24
qui passe directement au

Code:

---

End If

---

en ligne 31

alors que cela passe via les autres feuilles

C'est tout simplement que la valeur cherchée n'est pas présente dans la zone de recherche !
Mets un point d'arrêt sur la ligne et vérifie :
- l'adresse de la plage SpP
- la valeur de valeur1 (attention aux caractères cachés, aux espaces, ...)

Tu peux faire la même recherche à la main depuis la Feuille Excel.

il y a bien un résultat car correctement afficher si macro lancée depuis une autre feuille


j'ai réussi à faire afficher mon résultat depuis le dashboard en modifiant la ligne comme ceci

Code:

---

Set la = SpS.Cells.Find(what:=valeur1, LookAt:=xlWhole)

---

mais ceci génère une erreur 1004.. ce que je peux corriger en modifiant:

Code:

---

Set la = SpS.Cells.FindNext(la)

---

Citation:

---

Envoyé par Darkangel2014

ok merci à vous.

Code:

---

1 2 3

... Set SpP = SpS.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).row) ...

---

---

Là au post #8, le problème du post #1 n'est pas corrigé !

effectivement j'ai modifié

Code:

---

Set SpP = SpS.Range("A1:A" & SpS.Range("A" & Rows.Count).End(xlUp).row)

---

et cela semble fonctionner

Grand merci à vous tous pour votre soutien!
je vais désormais essayer de voir pour l'array

bonne journée

Ceci étant dit et concernant le 2ème point

je déclare mon array:

Code:

---

Dim Mailing() As Variant

---

je redimensionne en conservant via

Code:

---

ReDim Preserve Mailing(i)

---

j'insere les données:

Code:

---

If la.Offset(0, decalage) = valeur2 Then Mailing(i) = (SpS.Cells(la.row, 4) & "." & SpS.Cells(la.row, 3))

---

mais quand j'essaye 'afficher le contenu ca me rend un truc vide

Code:

---

MsgBox (Mailing(1))

---

comment procéder svp?
merci

Citation:

---

Envoyé par Darkangel2014

...

---

A quoi est égal i ?

et dans Redim t([Lower to,] Upper) à quoi est égal Lower (Option Base ?)

je ne connais pas du tout l'usage des arrays

je pensais pouvoir réutiliser le i de

Code:

---

For i = 1 To UBound(TblReport)

---