Problème de sélection automatique d'une ligne

bonjour ,

je suis novice en VBA ma question va peut être vous paraître évident mais pour moi c'est un vrai probleme

je voudrais crée un code permettant de regarde dans la colonne 1 si le mot téléchargement est présent , et que dans ce cas il supprime la ligne ou se trouve le mot téléchargement ainsi que les 6 ligne qui suivent

je rencontre deux problème :

• je n'arrive pas a sélectionné la ligne correspondante a la cellule ou ce trouve le mot téléchargement
• je n'arrive pas a trouver le mot téléchargement quand il n'est pas seul dans la cellule

voila le code que j'ai écris

Sub Macro2()

Dim nb_lignes As Integer, lig As Integer

nb_lignes = WorksheetFunction.CountA(Range("A:A"))
 For i = 1 To nb_lignes
 lig = i + 7
If Cells(i, 1).Value = "Téléchargement" Then
' j'ai essayer entre autre if cells(i,1).value = "Téléchargement??????????????"
'mais il ne trouve j'amais 
'exemple de la cellule "Téléchargement du 29/10/2012"
Rows("1:1").Select 
' jai essayer rows("i,i").select
'ainsi que plusieurs autre forme
'mais ca me crée une erreur a chaque fois
   For rwIndex = i To i + 6
    Selection.Delete Shift:=xlUp

    Next rwIndex
   End If
   Next
End Sub

 

je vous remercie par avance de votre aide

Bonjour

Regardes si cette macro peut t'aider

Option Explicit

Sub Macro2()
Dim Cel As Range

  Do
    Set Cel = Columns("A").Find(what:="Téléchargement", LookIn:=xlValues, lookat:=xlPart)
    If Not Cel Is Nothing Then
      Rows(Cel.Row & ":" & Cel.Row + 5).Delete
    Else
      Exit Do
    End If
  Loop
End Sub

Faudra peut-être régler le nombre de lignes : Dans la macro on efface 6 lignes

bonjour,

banzaï64, je te remercie pour ta réponse , ton code marche trés bien,

et il est beaucoup plus clair que le mien

si j'ai bien compris

Cel = Columns("A").Find(what:="Téléchargement", LookIn:=xlValues, lookat:=xlPart)

on cherche "télécharger" , si télécharger est présent cell prend la valeur lue sinon cell = rien ,

c'est bien cela ?

merci encore

Bonjour

Non Cel représentera la cellule contenant ce que tu recherches

Cel est déclarée en tant que Range (Objet)

Si la recherche est infructueuse Cel sera vide (Nothing), sinon Cel pointera vers la cellule contenant la recherche

Désolé j'explique mal, mais le principe est là

bonjour,

d'acord,je l'avais pas compris comme cela

merci pour ton explication