Bonjour,
Je reviens après plusieurs mois, j'ai de nouveaux des problèmes sur les macros.
Voilà les deux macros:
Sub Copier_coller()
'
' Copier_coller 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 Base Propo!
dernièrelignetest = Workbooks("Base propo unique v2 2016.xlsx").Worksheets("Base Propo").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("Copie de Suggestion new BP.xlsm").Worksheets("feuil1").Cells(3, 1).CurrentRegion.Rows.Count
'recherche des lignes i contenant la date dans [Suggestion new BP]Feuil1!
For i = 3 To dernièreligneSug
If Workbooks("Copie de Suggestion new BP.xlsm").Worksheets("feuil1").Range("H" & i).Value = Date Then
' et affichage sur la feuille Base Propo!
Application.Workbooks("Copie de Suggestion new BP.xlsm").Worksheets("feuil1").Range("A" & i & ":V" & i).Copy _
Workbooks("Base propo unique v2 2016.xlsx").Worksheets("Base Propo").Range("A" & dernièrelignetest + 1)
Workbooks("Base propo unique v2 2016.xlsx").Worksheets("Base Propo").Cells(dernièrelignetest + 1, 18) = WorksheetFunction.Sum(Application.Workbooks("Copie de Suggestion new BP.xlsm").Worksheets("feuil1").Range("R" & i & ":X" & i))
Workbooks("Base propo unique v2 2016.xlsx").Worksheets("Base Propo").Cells(dernièrelignetest + 1, 19) = WorksheetFunction.Sum(Application.Workbooks("Copie de Suggestion new BP.xlsm").Worksheets("feuil1").Range("Y" & i & ":AI" & i))
Workbooks("Base propo unique v2 2016.xlsx").Worksheets("Base Propo").Cells(dernièrelignetest + 1, 20) = WorksheetFunction.Sum(Application.Workbooks("Copie de Suggestion new BP.xlsm").Worksheets("feuil1").Range("AJ" & i & ":AK" & i))
Workbooks("Base propo unique v2 2016.xlsx").Worksheets("Base Propo").Cells(dernièrelignetest + 1, 21) = WorksheetFunction.Sum(Application.Workbooks("Copie de Suggestion new BP.xlsm").Worksheets("feuil1").Range("AL" & i))
Workbooks("Base propo unique v2 2016.xlsx").Worksheets("Base Propo").Cells(dernièrelignetest + 1, 22) = WorksheetFunction.Sum(Application.Workbooks("Copie de Suggestion new BP.xlsm").Worksheets("feuil1").Range("AM" & i & ":AP" & i))
Workbooks("Base propo unique v2 2016.xlsx").Worksheets("Base Propo").Cells(dernièrelignetest + 1, 23) = WorksheetFunction.Sum(Application.Workbooks("Copie de Suggestion new BP.xlsm").Worksheets("feuil1").Range("AQ" & i & ":AR" & i))
Workbooks("Base propo unique v2 2016.xlsx").Worksheets("Base Propo").Cells(dernièrelignetest + 1, 24) = WorksheetFunction.Sum(Application.Workbooks("Copie de Suggestion new BP.xlsm").Worksheets("feuil1").Range("AS" & i & ":AT" & i))
dernièrelignetest = dernièrelignetest + 1
End If
Next i
End Sub
Sub Copier_coller2()
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 Base Propo!
dernièrelignetest = Workbooks("Base propo unique v2 2016.xlsx").Worksheets("Base Propo").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("Copie de 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("Copie de Suggestion new BP.xlsm").Worksheets("feuil1").Range("H" & i).Value = Date Then
' et affichage sur la feuille Base Propo!
Application.Workbooks("Copie de Suggestion new BP.xlsm").Worksheets("feuil1").Range("AU" & i & ":CD" & i).Copy _
Workbooks("Base propo unique v2 2016.xlsx").Worksheets("Base Propo").Range("Y" & dernièrelignetest + 1)
dernièrelignetest = dernièrelignetest + 1
End If
Next i
End Sub
Les problèmes sont que:
- depuis qq jours une des deux macros se colle bien à la première ligne vide mais la deuxième ne va pas se coller sur ces mêm lognes mais à la premère ligne vide en dessous. La macro n'a pas été modifié donc je ne vois pas pourquoi ça se met à buguer.
- depuis le début les formules se copient mal aux colonnes BC, BD, BG et BH, alors que dans les autres colonnes les formules se copient très bien.
Les formules qui se copient mal sont:
- NBCAR(BC11675) qui se colle comme ca: NBCAR(#REF!)
- REPT(CAR(48);6-BC11675) &B11675 qui se colle comme ca: REPT(CAR(48);6-BC11675) &#REF!
- CONCATENER(BF11675;"\";J11675) qui se colle comme ca: CONCATENER(BF11675;"\";#REF!)
- CONCATENER(BE11675;"\";J11675) qui se colle comme ca: CONCATENER(BE11675;"\";#REF!)
Les fichiers que j'avais envoyé au début de la conversation sont l'exact reflet des fichiers utilisés aujourd'hui. Quand j'utilise les macros sur un autre fichier le seul problem qui se pose est celui es colonnes qui copient mal.
Les fichiers d'aujourd'hui ont plusieurs dizaines de milliers de lignes.
Est-ce que quelqu'un aurait une idée de solution s'il vous plait? Je ne vois pas d'où vient l'erreur et nous sommes deux, un collègue et moi, à avoir chercher d'où venait le problème.
Merci par avance de votre aide !!