Flop
XLDnaute Occasionnel
Bonjour à tous.. j'ai ce code qui marche très bien si il trouve la valeur "CONGES" dans le cas contraire ca bug, comme faire une condition cell.finds, je n'y arrive pas, j'ai trouvé qq exemples mais je n'arrive pas à les faire coller chez moi, merci de votre aide.
Code:
'ajoute une ligne si congés
Sheets("Top.5").Range("A1").Select
Cells.Find(What:="CONGES", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
'ajoute une ligne supplémentaire
Selection.EntireRow.Insert
Selection.Offset(0, -3).Select 'selectione le début de la plage
Range(ActiveCell, ActiveCell.Offset(0, 11)).Select 'selectione la bonne plage
Selection.ClearContents