Re : résultat de recherche décallé par rapport au code recherché
Merci pour vos réponses
J'avais bien penser à ce genre de solution. Personnellement je pensait à ajouter une colonne dans la minute devant celle "quantité" et y remettre le code pour pouvoir utiliser la fonction recherchev ou quelque chose du genre, mais je voulais éviter au maximum la recopie d'informations pour éviter les erreurs (l'exemple envoyé n'avait que les fondations et soubassement d'une maison, donc sur une maison complète ça peut devenir très vite chaotique si on a des infos à changer)
par contre on m'a posté une macro qui m'a l'air pas mal. Il me faudra la faire évoluer pour qu'elle s'applique à l'ensemble des lignes de la feuille DQE.
La voici pour ceux que ça interresse :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myCell As Range, derLig As Long, c As Long
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A36")) Is Nothing And Not IsEmpty(Target) Then
If Target = "1,1,000" Then Range("F36").ClearContents: Exit Sub
With Sheets("Minute")
derLig = .Range("A" & Rows.Count).End(xlUp).Row
Set myCell = .Columns(1).Find(Target, , xlValues, xlWhole)
If Not myCell Is Nothing Then
c = myCell.Row
Do Until (.Cells(c, "M").Font.Color = vbRed Or c = derLig) And .Cells(c, "M") > 0
c = c + 1
Loop
Range("F36") = .Cells(c, "M")
Else
MsgBox "Le N° demandé n'existe pas !"
Range("F36").ClearContents
End If
End With
ElseIf Not Intersect(Target, Range("A36")) Is Nothing And IsEmpty(Target) Then
Range("F36").ClearContents
End If
End Sub
En tout cas merci pour l'attention apporté et bonne fin de soirée si c'est pas déjà fait