Bonsoir le forum
j'aimerai ajouter un message msgbox d'erreur si la valeur cherchée n'existe pas .
Je voudrai dire si la valeur entranta par lutilsateur n'exite pas afficher Msbox erreur.
Voila le code:
Sub Rectangleàcoinsarrondis13_Cliquer()
Dim i As Long, k As Long
For i = 1 To iLRS
iLRS = WsS.Cells(Rows.Count, 1).End(xlUp).Row
Next
Application.ScreenUpdating = False
Range("A13:P80").Clear
With Sheets("Liste")
If .AutoFilterMode = True Then .AutoFilterMode = False
NbLg = .Range("B" & Rows.Count).End(xlUp).Row
.Range("A2:P" & NbLg).AutoFilter field:=11, Criteria1:=Range("X13")
If Application.Subtotal(103, .Columns("K")) > 1 Then
.Range("A3:O" & NbLg).SpecialCells(xlCellTypeVisible).Copy Range("B13")
End If
If .AutoFilterMode = True Then .AutoFilterMode = False
Dim Num As Integer, Cellule As Range
With Sheets("BDC")
k = 1
For i = 6 To .Range("B" & .Rows.Count).End(xlUp).Row
If IsNumeric(.Range("A" & i)) And .Range("B" & i) <> "" Then
.Range("A" & i) = k
k = k + 1
End If
Next i
End With
End With
For Each Cellule In Range("A13:P40")
If Cellule <> "" Then Cellule.Borders.Weight = xlThin
Next
End Sub
Je vous remercie grandement d'avance!
« Bien cordialement. »