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

Microsoft 365 Prise en charge ajouts lignes via code

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

JBL07

XLDnaute Occasionnel
Bonjour à tous,

Un petit problème de code que je ne sais pas résoudre :

Voici un l'extrait d'une macro concernant un tableau de comptes qui s'allonge avec l'ajouts d'écritures
Je voudrais que l'indication J9240 ( c'est la dernière ligne actuellement ) puisse être remplacée par une formule ou un code qui actualise les lignes à venir

Actuellement, je reviens régulièrement dans le code pour le faire manuellement... merci par avance

Range("J10").Select
Selection.AutoFill Destination:=Range("J10:J9240")
Range("J10:J9240").Select
Range("I9").Select
 
Solution
Bonjour JBL07, Soan, M12, le forum

*Précision :
le +1 te donnes la 1ere ligne vide après tes données de la colonne B
Si tu veux juste la dernière ligne utilisée écris juste
Derlig = Range("B10").End(xlDown).Row

VB: 
Sub Tri_Chrono()
' Tri_Chrono Macro
' Trie toutes les opérations de la plus récente à la plus ancienne

Dim Derlig As Long
' Voir *Précision :
'le +1 te donnes la 1ere ligne vide après tes données de la colonne B
Derlig = Range("B10").End(xlDown).Row + 1

Range("B10:B" & Derlig).Select
ActiveWorkbook.Worksheets("Ecritures").ListObjects("Tabécritures").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ecritures").ListObjects("Tabécritures").Sort. _
SortFields.Add2 Key:=Range("B10"), SortOn:=xlSortOnValues, Order:= _...
Trier par date Trier par votes
Bonjour JBL07,

je te propose ce code VBA :
VB: 
Sub Essai()
  Dim dlg&: Application.ScreenUpdating = 0
  'dlg = n° dernière ligne utilisée, selon la colonne I
  dlg = Cells(Rows.Count, 9).End(3).Row
  [J10].AutoFill Range("J10:J" & dlg)
  [I9].Select
End Sub
soan
 
Vote positif 0 Vote négatif
Merci pour vos réponses, mais je dois vous faire passer le code complet car il y a plusieurs "endroits" où je voudrais intégrer cette donnée, et je n'arrive pas à le faire avec les autres morceaux de codes

Il s'agit de plusieurs macros que j'ai maladroitement associées, et à par ce point, tout fonctionne 🙂

Sub Tri_Chrono()

' Tri_Chrono Macro
' Trie toutes les opérations de la plus récente à la plus ancienne

Range("B10:B9240").Select
ActiveWorkbook.Worksheets("Ecritures").ListObjects("Tabécritures").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Ecritures").ListObjects("Tabécritures").Sort. _
SortFields.Add2 Key:=Range("B10"), SortOn:=xlSortOnValues, Order:= _
xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Ecritures").ListObjects("Tabécritures").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J10").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SEARCH(Ecritures!R9C9,Ecritures!RC[-1]),"""")"


Range("Q9240").Select
Selection.AutoFill Destination:=Range("Q10:Q9240"), Type:=xlFillDefault
Range("Q10:Q9240").Select

' MAJ_formule_recherche Macro
' Re balaye la colonne masquée J en cas de décalage formule pour la recherche

Range("J10").Select
Selection.AutoFill Destination:=Range("J10:J9240")
Range("J10:J9240").Select

'
' Maj_dates_écritures Macro
' Mets à jour les dates dans la colonne Année ( C ) après insertion écritures

'
Range("C9").Select
Selection.AutoFill Destination:=Range("Tabécritures[Année]")
Range("Tabécritures[Année]").Select


Range("I9").Select

End Sub
 
Vote positif 0 Vote négatif
Bonjour JBL07, Soan, M12, le forum

*Précision :
le +1 te donnes la 1ere ligne vide après tes données de la colonne B
Si tu veux juste la dernière ligne utilisée écris juste
Derlig = Range("B10").End(xlDown).Row

VB: 
Sub Tri_Chrono()
' Tri_Chrono Macro
' Trie toutes les opérations de la plus récente à la plus ancienne

Dim Derlig As Long
' Voir *Précision :
'le +1 te donnes la 1ere ligne vide après tes données de la colonne B
Derlig = Range("B10").End(xlDown).Row + 1

Range("B10:B" & Derlig).Select
ActiveWorkbook.Worksheets("Ecritures").ListObjects("Tabécritures").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ecritures").ListObjects("Tabécritures").Sort. _
SortFields.Add2 Key:=Range("B10"), SortOn:=xlSortOnValues, Order:= _
xlDescending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Ecritures").ListObjects("Tabécritures").Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Range("J10").Select
ActiveCell.FormulaR1C1 = "=IFERROR(SEARCH(Ecritures!R9C9,Ecritures!RC[-1]),"""")"

Range("Q" & Derlig).Select
Selection.AutoFill Destination:=Range("Q10:Q" & Derlig), Type:=xlFillDefault
Range("Q10:Q" & Derlig).Select

' MAJ_formule_recherche Macro
' Re balaye la colonne masquée J en cas de décalage formule pour la recherche

Range("J10").Select
Selection.AutoFill Destination:=Range("J10:J" & Derlig)
Range("J10:J" & Derlig).Select
'
' Maj_dates_écritures Macro
' Mets à jour les dates dans la colonne Année ( C ) après insertion écritures
'
Range("C9").Select
Selection.AutoFill Destination:=Range("Tabécritures[Année]")
Range("Tabécritures[Année]").Select

Range("I9").Select

End Sub

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
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

L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
959
fanfan38
F
  • Question Question
Microsoft 365 erreur 1004 : cette interface n'est pas prise en charge
Réponses
1
Affichages
2 K
Bernard_XLD
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
T
  • Question Question
Microsoft 365 Comment donner des couleurs aux lignes d'une ListView excel VBA
2 3
Réponses
34
Affichages
5 K
TooFatBoy
G
  • Question Question
Microsoft 365 filtrer / défiltrer insertion de ligne automatique - macro qui ne fonctionne pas ou de manière aléatoire
Réponses
4
Affichages
1 K
Grelune
G
S
  • Question Question
Microsoft 365 Ajout d'une en-tete et pied de page via macro
Réponses
4
Affichages
1 K
saggigo
S
B
  • Question Question
Microsoft 365 VBA Compter 2 lignes après la fin d'un tableau dont on a le nom
Réponses
2
Affichages
965
bluesky12000
B
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
C
  • Résolu(e)
XL 2019 Supprimer la 1000eme ligne et classer lignes par dates
Réponses
2
Affichages
758
chris4785478547
C
C
  • Question Question
XL 2016 Code VBA copier une valeur sur une plage de données dont les cellules de début et fin varient
Réponses
2
Affichages
4 K
CD38
C
M
  • Question Question
Tri personnalisé et mise en forme VBA.
Réponses
4
Affichages
1 K
xUpsilon
M
  • Question Question
Verrouillage de la feuille en VBA avec fonction Tri
Réponses
4
Affichages
1 K
Med30
M
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
6 K
Roland_M
  • Question Question
importation données sauf des lignes précises (Code de Job)
Réponses
6
Affichages
1 K
an@s
R
  • Question Question
XL 2016 [RESOLU] Optimisation code étirer formule
Réponses
2
Affichages
905
roybaf
R
M
  • Question Question
XL 2016 Macro - Séparer un feuillet en plusieurs
Réponses
3
Affichages
1 K
Staple1600
  • Question Question
XL 2013 Formule collée en tant que texte dans un code
Réponses
10
Affichages
1 K
luke3300
B
  • Question Question
XL 2010 code formule Autofill avec colonnes et lignes finales variables
Réponses
2
Affichages
1 K
Batiscaf
B
D
  • Question Question
XL 2010 [Resolu]RechercheV avec variable
Réponses
11
Affichages
2 K
dds69
D
M
  • Question Question
Macro repeter tant que en codage VBA
Réponses
3
Affichages
1 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…