Application.Match et extraction de données

Bonjour à tous,

Je vous écris pour vous faire par de mon soucis qui me bloque tout mon projet VBA :
Je veux trouver, à partir d'une date rentrée dans une inputbox, la date dans la colonne A (feuille1) qui luit correspond. Puis je veux trouver le nombre sur la même ligne dans a colonne B (feuille1) et coller enfin ce dernier en I6(feuille1):

Pièce jointe 631704

Mais mon code marche pas. Je pense que le problème est du à une histoire de format des variable (mal définis peuêtre) ou aux formats de date ntre l'inputBox et la colonne A qui sont peut-être pas compatible jsp (en effet le format des date de la colonne A est particulier car il contient des heures.

La macro en question est dans le module 7 mais voici un apperçu :

Pièce jointe 631705

Le xlsm complet est dans en pj

Merci de votre aide il ne me reste qu'une journée pour trouver la solution et j'ai déjà tout tenté j'ai l'impression !
VOUS ME SAUVERIEZ 🤭
Pièce jointe 631706

Bonjour,

Attention aux noms des variables (DateTxt ou DateTxt)?

Le problème est que la colonne A contient les dates et les heures, mais apparemment, on ne voit que les dates. Pour pallier ce problème, le plus simple est de construire une colonne qui extrait uniquement les dates, (colonne qu'on effacera après localisation de la ligne recherchée)

Essayez ceci:

Code:

---

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

Sub Partie3() Dim DateTxt As String Dim NumLigne As Long Application.ScreenUpdating = False DerLig = Range("A" & Rows.Count).End(xlUp).Row DateTxt = InputBox("A partir de quelle date voulez-vous obtenir un classement de performance ?", "Question de parametrage n°2") Range("P2:P" & DerLig).FormulaR1C1 = "=TEXT(RC1,""jj/mm/aaaa"")" NumLigne = Application.match(DateTxt, Range("P1:P" & DerLig), 0) Range("P2:P" & DerLig).ClearContents 'MsgBox (NumLigne) Range("I6").Value = Cells(NumLigne, "B") Range("I7").Value = Cells(NumLigne, "C") Range("I8").Value = Cells(NumLigne, "D") Range("I9").Value = Cells(NumLigne, "E")

---

End Sub


Cdlt

C'est super ça fonctionne !!!!! Un gros gros GROS MERCI vous êtes super sympa !!!!

Amicalement
P-E

Code:

---

Application.ScreenUpdating = False

---

C'est quoi ce réflexe inutile ?

Bonjour deedolith,

C'est vrai que c'est un réflexe (pas une mauvaise habitude) car, dans beaucoup de cas, cela améliore considérablement la vitesse d'exécution et supprime les rafraîchissements de l'écran, dans le cas présent, ce n'est pas forcément nécessaire, mais cela génère-t-il une panne? le code fonctionne-t-il moins bien? Apparemment non!

J'apporte ma contribution le plus modestement possible et ne possède pas la science infuse, donc je ferai malgré tout, encore et toujours des choses qui pourront choquer les puristes, mais je prête attention aux remarques constructives que l'on me fait et qui me permettent de m'améliorer.

Entre autres, je viens de m'apercevoir que j'ai oublié une ligne de code pour sortir de la procédure lorsque aucune date n'est saisie dans l'InputBox.

Code:

---

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

Sub Partie3() Dim DateTxt As String Dim NumLigne As Long 'Application.ScreenUpdating = False DerLig = Range("A" & Rows.Count).End(xlUp).Row DateTxt = InputBox("A partir de quelle date voulez-vous obtenir un classement de performance ?", "Question de parametrage n°2") If DateTxt = "" Then Exit Sub Range("P2:P" & DerLig).FormulaR1C1 = "=TEXT(RC1,""jj/mm/aaaa"")" NumLigne = Application.match(DateTxt, Range("P1:P" & DerLig), 0) Range("P2:P" & DerLig).ClearContents 'MsgBox (NumLigne) Range("I6").Value = Cells(NumLigne, "B") Range("I7").Value = Cells(NumLigne, "C") Range("I8").Value = Cells(NumLigne, "D") Range("I9").Value = Cells(NumLigne, "E") End Sub

---

Cdlt

Je n'insinue pas que ton code est faux ou bogué, juste que cette instruction n'a pas lieu d'être.

Si tu préfères la version plus "légère":
"Don't pay for what you don't need."

Et je me permettrais d'ajouter, qu'il est de notre responsabilité de proposer des solutions aussi qualitatives que possible, car nous servons d'exemple (directement ou indirectement).