Rapport de message :*
 

Re: VBA pour suppression et modification de ligne

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