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

Recopie formule = ok mais manque un arret

Créer une discussion

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
A

Aladin

XLDnaute Occasionnel
Bonjour le forum
J'ai une macro qui me recopie mes formules, et qui fonctionne tres bien, mais je voudrais ajouter cette condition.
Recopie les formules et s' arrété à la premiere ligne vide de la colonne B
Voici la macro
Sub Recopie_Formules()
Sheets("DATA").Select
Application.ScreenUpdating = False
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A102")
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E102")
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F102")
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G102")
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H102")
Range("I2").Select
Selection.AutoFill Destination:=Range("I2:I102")
Application.ScreenUpdating = True
Range("A2").Select
End Sub
Merci d' avance pour tout aide
Aladin
 
Trier par date Trier par votes
Re : Recopie formule = ok mais manque un arret

Bonjour

Si j'ai bien compris

Code: 
Option Explicit

Sub Recopie_Formules()
Dim derlig As Long
  Sheets("DATA").Select
  Application.ScreenUpdating = False
  derlig = Range("B65536").End(xlUp).Row
  Range("A2").AutoFill Destination:=Range("A2:A" & derlig)
  Range("E2").AutoFill Destination:=Range("E2:E" & derlig)
  Range("F2").AutoFill Destination:=Range("F2:F" & derlig)
  Range("G2").AutoFill Destination:=Range("G2:G" & derlig)
  Range("H2").AutoFill Destination:=Range("H2:H" & derlig)
  Range("I2").AutoFill Destination:=Range("I2:I" & derlig)
  Application.ScreenUpdating = True
  Range("A2").Select
End Sub
 
Vote positif 0 Vote négatif
Re : Recopie formule = ok mais manque un arret

Bonjour le forum et Banzai64
Merci d' avoir répondu assez rapidement pour me veir en aide, j' ai fait un test avec la macro modifié et il ne tient pas compte de la premiere cellule vide de la colonne B.
Aladin
 
Vote positif 0 Vote négatif
Re : Recopie formule = ok mais manque un arret

Bonjour le forum et Banzai64
Je m' excuse, la macro modifié que tu m' as donné fonctionne tres bien. Je m' explique, j' avais un enchainenemt de 3 macros, en supprimant cet enchainement et les lancer séparément la mcor modifié fonctionne.
Merci pour ton Aide
Aladin
 
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

X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
522
xavieralvaro
X
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
790
ph.vanne
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
M
  • Question Question
XL 2019 Optimisation VBA
Réponses
1
Affichages
552
vgendron
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
S
  • Question Question
Microsoft 365 comparaison texte
Réponses
5
Affichages
827
svn
S
F
  • Question Question
Microsoft 365 Optimisation code VBA - Succession de copier coller
Réponses
8
Affichages
3 K
flomag
F
T
  • Résolu(e)
Microsoft 365 Répétition macro sur nombre de lignes X
2
Réponses
28
Affichages
4 K
Phil69970
  • Résolu(e)
Microsoft 365 Liaisons externes par macro
2 3
Réponses
33
Affichages
3 K
Usine à gaz
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
C
  • Résolu(e)
Microsoft 365 Formule qui ralenti ma macro
2
Réponses
15
Affichages
3 K
mapomme
B
  • Question Question
Not Application.Intersect + Hyperlinks : erreur 1004
Réponses
6
Affichages
1 K
benjaminxls
B
P
  • Question Question
XL 2019 Bloc if sans End If
Réponses
3
Affichages
1 K
Pounet95
P
Z
  • Résolu(e)
trier une base pour creer des listes dynamiques
Réponses
3
Affichages
1 K
Zilba456
Z
N
  • Question Question
XL 2016 probleme dans une macro lgn = cell.Row
Réponses
4
Affichages
1 K
neim
N
A
  • Question Question
Appliquer une macro à partir de la cellule sélectionner
Réponses
6
Affichages
2 K
Dan
  • Question Question
XL 2010 VBA Modifier formule dans une macro
Réponses
3
Affichages
2 K
jlbcall
B
  • Question Question
boucle
Réponses
2
Affichages
963
BIL boud
B
F
  • Question Question
Formule "Si" en VBA
Réponses
5
Affichages
5 K
Jacky67
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…