wmichelange
XLDnaute Occasionnel
Bonjour le forum
1 petit coup de main SVP
Je voudrais une macro qui :
a) identifie les dernières Cellules ( ligneBJ à IP..300lignes) de tableaux contenant des formules... soit comme : Selection.End(xlDown).Select ? de BJ à IP
b) Puis qui recopie incrémentée cette dernière (ligne BJ à IP+1) dans la ligne au dessous avec toutes les formules
Je sais faire :
"Sub RecopieIncrementee()
Set PlageSource = Worksheets("Feuille1").Range("BJ302:IP302")
' La plage BJ1:IP1 contient des formules de calculs jusqu'à la ligne 302.
Set PlageARemplir = Worksheets("Feuille1").Range("BJ302:IP303")
PlageSource.AutoFill Destination:=PlageARemplir
End Sub"
Mais Il faut ouvrir la macro et changer la dernière ligne 303 en 304 car la mise à jour se fait tous les 2 jours
Peut-on automatiser?
C' est le "Range" qui me chiffonne "Range (End(xlDown)" ????? ou Range +1
Mes essais ne fonctionnent pas avec (End(xlDown)
merci du coup de main
Cordialement
wmichelange
1 petit coup de main SVP
Je voudrais une macro qui :
a) identifie les dernières Cellules ( ligneBJ à IP..300lignes) de tableaux contenant des formules... soit comme : Selection.End(xlDown).Select ? de BJ à IP
b) Puis qui recopie incrémentée cette dernière (ligne BJ à IP+1) dans la ligne au dessous avec toutes les formules
Je sais faire :
"Sub RecopieIncrementee()
Set PlageSource = Worksheets("Feuille1").Range("BJ302:IP302")
' La plage BJ1:IP1 contient des formules de calculs jusqu'à la ligne 302.
Set PlageARemplir = Worksheets("Feuille1").Range("BJ302:IP303")
PlageSource.AutoFill Destination:=PlageARemplir
End Sub"
Mais Il faut ouvrir la macro et changer la dernière ligne 303 en 304 car la mise à jour se fait tous les 2 jours
Peut-on automatiser?
C' est le "Range" qui me chiffonne "Range (End(xlDown)" ????? ou Range +1
Mes essais ne fonctionnent pas avec (End(xlDown)
merci du coup de main
Cordialement
wmichelange