Pourquoi ma macro est fausse?

[Adam]

Bonjour,pourquoi ma macro qui fonctionnait avant ne fonctionne plus?

Sub activité()
Sheets('azg').Select
Range('EW1').Select
ActiveCell.FormulaR1C1 = 'Activité'
Range('EW2').Select
ActiveCell.FormulaR1C1 = _
'=IF((ici une bonne formule)<3,''1'',''2'')'
Selection.AutoFill Destination:=Range('EW2:EW' & Range('EW65536').End(xlUp).Row), Type:=xlFillDefault
End Sub

Il me met en jaune 'Selection.AutoFill Destination:=Range('EW2:EW' & Range('EW65536').End(xlUp).Row), Type:=xlFillDefault'

Par contre quand je remplace xlup par xldown ca marche mais ca fait pas ce que je voudrais faire :woohoo:

 

[ERIC S]

bonjour

je me trompe peut-être mais avec up tu fais un fill de la ligne sur elle même(EW2)

XL ne comprend pas et c'est normal, moi non plus

A+

 

[pierrejean]

bonjour Adam

a premiere vue je crains que
Range('EW65536').End(xlUp).Row ne soit egal à 2
auquel cas l'autofill n'a pas d'espace

tu peux t'en assurer en mettant
Range('EW65536').End(xlUp).Row+1

ou en prevoyant un msgbox(Range('EW65536').End(xlUp).Row)

tu peux egalement essayer de remplir quelques cellules a partir de EW2

bing Eric

mes excuses tu avais la priorité :lol:

Message édité par: pierrejean, à: 21/06/2006 09:55

 

[adam]

Mais qu'est ce que je dois concrètement modifier dans ma macro pour qu'elle m'applique la formule sur une colonne entière en détectant le nombre de lignes de mon tableau svp?

 

[pierrejean]

re Adam

s'il y a une colonne dans ton tableau qui va plus loin que la colonne EW c'est sur elle qu'il faut te baser
en supposant qu'il s'agisse de la colonne EV
remplacer
Range('EW65536').End(xlUp).Row par
Range('EV65536').End(xlUp).Row

sinon je rappelle que la fonction 'Boule de cristal' n'est pas encore implantée

 

[adam]

A___B
11 2*A1
5
3
2

La longueur de A va évoluer donc il faut détecter la hauteur de la colonne A automatiquement ca me donne :

Selection.AutoFill Destination:=Range('B2:B' & Range('B65536').End(xlUp).Row),
Type:=xlFillDefault

???

C'est à peu près ce que j'ai fait,mais est ce bon?

Je ne vois pas le problème :woohoo: :woohoo:

 

[pierrejean]

re
essaie plutot

Selection.AutoFill Destination:=Range('B2:B' & Range('A65536').End(xlUp).Row),
Type:=xlFillDefault

Range('A65536').End(xlUp).Row te donne le N° de la derniere ligne de la colonne A
c'est ce N° qui associé à B dira ou doit s'arreter l'autofill

a ta disposition pour plus d'explication :lol:

 

[adam]

Je me disais aussi,c'est un plantage en chaine!

Lien supprimé

🙂


Merci ça marche,a+