Titre du sujet : Re: VBA pour suppression et modification de ligne par Mth le 20/08/2011 18:44:03
re
Exact, c'est le code du bouton "Recherche" qu'il faut modifier, mea culpa ...
Peux-tu essayer ceci à la place ? :
Sub recherche()
Dim lig As Long, x As Range
Dim xad As String
With Sheets("Index")
'nettoie la ligne 5
.Range("E5:I5").ClearContents
' Si C5 est vide on sort sans rien faire
If .Range("C5") = "" Then Exit Sub
' Calcul de la dernière ligne remplie de la base
lig = .Cells(Rows.Count, 3).End(xlUp).Row
'recherche la valeur de C5 dans la 1ère colonne de la base
Set x = .Range("C14:C" & lig).Find(Range("C5"), , xlValues, xlWhole, , , False)
'Si trouvé
If Not x Is Nothing Then
' on copie la ligne trouvée sur la ligne 5 (copie des valeurs seulement)
xad = x.Row
.Range("C" & xad & ":I" & xad).Copy
.Range("C5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
'Vide le presse papier
Application.CutCopyMode = False
Else
'si pas trouvé:
MsgBox "ce code n'existe pas vous pouvez le créer"
End If
End With
End Sub
Bonne soirée,
mth
|