pourquoi ca ne marche pas !

job75

XLDnaute Barbatruc

• 5 Octobre 2009

• #2

Re : pourquoi ca ne marche pas !

Bonjour Nicko,

Je ne comprends pas trop ce que vous voulez faire.

Mais peut-être au lieu de :

Code:

Selection.AutoFill Destination:=Range("E" & nextcel - 1 & ":F" & nextcel - 1), Type:=xlFillDefault

écrire :

Code:

Selection.AutoFill Destination:=[COLOR="Red"]Selection.Resize(2)[/COLOR], Type:=xlFillDefault

En effet "La destination doit inclure la plage source" (Aide VBA).

Edit : si c'est ça, pourquoi ne pas écrire simplement :

Code:

Selection.Offset(1) = Selection.Value

Par ailleurs je vous laisse l'entière responsabilité de tous vos Select 😉

A+

 

Dernière édition: 5 Octobre 2009

Vote positif 0 Vote négatif

N

Nicko

XLDnaute Occasionnel

• 5 Octobre 2009

• #3

Re : pourquoi ca ne marche pas !

meci, je vais essayer ca !

pour info, je cherche simplement à "tirer" une formule existante dans la cellule superieur vers la nouvelle ligne créée.

puisqu'on y est, quel est le "risque" avec les SELECT ???

Nicko

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Octobre 2009

• #4

Re : pourquoi ca ne marche pas !

Re,

En VBA, vous devriez le savoir depuis le temps, les Select sont presque toujours inutiles.

Ils alourdissent et ralentissent la procédure.

Et sur les feuilles ça se voit...

Edit : si la sélection comporte des formules, vous pouvez écrire :

Code:

Selection.Offset(1).FormulaR1C1 = Selection.FormulaR1C1

A+

 

Dernière édition: 5 Octobre 2009

Vote positif 0 Vote négatif

N

Nicko

XLDnaute Occasionnel

• 6 Octobre 2009

• #5

Re : pourquoi ca ne marche pas !

MERCI POUR L'INFO !
Désolé, je n'etit pas au courant pour les contre-parties de SELECT !!!

Dans ce cas, pa quoi remplace t-on SELECT dans les codes ...

nicko

PS: pour la ligne de code, ca fonctionne impec'

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 6 Octobre 2009

• #6

Re : pourquoi ca ne marche pas !

bonjour,

pour les select, on ne les remplace pas, 9 fois sur 10, on en a pas besoin
exemple le plus souvent rencontré :
range("a5:b20").select
selection.copy
sheets("Feuil2").select
range("C48").select
activecell.paste
===== range("a5:b20").copy destination:=sheets("Feuil2").range("c48")
sans aucun select !!

 

Vote positif 0 Vote négatif

N

Nicko

XLDnaute Occasionnel

• 6 Octobre 2009

• #7

Re : pourquoi ca ne marche pas !

Merci pour l'exemple !

Il va falloir apprendre de nouvelles syntaxes ...
"destination" par exemple n'est pas dans mon vocabulaire, mais semble etre utile !

encore merci, je vais me pencher sur l'eradication de tous les select qui passent ;-)

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 6 Octobre 2009

• #8

Re : pourquoi ca ne marche pas !

re,
ouaip, c'est une bonne idée de le faire, cela allègera ton code, te fera apprendre les nouvelles syntaxes. Sinon, tu as la touche F1 quand tu cliques sur un mot reservé VBA, il t'ouvre toute l'aide Microsoft concernant ce mot

 

Vote positif 0 Vote négatif