Bonjour Excel World. Ci-dessous, j'ai un code qui copie les données et transferts de différentes cellules et colle les données d'une feuille de calcul dans plusieurs feuilles de calcul sur la base des noms de référence des cellules.
Mon problème ici est le suivant. Chaque feuille de calcul a des tableaux qui (DEVRAIENT SAISIR) les nouvelles données qui sont collées automatiquement sous le tableau, ce qui, au fil du temps, crée des données historiques et met à jour automatiquement le graphique pour chaque tableau.
Comment puis-je apporter des modifications au code ci-dessous qui prend en charge ma demande?
Merci d'avance
Sub Update_Sheets()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim i As Long, j As Long, f As Range
Set sh1 = Sheets("Debt_to_GDP")
For i = 2 To sh1.Range("A:A").Find("*", , xlValues, , xlByRows, xlPrevious).Row
Set sh2 = Sheets(Replace(sh1.Range("A" & i).Value, " ", "_"))
Set f = sh2.Range("B:B").Find(sh1.Range("B" & i).Value, , xlFormulas, xlWhole)
If f Is Nothing Then
j = sh2.Range("B:B").Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
sh2.Range("B" & j).Value = sh1.Range("B" & i).Value
sh2.Range("C" & j).Value = sh1.Range("C" & i).Value
End If
Next
End Sub