B
bolem
Guest
Bonjour
jai un soucis avec ces macros :
cette macro fonctionne bien :
Sub mission_supplementaire()
Sheets('lignes supplémentaires').Select
Rows('17:17').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('suivi ').Select
Cells.Find(What:='nouvelle mission', After:=ActiveCell, LookIn:= _xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False).Activate
Selection.EntireRow.Insert
End Sub
mais si je mets tout ça dans :
Private Sub CommandButton1_Click()
Sheets('lignes supplémentaires').Select
Rows('17:17').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('suivi ').Select
Cells.Find(What:='nouvelle mission', After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
Selection.EntireRow.Insert
End Sub
cela ne marche plus, cela s'arrete à la sélection de ligne 17.
pourquoi ?
merci d'avance
jai un soucis avec ces macros :
cette macro fonctionne bien :
Sub mission_supplementaire()
Sheets('lignes supplémentaires').Select
Rows('17:17').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('suivi ').Select
Cells.Find(What:='nouvelle mission', After:=ActiveCell, LookIn:= _xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False).Activate
Selection.EntireRow.Insert
End Sub
mais si je mets tout ça dans :
Private Sub CommandButton1_Click()
Sheets('lignes supplémentaires').Select
Rows('17:17').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('suivi ').Select
Cells.Find(What:='nouvelle mission', After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
Selection.EntireRow.Insert
End Sub
cela ne marche plus, cela s'arrete à la sélection de ligne 17.
pourquoi ?
merci d'avance