Bonjour

J'ai récupérer sur le site microsoft une macro pour supprimer des cellules selon leur contenu:

voici le code:

Sub DeleteCells3()
    Dim rng As Range, i As Integer

    'Définit la plage à évaluer.
    Set rng = Range("A1:A15")

    'Effectue une boucle arrière sur les lignes
    'de la plage à évaluer.
    For i = rng.Rows.Count To 1 Step -1

        'Si la cellule i de la plage contient un " x ", supprime la ligne entière.
        If rng.Cells(i).Value = ".gif" Then rng.Cells(i).EntireRow.Delete
       
    Next

End Sub

Et je veux donc que les cellules contenant des nom avec l'extension "gif" (et aussi jpg qui n'est pas marqué ds le code) soient supprimer mais ça ne marche qu' à moitié
en fait il ne va me supprimer que se qui s'appelle "gif" et non comme je veux toto.gif     titi.gif etc...

merci d'avance

bonjour

j'espere que cette adaptation pourra t'aider


Option Compare Text
Sub DeleteCells3()
    Dim Rng As Range, i As Integer

    'Définit la plage à évaluer.
    Set Rng = Range("A1:A15")

    'Effectue une boucle arrière sur les lignes
    'de la plage à évaluer.
    For i = Rng.Rows.Count To 1 Step -1

        'Si la cellule i de la plage contient un " x ", supprime la ligne entière.
        If Right(Rng.Cells(i), 4) = ".gif" Or Right(Rng.Cells(i), 4) = ".jpg" _
        Then Rng.Cells(i).EntireRow.Delete
       
    Next

End Sub

bon week end
michel

Ou (des fois qu'il y ait des espaces après .gif ou .jpg :

If InStr(rng.Cells(i).Value, ".gif") > 0 or  InStr(rng.Cells(i).Value, ".jpg") > 0 Then rng.Cells(i).EntireRow.Delete

Loup Gris

Bonjour

Merci  à tous les deux pour votre aide ça marche!
pour mon savoir personnelle peux tu  Michel m'expliquer la difference entre les deux codes

merci d'avance

rebonjour

j'ai remplacé "rng.Cells(i)" par  "Right(Rng.Cells(i), 4)" , pour récupérer dans chaque cellule les 4 dernieres caracteres sur la droite , et pouvoir ainsi les comparer avec tes parametres ".gif " et ."jpg"


bon apres midi
michel

... et instr repère une sous chaine dans une autre chaine quelque soit sa position dans la chaine.

Loup Gris

Salut,
Petite précision si tu ne veux pas effacer la ligne compléte mais juste le contenu des cellules tu  faire un code du style:

Dim MyRange As Range
Set MyRange = ActiveSheet.Range("A1:A15")

MyRange.Replace What:="*.gif", Replacement:="", SearchOrder:=xlByColumns
MyRange.Replace What:="*.jpg", Replacement:="", SearchOrder:=xlByColumns

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé

Bonsoir

Ok j'ai tout compris merci donc à tous

une dernière question comment fait-on pour  ajouter d'autre type d'extension à supprimer?

enfin mais c du superflu parce que ça marche juste avec le macro
j'ai mis le code ds 1 userform avec des msgbox

voici le code:

Private Sub CommandButton1_Click()



    Dim Rng As Range, i As Integer

    'Définit la plage à évaluer.
    Set Rng = Range("A1:A15")

    'Effectue une boucle arrière sur les lignes
    'de la plage à évaluer.
    For i = Rng.Rows.Count To 1 Step -1

        'Si la cellule i de la plage contient un " x ", supprime la ligne entière.
        If Right(Rng.Cells(i), 4) = ".gif" Or Right(Rng.Cells(i), 4) = ".jpg" + ".LCK" _
        Then Rng.Cells(i).EntireRow.Delete
      
      
      
    Next
   
   
'If InStr(Rng.Cells(i).Value, ".gif") <> 0 Or InStr(Rng.Cells(i).Value, ".jpg") <> 0 Then
 'MsgBox "aucun fichier à supprimer", vbCritical


'Else
'MsgBox "suppression des fichiers réussie", vbInformation

'End If
MsgBox "suppression des fichiers réussie", vbInformation
End Sub

et je voulais que losrqu'il n'y a pas de fichiers de type .gif .jpg ou autre à supprimer un message l'indique sinon qud il y en a il supprime et indique suppression des fichiers réussie

pour l'instant qu'il y en ai ou pas j'ai le msgbox "suppression des fichiers réussi"

merci d'avance pour vos conseils

Salut,
Les modifs sont en gras Bonne prog

Private Sub CommandButton1_Click()

    Dim Rng As Range, i As Integer
    Dim Compteur as Integer

    'Définit la plage à évaluer.
    Set Rng = Range("A1:A15")

    'Effectue une boucle arrière sur les lignes
    'de la plage à évaluer.
    For i = Rng.Rows.Count To 1 Step -1

        'Si la cellule i de la plage contient un " x ", supprime la ligne entière.
    If Right(Rng.Cells(i), 4) = ".gif" _
            Or Right(Rng.Cells(i), 4) = ".jpg"  _
            Or Right(Rng.Cells(i),4 = ".lck" _
   Then Rng.Cells(i).EntireRow.Delete
         Compteur = Compteur + 1   
   End If
   Next
 
  If  Compteur >= 1 Then
         MsgBox "Suppression de  " & Compteur & "  fichier(s) réussie", vbInformation
    Else
       'MsgBox "aucun fichier à supprimer", vbCritical
   End If

End Sub



Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé