Discussion :

[IcemanY15]

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



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"

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ChristianBosch]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[IcemanY15]

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 :

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?

[ChristianBosch]

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

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
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 =)

[IcemanY15]

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.

[ChristianBosch]

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