Bonjour,
J'ai un petit soucis qui est surement facile à résoudre mais bon ...
Je dois faire une macro copier coller mais au format texte, voilà la macro:
Dim lig As Long, col As Long
Dim dernièrelignetest As Long
Dim dernièreligneSug As Long
'dernièrecolonnetest = n° de la colonne la plus à droite dans la feuille Compil BP!
dernièrelignetest = Workbooks("Compil BP.xlsx").Worksheets("Feuil1").Cells(2, 1).CurrentRegion.Rows.Count
'dernièrecolonnetest = n° de la colonne la plus à droite dans la feuille [Suggestion new BP]Feuil1!
dernièreligneSug = Workbooks("Suggestion new BP.xlsm").Worksheets("feuil1").Cells(1, 1).CurrentRegion.Rows.Count
'recherche des lignes i contenant la date dans [Suggestion new BP]Feuil1!
For i = 2 To dernièreligneSug
If Workbooks("Suggestion new BP.xlsm").Worksheets("feuil1").Range("H" & i).Value = Date Then
' et affichage sur la feuille Compil BP!
Application.Workbooks("Suggestion new BP.xlsm").Worksheets("feuil1").Range("AU" & i & ":CD" & i).Value.Copy _
Workbooks("Compil BP.xlsx").Worksheets("Feuil1").Range("Y" & dernièrelignetest + 1).Text
dernièrelignetest = dernièrelignetest + 1
End If
Next i
'
J'ai une erreur "424 objet requis" sur ces deux lignes:
Application.Workbooks("Suggestion new BP.xlsm").Worksheets("feuil1").Range("AU" & i & ":CD" & i).Value.Copy _
Workbooks("Compil BP.xlsx").Worksheets("Feuil1").Range("Y" & dernièrelignetest + 1).Text
Si vous pouvez m'aider s'il vous plait, ça me faciliterait la tâche !
Merci beaucoup d'avance !
Pluce1
J'ai un petit soucis qui est surement facile à résoudre mais bon ...
Je dois faire une macro copier coller mais au format texte, voilà la macro:
Dim lig As Long, col As Long
Dim dernièrelignetest As Long
Dim dernièreligneSug As Long
'dernièrecolonnetest = n° de la colonne la plus à droite dans la feuille Compil BP!
dernièrelignetest = Workbooks("Compil BP.xlsx").Worksheets("Feuil1").Cells(2, 1).CurrentRegion.Rows.Count
'dernièrecolonnetest = n° de la colonne la plus à droite dans la feuille [Suggestion new BP]Feuil1!
dernièreligneSug = Workbooks("Suggestion new BP.xlsm").Worksheets("feuil1").Cells(1, 1).CurrentRegion.Rows.Count
'recherche des lignes i contenant la date dans [Suggestion new BP]Feuil1!
For i = 2 To dernièreligneSug
If Workbooks("Suggestion new BP.xlsm").Worksheets("feuil1").Range("H" & i).Value = Date Then
' et affichage sur la feuille Compil BP!
Application.Workbooks("Suggestion new BP.xlsm").Worksheets("feuil1").Range("AU" & i & ":CD" & i).Value.Copy _
Workbooks("Compil BP.xlsx").Worksheets("Feuil1").Range("Y" & dernièrelignetest + 1).Text
dernièrelignetest = dernièrelignetest + 1
End If
Next i
'
J'ai une erreur "424 objet requis" sur ces deux lignes:
Application.Workbooks("Suggestion new BP.xlsm").Worksheets("feuil1").Range("AU" & i & ":CD" & i).Value.Copy _
Workbooks("Compil BP.xlsx").Worksheets("Feuil1").Range("Y" & dernièrelignetest + 1).Text
Si vous pouvez m'aider s'il vous plait, ça me faciliterait la tâche !
Merci beaucoup d'avance !
Pluce1