Supprimer .Select

Bonjour,

Y a t'il moyen de supprimer le .select ?

With Worksheets("Planning")
.Range("E8:AW8").Select
    Selection.AutoFill Destination:=Range("E8:AW" & iRow), Type:=xlFillDefault
End With

Merci.

Re,

Mécanisme :

With Worksheets("Planning")
.Range("E8:AW8") _[barrer].Select[/barrer]
    [barrer]Selection[/barrer].AutoFill [barrer]Destination:=[/barrer].Range("E8:AW" & iRow)[barrer], Type:=xlFillDefault[/barrer]
End With

Résultat :

With Worksheets("Planning")
    .Range("E8:AW8").AutoFill .Range("E8:AW" & iRow)
End With

On raccorde, on ajoute les points manquants, on supprime aussi les noms d'arguments (passage par position), et le second n'est pas nécessaire...

(Quand l'enregistreur te met Select suivi de Selection à la ligne en dessous, le raccord est direct... C'est parfois un peu moins simple.

Cordialement.

Un grand merci MFerrand, et merci pour les infos, toujours un plaisir d'apprendre avec tes explications.

Cordialement.

Rechercher des sujets similaires à "supprimer select"