Private Sub Worksheet_Change(ByVal Target As Range)
Dim Code As String, LigF As Long
'cette macro est exécutée en automatique lorsque qu'un changement est effectué dans la feuille.
'Elle permet d'afficher un message d'erreur lorsque un PR est sélectionné pour une reconduction
If [B13] Like "*PR*" Then MsgBox ("ERREUR ! IL EST IMPOSSIBLE DE RECONDUIRE UN PROCEDE")
'autre solutions :
'If Range("B13") = "=*PR*" Then
'If [B13].Value Like "*PR*" Then MsgBox ("ERREUR ! IL EST IMPOSSIBLE DE RECONDUIRE UN PROCEDE")
'MsgBox IIf([B13] Like "*PR*", "ERREUR ! IL EST IMPOSSIBLE DE RECONDUIRE UN PROCEDE", "")
' Changement de la cellule H7
If Target.Address = "$H$7" And Target.Value = "MODIFICATION" Then
' Mémoriser le code du document
Code = Range("B7") & Format(Range("C7"), "000")
' Avec la feuille
With Sheets("Liste_documentation")
On Error Resume Next
LigF = 0 ' Initialiser la ligne trouvée à ZERO
' Rechercher dans la colonne D le code correspondant
LigF = .Columns("D:D").Find(What:=Code, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False).Row
If LigF <> 0 Then
' inscrire dans la feuille la valeur de l'indice
.Range("E" & LigF).Value = Range("D7")
End If
On Error GoTo 0
End With
End If
End Sub