Chercher numero de Ligne Puis effacer le contienu de la cellule

[salhi_haithem]

bonjour,

Je suis bloqué sur une petite chose :
J'aimerais dans mon tableau Chercher numero de Ligne de la colonne A selon la variable NumeroFactureAnnulation
Puis effacer le contienu de la cellule de la colonne H de la ligne correspondante j'ai un petit code qui m'efface toute la ligne

Dim c As Range

With Worksheets("Base de donnée")

Set c = .Range("A:A").Find(NumeroFactureAnnulation, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
        Set c = c.Offset(0, 8)
            With c.EntireRow
            .ClearContents
            End With
            Set c = Nothing
       End If
End With

merci d'avance

 

[laetitia90]

Re : Chercher numero de Ligne Puis effacer le contienu de la cellule

bonjour salhi

tu enleves .EntireRow devrait suffire

 

[salhi_haithem]

Re : Chercher numero de Ligne Puis effacer le contienu de la cellule

merci laetitia90 ça fonctionne

comment avoir la même opération par le code suivant c'est a dire effacer le contenu de la cellule de la colonne H de la ligne correspondante

même problème avec le code de dessous il m'efface toute la ligne

Dim i As Integer

With ThisWorkbook.Sheets("Base de donnée")
            For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("A" & i).Value = NumeroFactureAnnulation Then
    Rows(i).ClearContents
    End If
   Next i
End With

merci une autre fois

 

[laetitia90]

Re : Chercher numero de Ligne Puis effacer le contienu de la cellule

RE

If .Range("A" & I).Value = NumeroFactureAnnulation Then .Cells(I, 8).ClearContents

a la place de

   If .Range("A" & i).Value = NumeroFactureAnnulation Then
    Rows(i).ClearContents
    End If

plus simple encore

If .Cells(I, 1).Value = NumeroFactureAnnulation Then .Cells(I, 8).ClearContents

 

[salhi_haithem]

Re : Chercher numero de Ligne Puis effacer le contienu de la cellule

mille merci laetitia90 C'est très gentil à vous