MACRO / VBA : Comparaison de deux colonnes pour publipostage

Bonjour à tous,

Voici ma problématique,

je débute dans le VBA mais ai des bases dans plusieurs langage (C#, C++, Java, php,etc...) certes un peu rouillées par le temps :)

J'ai parcouru pas mal de tuto, mais je ne trouve pour le coup que des méthodes "brute force" et statique de lecture de tableau (utilisation des plages Excel et non des tableaux, utilisation des en-têtes "A", "B" ... ).

Je n'en suis pas satisfait vu que cette fonction à vocation à être développer pour des centaines de fichiers ...

j'ai un le tableau issu d'une worksheet lambda comme l'exemple ci-dessous

Pièce jointe 594367

Je souhaite comparer les colonnes intitulées ici "janv-21" et "Réal - janvier 2021" et dire

Si la semaine en cours (au moment du clic sur le bouton) est inférieur à la semaine prévue "janv-21" - 1 et que la colonne "Réal - Janvier 2021" est vide alors envoyer un mail au référent "Mail Référent"

Citation:

---

Il est bien évident que je remplirais un tableau de string et que l'envoi des informations se fera par bloc mais j'ai déjà l'implémentation de prête pour cette approche

---

Je n'arrive pas à savoir comment parcourir mon objet Tableau pour comparer les colonnes.

J'ai quelque chose actuellement comme ça mais

Code:

---

1 2 3 4

If Range("t_data[" & moisSel & "]").Cells(1) <= (Format(Date, "WW") - 1) And Range("t_data[Real" & moisSel & "]").Cells(1) = "" Then 'MsgBox "A faire" else MsgBox " Prestation OK"

---

moisSel étant un paramètre que je rentre lors de l'appel à la fonction qui me permet de choisir le mois à traiter puisque à droite de la colonne "Réaliser Janvier 2021" se trouvera "Fév-2021" etc..., je concatène pour faire mon if sur la bonne colonne en fonction de mon paramètre d'entrée.

Le code ci-dessus me renvois parfaitement ce dont j'ai besoin mais uniquement sur la première ligne. Comment parcourir les "Cells" des colonnes. Existe t'il une fonction "compareToRight like"

Mon problème : Comment parcourir l'entièreté de mon tableau?

Merci de votre lecture

Salut, perso je me serais pas embête avec un objet tableau, j'aurais laissé tel quel vu que excel est deja un tableur..

Voila le code pour te dire si le champ de la colonne D est supérieur a la semaine actuelle et que le champ de la colonne E de la ligne correspondante est vide.

Au lieu de l'envoi de mail je t'ai mis un msgbox pour tester avec le renvoi du champ de la colonne A (no agence)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test() Dim derniereligne, i As Integer derniereligne = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row   For i = 2 To derniereligne If Feuil1.Range("d" & i).Value > CDbl(Format(Date, "WW")) Then If Feuil1.Range("e" & i).Value = "" Then MsgBox "envoyer mail au réferent de l'agence : " & Feuil1.Range("a" & i).Value End If End If Next End Sub

---

CB

Merci de ton retour,

en effet j'avais implémenté ce code au préalable puis je suis tombé sur de nombreux tutos, exemples, qui déconseillaient l'utilisation des plages :

Citation:

---

https://fauconnier.developpez.com/tu...structuresvba/

---

Au vu notamment du fait que mon fichier pourra atteindre un nombre conséquent de ligne (env 1000).

Du coup question subsidiaire, comment implémenter le choix du mois à tester lors de l'appuie sur le bouton et par là faire que les colonnes testées ne soient plus la "e" et "f" mais "i" et "j" si le mois choisi c'est mars?

PS : Pourquoi deux If imbriqués et non pas un And sur la première condition?

Tu peux mettre des case pour chaque mois et gérer la sélection des bonnes colonnes en fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test() Dim derniereligne, i As Integer Dim mois As Integer Dim col1, col2 As String derniereligne = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row mois = Month(Date)   Select Case mois Case 3 col1 = "i" col2 = "j" 'case ect <----- tu mets la valeur que tu veux tester pour le mois 'case else <------ la valeur pour tous les autres cas (pas obligé de le mettre) End Select For i = 2 To derniereligne If Feuil1.Range(col1 & i).Value > CDbl(Format(Date, "WW")) And Feuil1.Range(col2 & i).Value = "" Then MsgBox "envoyer mail au réferent de l'agence : " & Feuil1.Range("a" & i).Value End If Next End Sub

---

Oui ça fonctionne aussi avec un and bien évidement =)

Merci du retour,

effectivement je ne connaissais pas la possibilité d'utiliser le "Case" en vba, j'étais parti sur des imbrications de If...

Je test et je clôture le sujet si OK.

Oui c'est jamais très joli d'imbriquer des If, je l'ai fait mais c'est pas super car ça complique bcp le code visuellement.

J’espère t'avoir aidé a comprendre un peu plus le VBA, moi je vais me lancer dans je JS =')

A+

CB

C'est assez intuitif tu verra le JS ;)

Good luck