Squoltahthx94
XLDnaute Occasionnel
Bonjour le forum,
Je souhaiterai 2 petits éclaircissement, je souhaite supprimer des lignes contenant un mot dans le texte des cellules et je souhaite demander à l'utilisateur quel mot il veut choisir (jusque là ça va!! ;-))
Mais je n'arrive pas pour 2 choses:
-Si l'utilisateur valide la msgbox sans mettre un mot je souhaiterai qu'il ne puisse pas le faire
- malgré tout mes recherche il ne supprime pas les lignes contenant le mot
- enfin je souhaiterais que les lignes restantes soient colorées suivante une information de la colonne I qui indiquent soit "rouge" soit "orange" soit "jaune" (les sans couleurs a laissé tel quel).
J'ai commencé comme ceci en cherchant dans les différents forums :
merci de votre aide a tous
Je souhaiterai 2 petits éclaircissement, je souhaite supprimer des lignes contenant un mot dans le texte des cellules et je souhaite demander à l'utilisateur quel mot il veut choisir (jusque là ça va!! ;-))
Mais je n'arrive pas pour 2 choses:
-Si l'utilisateur valide la msgbox sans mettre un mot je souhaiterai qu'il ne puisse pas le faire
- malgré tout mes recherche il ne supprime pas les lignes contenant le mot
- enfin je souhaiterais que les lignes restantes soient colorées suivante une information de la colonne I qui indiquent soit "rouge" soit "orange" soit "jaune" (les sans couleurs a laissé tel quel).
J'ai commencé comme ceci en cherchant dans les différents forums :
Code:
Private Sub CommandButton2_Click()
Dim cellRecherche As Range, Mot As String
Sheets("info_Jour").Activate
Mot = InputBox("Mot à rechercher", "Effacement ligne")
Set cellRecherche = ActiveSheet.Cells.Find(Mot, , , xlPart)
While Not cellRecherche Is Nothing
cellRecherche.EntireRow.Delete
Set cellRecherche = ActiveSheet.Cells.Find(Mot, , , xlPart)
Wend
Sheets("menu").Activate
End Sub
merci de votre aide a tous