en PJ une solution par macro
il faudra appuyer sur le bouton à chaque fois que le fichier constructeur est modifié
Merci pour ta réponse Vgendron !
En revanche étant une bille en vba, pourrais-tu m'expliquer cette partie de ton code stp ?
En effet, j'essaye d'adapter ton code à un deux documents du même type, mais je galère...
J'aimerais faire partir ton code de la 11ème ligne de mon "Planning maintenance constructeur" grosso modo. Mais impossible d'adapter le code. Je pense que c'est cette partie de code qu'il faut que je comprenne pour pouvoir l'adapter comme je le souhaite.
En te remerciant par avance pour ton expertise !
Partie du code que j'aimerais comprendre :
---------
'on complète les lignes vides dues à la fusion
For i = 4 To UBound(TabData, 1) - 1
If TabData(i + 1, 1) = "" Then TabData(i + 1, 1) = TabData(i, 1)
If TabData(i + 1, 4) = "" Then TabData(i + 1, 4) = TabData(i, 4)
Next i
For j = 8 To UBound(TabData, 2) - 1
If TabData(1, j + 1) = "" Then TabData(1, j + 1) = TabData(1, j)
If TabData(2, j + 1) = "" Then TabData(2, j + 1) = TabData(2, j)
Next j
For i = 4 To UBound(TabData, 1) 'pour chaque ligne à partir de la 4eme = 1ere ligne de donnée
'recherche 1ere Occurence = 1er "X"
For j = 8 To UBound(TabData, 2)
If UCase(TabData(i, j)) = "X" Then
valeur = DateValue("01 " & TabData(2, j) & " " & TabData(1, j)) 'on recupère la date
clé = WorksheetFunction.Substitute(TabData(i, 1), " ", "") & "_" & TabData(i, 4) & "_" & TabData(i, 7) 'on créé la clé d'inter
If Not dico.exists(clé) Then dico.Add clé, valeur 'on ajoute l'entrée dans le dictionnaire
Exit For
End If
Next j
Next i
---------