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

XL 2013 Changer boucle en étirement de formule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion viclaet
  • 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 !

S'inscrire
V

viclaet

XLDnaute Nouveau
Bonjour,

Je suis débutante en VBA et je souhaiterais gagner du temps en remplaçant une boucle par un étirement de formule.
Je m'explique, j'ai réalisé cette boucle :

For j = 51 To 60
For i = 4 To 21112

If (Cells(i, 11) >= Cells(i, 10)) Then
Cells(i, j) = 0
Else
Cells(i, j) = 1
End If

Next i
Next j

Cependant, le temps de réalisation du programme est long.
Pour cela j'aimerai savoir comment étendre la formule que j'aurais mise en cellule (4,51) et l'étendre jusqu'en cellule (21112,51).

Merci pour votre aide
 
Trier par date Trier par votes
Re : Changer boucle en étirement de formule

Bonjour

avec cette formule en AY4 (51)
=SI($K4>=$J4;0;1)
tu tires vers la droite jusqu'à la colonne BH (60)
Puis vers le bas juqu'à ta ligne 21112
 
Vote positif 0 Vote négatif
Re : Changer boucle en étirement de formule

Bonjour,

Mon but est d'automatiser le programme, c'est la raison pour laquelle je souhaite passer sous VBA et non Excel.
De plus la soustraction se fait entre une variable fixe et une aléatoire, pour cela il faut qu'il y ait un changement de valeurs entre les colonnes.
 
Vote positif 0 Vote négatif
Re : Changer boucle en étirement de formule

Bonjour,

Sans ton ficher exemple.. difficile d'aller plus loin...

remplaçant une boucle par un étirement de formule.
Cliquez pour agrandir...
j'avais compris que tu ne voulais plus de VBA justement..

Cells(i, 11) >= Cells(i, 10))
Cliquez pour agrandir...

ici, je ne vois rien de fixe ni d'aléatoire.. tu fais toujours la soustraction des cellules colonne J et K de la meme ligne..
tu voulais peut etre plutot dire ?
Fixe; les colonnes J et K
variable: la ligne.

pour mettre une formule et l'étirer en VBA:
lance l'enregistreur de macro, ecris ta formule en AY4, tires la , à droite et en bas
arrete l'enregistreur, et visualise le code (Alt +F11 pour ouvrir l'éditeur de code): tu auras, je pense, déjà un bon début de réponse
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Changer boucle en étirement de formule

Bonjour

Mieux vaut tard que...

peut être avec
Code: 
Sub etendre2()
Application.ScreenUpdating = False
Range("D6:AA2000").Formula = "=IF(D6>=C6,0,1)"
Application.ScreenUpdating = True
End Sub

en adaptant la plage D6:AA2000 a ton besoin.

@ plus
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

G
  • Résolu(e)
XL 2021 Transformer une formule en vba
2
Réponses
20
Affichages
751
kiki29
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
703
TooFatBoy
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
647
job75
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
355
TooFatBoy
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
617
Piment
P
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
580
kiki29
J
  • Question Question
Microsoft 365 VBA transformer une formule au format texte en formule dans excel
Réponses
2
Affichages
202
jujulili
J
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
293
nat54
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
963
tnion
T
  • Résolu(e)
Microsoft 365 Boucle FOR
Réponses
7
Affichages
432
TooFatBoy
  • Résolu(e)
Microsoft 365 Comment supprimer un espace entre deux chiffres ?
2
Réponses
18
Affichages
554
Staple1600
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
450
sylvanu
C
  • Résolu(e)
XL 2021 Additionner résultats d'une boucle for en vba
Réponses
9
Affichages
628
Claudinedu13
C
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
339
R1-
B
  • Question Question
Microsoft 365 couleur cellule A1 suivant la protection de la feuille
Réponses
4
Affichages
118
bendv
B
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
649
piga25
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
1 K
Mody200
M
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
684
patricktoulon
  • Résolu(e)
XL 2010 Erreur de compilation - Incompatibilité de type: tableau ou type défini par l'utilisateur
Réponses
3
Affichages
390
cathodique
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
370
CDALE
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…