Explication 2.xlsx

Petit fichier excel explicatif


Bonjour,

Je crée une macro qui me permet de mettre à jour des données dans des tableaux excels à partir d'un autre fichier excel, pour ce faire VBA supprime les données d'origine dans le tableau sans toucher au titre et copie les nouvelles valeurs de ma base de donnée excel pour venir copier à nouveau dans mes tableaux.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Rg As Range
 
'Avec la feuille "ORGANIGRAMME"
With Worksheets("REPARTITION PART 1")
    'Je set Rg à l'endroit ou se trouve la valeur "T1" dans la colonne 1
    Set Rg = .Columns(1).Find("T1", LookIn:=xlValues, LookAt:=xlWhole)
End With
 
    Dim NextRow As Long 'Variable qui me permet de trouver le titre du tableau'
NextRow = ThisWorkbook.Worksheets("REPARTITION PART 1").Range("A" & Rg).End(xlUp).Row + 1
MsgBox NextRow
Dim NextRowFinal As Range 'Variable qui me permet de trouver la cellule juste en dessous de mon tableau pour coller les informations'
Set NextRowFinal = ThisWorkbook.Worksheets("REPARTITION PART 1").Range("A" & NextRow)
MsgBox NextRowFinal
Malheureusement il y a une erreur dans mon code mais je ne sais pas laquelle...

Pourriez-vous m'aider svp

Cordialement
Médérick