Aide sur une macro existante

Citation:

---

Envoyé par Pincho

c'est un peu comme si tu étais en vacances dans un pays étranger et que t'allais à l’hôpital. Les médecins qui ne comprennent pas ta langue, te donnent un dico et te disent, apprend cette langue pour nous dire ce qui ne va pas.

---

Je dirais plutôt que tu rencontres des médecins à la terrasse d'un café en leur demandant de soigner ton cor au pied. Très obligeamment, ils te donnent des pansements et de la pommade (alors qu'ils pourraient te conseiller d'aller consulter dans un cabinet) et tu leur dis "je ne sais pas faire, passez-moi la pommade vous-même".

Citation:

---

Initialement, pour reprendre la métaphore de Menhir, je n'ai pas demandé du poisson... J'ai juste demandé de jeter un coup d’œil à la ligne de pêche (que je n'avais certes pas mis en place moi même mais ca c'est un autre problème). Et la solution fut : ta ligne de pêche est trop complexe, pêche à la dynamite.

---

Je dirais plutôt que tu essayes de pêcher avec une grue de chantier en disant qu'il y a un bruit bizarre dans le moteur. Pour la remplacer, je t'ai donné les éléments pour construire une canne à pêche classique.

Citation:

---

Quoi qu'il en soit, je vais lire et essayer d'appliquer les bouts de code que Menhir m'a gentiment fourni. Je verrais bien où j’atterris.

---

C'est une bonne initiative. Si tu rencontres des problèmes, n'hésite pas à poser des questions.

Bonjour,

qq conseils :
Ca fait partie des bases => http://silkyroad.developpez.com/VBA/LesVariables/
https://excel.developpez.com/faq/?pa...riablesLocales
http://silkyroad.developpez.com/VBA/DebuterMacros/

un exemple de travailler action par action : pour trouver la ligne avec l'équivalence de Equiv en VBA => Match (ce n'est qu'un exemple et c'est à adapter) :

Départ

A

B

C

D

E

Code:

---

1 2 3 4 5

Sub test()Dim Ligne As Long Ligne = Application.Match("D", Range("A1:A6"), 0) Debug.Print Ligne MsgBox Ligne End Sub

---

Bien sur "D" est à remplacer par une variable dépendant de la plage voulu et de la boucle (voir le résultat du Debug.Print dans la fenêtre d'exécution) :
PS : ajouter le code de la dernière via une recherche sur le net

Code:

---

1 2 3 4 5 6 7 8

Sub test2() Dim i As Long, DL As Long, Dpt As String ' DL pour Dernière ligne - Dpt pour Département DL = Moncode ' REMPLACER Moncode par le code de la dernière ligne en colonne A pour que la macro marche FAIRE UNE RECHERCHE For i = 2 To DL Dpt = Sheets(1).Range("A" & i).Value Debug.Print Dpt Next End Sub

---

Maintenant essaie d'allier ce code ci avec le 1er ci-dessus et tu auras le n° de ligne correspondant à ton département permettant de récupérer les valeurs de tes dates et de tes phases
permettant par la suite de faire une comparaison via le If (cf lien de Menhir)

Voilà

Merci pour ces pistes.

Après avoir travailler fais des recherches, si tu as une difficulté, alors reviens les présenter sur ce post avec le code sur lequel tu as travaillé !!