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

VBA - Étirer formule vers le bas = F2+Enter

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

Fredox

XLDnaute Occasionnel
Bonjour,
J'ai mis en place ces formules pour étirer vers le bas les formules présentes en ligne 6, entre Q et V.
Si étendre le formule à bien fonctionné, en revanche il affiche le résultat de la ligne 6 dans toutes les lignes suivantes.
Je suis obligé de revalider chaques cellules (F2+Enter) pour que le bon résultat s'affiche.

Y aurait-il une solution pour directement avoir mon résultat ?

Code: 
Range("Q6:Q" & Range("c65536").End(xlUp).Row).Value = Range("Q6").Formula
Range("R6:R" & Range("c65536").End(xlUp).Row).Value = Range("R6").Formula
Range("S6:S" & Range("c65536").End(xlUp).Row).Value = Range("S6").Formula
Range("T6:T" & Range("c65536").End(xlUp).Row).Value = Range("T6").Formula
Range("U6:U" & Range("c65536").End(xlUp).Row).Value = Range("U6").Formula
Range("V6:V" & Range("c65536").End(xlUp).Row).Value = Range("V6").Formula


Merci
 
Trier par date Trier par votes
Bonjour

Deux façons de faire
VB: 
Sub test()
Dim formule As String
formule = "=ROW()*COLUMN()"
Range("Q6:Q" & Cells(Rows.Count, 3).End(xlUp).Row).Formula = "=ROW()*COLUMN()"
Range("R6:R" & Cells(Rows.Count, 3).End(xlUp).Row).Formula = formule
End Sub
 
Vote positif 0 Vote négatif
Re

Ci-dessous autre exemple
(à tester sur une feuille vierge)
VB: 
Sub test2()
Dim Derlig As Long ' ce qui sert
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'les lignes ci-dessous ne servent qu'à insérer des formules pour test
Range("C6:C17") = 1
Range("Q6:V6") = Array("=NOW()+RAND()", "=INT(ROW()*PI())", "=INT(COLUMN()/PI())*ROW()", "=4*2*5*10*2*2", "=LOG(ROW())", "=ROW()*2")
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Derlig = Range("c65536").End(xlUp).Row ' ce qui sert
Range("Q6:V" & Derlig).FillDown 'ce qui sert
End Sub
 
Vote positif 0 Vote négatif
Bonjour Staple1600,
Je viens de tester la deuxième version, le problème reste le même, il étire bien la formule mais affiche le contenu identique à la cellule étirée. Une fois fait F2+Enter, le bon résultat s'affiche.
 
Vote positif 0 Vote négatif
Bonjour le fil, Fredox

•>Fredox
Regardes dans tes Options Excel, si Calcul Automatique est bien coché.

Sur mon PC, le code que je t'ai proposé fonctionne
(sinon je ne l'aurai pas posté sur le forum... 🙄)
 
Vote positif 0 Vote négatif
Staple1600,

Pour la version 1 le résultat ne correspond pas puisque la formule n'est pas la bonne.
En revanche c'est peut-être une bonne piste, au lieu d'étirer la formule est-ce que je peux la ressaisir ?

Ma formule originale est: " =si(et(N6=100%);H6="OK";L6;"") "
Comment remplacer les N, H et L par dernLigne ?

Merci encore.
 
Vote positif 0 Vote négatif
Re

Comme j'ai pris le temps de refaire un exemple
(plutôt que de jeter, je poste)
VB: 
Sub Test_3()
Dim Derlig As Long
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = False
Randomize 1600
Rows("7:777").Clear
Range("C6:C" & Application.RandBetween(16, 27)) = "=""Staple""&1600+ROW()"
Range("Q6:V6") = Array("=INT(RAND()*1600)", "=INT(ROW()*PI())", "=INT(COLUMN()/PI())*ROW()", "=4*2*5*10*2*2", "=LOG(ROW())", "=ROW()*2")
Derlig = Cells(Rows.Count, 3).End(xlUp).Row
Range("Q6:V" & Derlig).FillDown
[Q6].CurrentRegion.Columns.AutoFit
Cells(Derlig, 3).Font.Bold = -1
Rows(Derlig).SpecialCells(xlCellTypeFormulas, 3).Interior.Color = vbYellow
End Sub
PS: Regarde la ligne qui pourra te servir concernant le calcul automatique.

Freedox à dit:
Pour la version 1 le résultat ne correspond pas puisque la formule n'est pas la bonne.
Cliquez pour agrandir...
NB: Les codes que je t'ai proposés (en prenant soin de le préciser) ne sont que des codes de test.
Donc à tester sur une feuille vierge.
 
Vote positif 0 Vote négatif
Re

•>Freedox
C'est dingue que mes messages ne soient pas lu attentivement.
😱
Epuisé à force de répéter¸ Staple¸ le teint blême à dit:
NB: Les codes que je t'ai proposés (en prenant soin de le préciser) ne sont que des codes de test.
Donc à tester sur une feuille vierge.
Cliquez pour agrandir...
Ce qui veut dire que leur seule utilité est illustrative et/ou "pédagogique".
Ni plus, ni moins.
🙄
 
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

  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
472
Chaton77
Z
  • Question Question
XL 2010 tableau pour comparer deux colonnes et écrire le résultat dans une troisième colonne
2
Réponses
28
Affichages
2 K
zephir94
Z
A
  • Question Question
XL 2010 Correction macro supprimant les lignes avec '' 0 '' en début de tableau
Réponses
2
Affichages
478
Acritas
A
G
  • Question Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
798
GClaire
G
J
  • Résolu(e)
XL 2016 Aide Macro VBA - Reporter valeurs Feuille 1 dans une autre feuille 2 à partir d'une certaine cellule
Réponses
9
Affichages
5 K
jo77
J
P
  • Résolu(e)
Microsoft 365 En fonction d'une condition, copier plusieurs cellules particulières d'un coup
Réponses
4
Affichages
1 K
PCharlier
P
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
Z
  • Question Question
Autres Aide à détecter les erreurs dans un code VBA
Réponses
1
Affichages
921
kiki29
B
  • Question Question
Not Application.Intersect + Hyperlinks : erreur 1004
Réponses
6
Affichages
1 K
benjaminxls
B
A
  • Résolu(e)
Microsoft 365 VBA - Erreur 13 "incompatibilité de type"
Réponses
5
Affichages
1 K
AlicePrince
A
  • Résolu(e)
XL 2013 VBA / Transfert de dates avec condition
Réponses
6
Affichages
1 K
PMG
M
  • Résolu(e)
XL 2016 Message d'erreur aléatoire pour les utilisateurs réseau -Excel 2016
Réponses
11
Affichages
2 K
Melidan2006
M
H
  • Question Question
VBA CheckBox en oui/non
2
Réponses
19
Affichages
6 K
Dranreb
T
  • Question Question
Microsoft 365 Procédure trop grande
Réponses
1
Affichages
1 K
ton-v
T
F
  • Question Question
XL 2013 ÉTIRER FORMULE VERS LE BAS
Réponses
3
Affichages
931
François Bst
F
F
  • Question Question
Problème avec page qui défile sur VBA
Réponses
5
Affichages
2 K
Fariri
F
  • Question Question
importation données sauf des lignes précises (Code de Job)
Réponses
6
Affichages
1 K
an@s
  • Question Question
XL 2013 Formule collée en tant que texte dans un code
Réponses
10
Affichages
1 K
luke3300
T
  • Question Question
XL 2016 [RESOLU] VBA - Erreur sur macro qui compte les valeurs uniques
Réponses
2
Affichages
1 K
tetchounie
T
  • Question Question
XL 2013 Aide sur sauvegarde en TXT par VBA
2
Réponses
15
Affichages
2 K
youky(BJ)
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…