Fonction range

Bonjour,

J'ai une macro dans une feuille Excel nommée "recapitulatif" qui comporte ce code activable depuis un bouton de commande :

Private Sub CommandButton4_Click()
Application.DisplayAlerts = False 'évite le message d'alerte
    Range("Tableau1[@Name]").Select
    ActiveCell.FormulaR1C1 = "=Manufacturing!R[1]C[1]"
    Range("Tableau1[@Name]").Select
    Selection.AutoFill Destination:=Range("A1:A910"), Type:=xlFillDefault
    Range("A1:A910").Select

j'aimerais déplacer le bouton dans une feuille nommée "selection", mon problème est que lorsque je déplace le bouton dans la feuille "selection" et que je teste le code, il me met des erreurs car forcement il ne trouve pas le tableau 1.

Je n'arrive pas tranformer cette formule pour qu'il sélectionne le tableau 1 de la feuille "récapitulatif".

Sheets("récapitulatif").Range("Tableau1[@Name]").Select ne fonctionne pas ^^

Bonjour,

En dehors du fait qu'il faut bannir les .select inutiles, je doute de l'intérêt d'une telle macro.

L'avantage d'avoir ta plage en Tableau c'est justement de mettre formats et formule lors de son extension.

En plus tu bloques la copie à une plage figée avec Destination:=Range("A1:A910") et lui enlève doublement tout intérêt.

Met ta formule manuellement et laisse excel gérer ensuite.

eric

Merci de me répondre, comment ferais tu sans les ".select" ?

je t'ai dit qu'excel faisait cela tout seul sur un Tableau, sans macro.