Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Pourquoi ma macro est fausse?

  • Initiateur de la discussion Initiateur de la discussion Adam
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

Adam

Guest
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:
 
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
 
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?
 
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
 
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:
 
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:
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
792
Réponses
1
Affichages
313
Réponses
4
Affichages
735
Réponses
4
Affichages
586
B
  • Résolu(e)
2
Réponses
16
Affichages
2 K
benbella1991
B
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…