Bonjour à tous,
J'utilise une macro qui copie/colle une ligne d'une feuille, sur une autre lorsque certaines conditions sont remplies. Cela fonctionne lorsque la procédure est executée "normalement", mais lorsque j'appelle la procédure par un userform, je rencontre une erreur, " erreur définie par l'application ou par l'objet..."
un extrait du code:
userform:
L'erreur se produit même si la "Feuil3" est sélectionnée, c'est sans doute idiot, mais je coince !
Auriez-vous des idées svp ?
J'utilise une macro qui copie/colle une ligne d'une feuille, sur une autre lorsque certaines conditions sont remplies. Cela fonctionne lorsque la procédure est executée "normalement", mais lorsque j'appelle la procédure par un userform, je rencontre une erreur, " erreur définie par l'application ou par l'objet..."
un extrait du code:
Code:
Sub TRI_Agencies()
Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer
Application.ScreenUpdating = False
Sheets("Agencies").Cells.ClearContents
Sheets("Agencies").Cells(1, 6).Value = "BID"
Sheets("Feuil3").Select
n = 1
Do
n = n + 1
Loop Until Cells(n, 1).Value = ""
Dim CRH As Integer
j = 1
k = 1
For i = 1 To n
CRH = InStr(1, Cells(i, 1).Value, "CRH", vbTextCompare)
If CRH <> 0 And Cells(i, 2) > 0 Then
Sheets("Feuil3").Range("A" & i & ":B" & i & ",D" & i & ",J" & i).Copy Destination:=Sheets("CRH").Range("A" & j + 1)
j = j + 1
ElseIf CRH <> 0 And Cells(i, 2) < 0 Then
Sheets("Feuil3").Range("A" & i & ":B" & i & ",D" & i & ",J" & i).Copy Destination:=Sheets("CRH").Range("I" & k + 1)
k = k + 1
End If
Next i
end if
userform:
Code:
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Call Govies.DoTheImport
Call Govies.TRI_Govies
End If
If CheckBox2.Value = True Then
Call Covered.DoTheImport
End If
If CheckBox3.Value = True Then
Call Agencies.TRI_Agencies
End If
End Sub
L'erreur se produit même si la "Feuil3" est sélectionnée, c'est sans doute idiot, mais je coince !
Auriez-vous des idées svp ?