Suppression ligne si cellule vide

Bonjour,

Ci-dessous mon code VBA (Merci encore Nad & Banzai) qui fonctionne à merveille pour retrouver un techncien en fonction de son login .

Ce que je souhaiterai faire maintenant c'est de pouvoir supprimer la ligne qui ne conttient pas de résultat.

Sub Recherche()

For i = 2 To Sheets("Datas").Range("A65536").End(xlUp).Row

Rep = Range("B" & i)

Set r = Sheets("tech").Range("A:A").Find(Rep)

If r Is Nothing Then Range("C" & i) = "" ==> Si pas de résultat alors suppression de la ligne

If Not r Is Nothing Then Range("C" & i) = r.Offset(0, 1)

Next i

End Sub

Merci de votre aide !

Pascal

Bonjour

Si tu dois supprimer la ligne il vaut mieux commencer par la fin

Sub Recherche()

  For i = Sheets("Datas").Range("A65536").End(xlUp).Row To 2 Step -1
    Rep = Range("B" & i)
    Set r = Sheets("tech").Range("A:A").Find(Rep)
    If Not r Is Nothing Then
      Range("C" & i) = r.Offset(0, 1)
    Else
      Rows(i).Delete
    End If
  Next i
End Sub

Merci Banzai !

Comme d'habitude tu me sors des codes qui fonctionnent en 2 temps 3 mouvements alors que je galère comme pas possible

Cela devient rageant !

J'ai bien essayé un code qui me permettait de supprimer les lignes mais il n'était pas intégré à la recherche, c'est beaucoup moins optimisé que ta proposition et en plus je me suis trompé dans mon code ==> il a fait la recherche sur les 65 mille lignes de la feuille

Mais c'est avec nos erreurs qu'on avance

Merci encore Banzai !

Pascal