XL 2019 Autofill - Une seule ligne

I

Inés310790

XLDnaute Nouveau
Bonjour tout le monde,

J'aurais besoin d'un conseil pour un problème de macro :) je suis très débutante !
Je m'explique : je reçois mensuellement des fichiers (ci joint un exemple).

Ma macro réalise les action suivantes:
- tri en fonction des opérations "DST" et "DOMV" sur deux feuillez différentes
- réalisation de "modèle" sur feuille séparé en fonction des opérations

Mon problème: j'utilise la fonction Autofill à plusieurs reprises. Cela fonction très bien quand il y a plusieurs opérations, mais malheureusement parfois il n'y a qu'une seul ligne pour un type d'opération et cela ne fonctionne plus du tout.

Auriez vous une solution à mon problème... ci dessous le code que j'ai essayé mais qui ne fonctionne pas ... et maintenant je suis complètement perdue

Sub MACROCHINOIS()
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "DST"
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "DOMV"
Sheets(1).Select
derli = Sheets(1).Cells.Find("*", , , , xlByRows, xlPrevious).Row
Sheets(1).Cells(derli, 1).EntireRow.Delete
Dim plage As Range
Application.ScreenUpdating = False
With Sheets(1)
.AutoFilterMode = False
.[1:1].Insert 'nécessaire si pas de titres
Set plage = .Range("A2:R" & .[A65536].End(xlUp).Row)
plage.AutoFilter 2, "*DST*"
With Sheets("DST")
.[A1:B65536].Clear
plage.SpecialCells(xlCellTypeVisible).Copy .[A1]
.[A1:R1].Delete xlUp
.Activate 'facultatif
End With
.[1:1].Delete
End With
Application.ScreenUpdating = False
With Sheets(1)
.AutoFilterMode = False
.[1:1].Insert 'nécessaire si pas de titres
Set plage = .Range("A2:R" & .[A65536].End(xlUp).Row)
plage.AutoFilter 2, "*DOMV*"
With Sheets("DOMV")
.[A1:B65536].Clear
plage.SpecialCells(xlCellTypeVisible).Copy .[A1]
.[A1:R1].Delete xlUp
.Activate 'facultatif
End With
.[1:1].Delete
End With
Application.DisplayAlerts = False
Sheets(1).Delete
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Modèle TVA 3" 'ajoute une Feuille devant la Feuille active et la nomme "NouvelleFeuille"
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Modèle TVA 4" 'ajoute une Feuille devant la Feuille active et la nomme "NouvelleFeuille"
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Modèle TVA 5" 'ajoute une Feuille devant la Feuille active et la nomme "NouvelleFeuille"
With Sheets(2).Select
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
If DernLigne < 1 Then Exit Sub
If DernLigne >= 1 Then
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
With Sheets("Modèle TVA 3").Select
Range("A1").Select
ActiveSheet.Paste
Range("B1").Select
Application.CutCopyMode = False
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
If DernLigne = 1 Then ActiveCell.FormulaR1C1 = "707021"
If DernLigne > 1 Then
End If
End With
Dim DerLigne As Long
DerLigne = Range("A65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "707021"
Selection.AutoFill Destination:=Range("B1:B" & DerLigne)
Range("C1").Select
Application.CutCopyMode = False
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
If DernLigne = 1 Then ActiveCell.FormulaR1C1 = "VF1"
If DernLigne > 1 Then
DerLigne = Range("B65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "VF1"
Selection.AutoFill Destination:=Range("C1:C" & DerLigne), Type:=xlFillCopy
Sheets(2).Select
Range("G1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Modèle TVA 3").Select
Range("D1").Select
ActiveSheet.Paste
Sheets(2).Select
Range("Q1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Modèle TVA 3").Select
Range("E1").Select
ActiveSheet.Paste
Sheets(2).Select
Range("I1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Modèle TVA 3").Select
Range("G1").Select
ActiveSheet.Paste
Sheets(2).Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
With Sheets("Modèle TVA 4").Select
Range("A1").Select
ActiveSheet.Paste
Range("B1").Select
Application.CutCopyMode = False
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
If DernLigne = 1 Then ActiveCell.FormulaR1C1 = "445721"
If DernLigne > 1 Then
DerLigne = Range("A65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "445721"
Selection.AutoFill Destination:=Range("B1:B" & DerLigne)
Range("C1").Select
Application.CutCopyMode = False
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
If DernLigne = 1 Then ActiveCell.FormulaR1C1 = "VF1"
If DernLigne > 1 Then
DerLigne = Range("B65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "VF1"
Selection.AutoFill Destination:=Range("C1:C" & DerLigne), Type:=xlFillCopy
Sheets(2).Select
Range("G1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Modèle TVA 4").Select
Range("D1").Select
ActiveSheet.Paste
Sheets(2).Select
Range("Q1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
With Sheets("Modèle TVA 4").Select
Range("E1").Select
ActiveSheet.Paste
Range("G1").Select
Application.CutCopyMode = False
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
If DernLigne = 1 Then ActiveCell.FormulaR1C1 = "='Modèle TVA 3'!RC*20%"
If DernLigne > 1 Then
DerLigne = Range("E65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "='Modèle TVA 3'!RC*20%"
Selection.AutoFill Destination:=Range("G1:G" & DerLigne)
Sheets(2).Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
With Sheets("Modèle TVA 5").Select
Range("A1").Select
ActiveSheet.Paste
Range("B1").Select
Application.CutCopyMode = False
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
If DernLigne = 1 Then ActiveCell.FormulaR1C1 = "411000"
If DernLigne > 1 Then
DerLigne = Range("A65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "411000"
Selection.AutoFill Destination:=Range("B1:B" & DerLigne)
Range("C1").Select
Application.CutCopyMode = False
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
If DernLigne = 1 Then ActiveCell.FormulaR1C1 = "VF1"
If DernLigne > 1 Then
DerLigne = Range("B65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "VF1"
Selection.AutoFill Destination:=Range("C1:C" & DerLigne), Type:=xlFillCopy
Sheets(2).Select
Range("G1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Modèle TVA 5").Select
Range("D1").Select
ActiveSheet.Paste
Sheets(2).Select
Range("Q1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
With Sheets("Modèle TVA 5").Select
Range("E1").Select
ActiveSheet.Paste
Range("F1").Select
Application.CutCopyMode = False
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
If DernLigne = 1 Then ActiveCell.FormulaR1C1 = "='Modèle TVA 3'!RC[1]+'Modèle TVA 4'!RC[1]"
If DernLigne > 1 Then
DerLigne = Range("E65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "='Modèle TVA 3'!RC[1]+'Modèle TVA 4'!RC[1]"
Selection.AutoFill Destination:=Range("F1:F" & DerLigne)
Sheets("Modèle TVA 4").Select
Range("A1").Select
ActiveCell.EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Modèle TVA 3").Select
Range("A1").End(xlDown).Offset(1).Select
ActiveSheet.Paste
Sheets("Modèle TVA 5").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Modèle TVA 3").Select
Range("A1").End(xlDown).Offset(1).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = False
Sheets("Modèle TVA 4").Delete
Sheets("Modèle TVA 5").Delete
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Modèle TVA " 'ajoute une Feuille devant la Feuille active et la nomme "NouvelleFeuille"
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Modèle TVA 2" 'ajoute une Feuille devant la Feuille active et la nomme "NouvelleFeuille"
With Sheets(1).Select
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
If DernLigne < 1 Then Exit Sub
If DernLigne >= 1 Then
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
With Sheets("Modèle TVA ").Select
Range("A1").Select
ActiveSheet.Paste
Range("B1").Select
Application.CutCopyMode = False
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
If DernLigne = 1 Then ActiveCell.FormulaR1C1 = "607031"
If DernLigne > 1 Then
DerLigne = Range("A65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "607031"
Selection.AutoFill Destination:=Range("B1:B" & DerLigne)
Range("C1").Select
Application.CutCopyMode = False
If DernLigne = 1 Then ActiveCell.FormulaR1C1 = "ACI"
If DernLigne > 1 Then
DerLigne = Range("B65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "ACI"
Selection.AutoFill Destination:=Range("C1:C" & DerLigne)
Sheets(1).Select
Range("G1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Modèle TVA ").Select
Range("D1").Select
ActiveSheet.Paste
Sheets(1).Select
Range("Q1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Modèle TVA ").Select
Range("E1").Select
ActiveSheet.Paste
Sheets(1).Select
Range("I1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Modèle TVA ").Select
Range("F1").Select
ActiveSheet.Paste
Sheets(1).Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
With Sheets("Modèle TVA 2").Select
Range("A1").Select
ActiveSheet.Paste
Range("B1").Select
Application.CutCopyMode = False
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
If DernLigne = 1 Then ActiveCell.FormulaR1C1 = "401000"
If DernLigne > 1 Then
DerLigne = Range("A65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "401000"
Selection.AutoFill Destination:=Range("B1:B" & DerLigne)
Range("C1").Select
Application.CutCopyMode = False
If DernLigne = 1 Then ActiveCell.FormulaR1C1 = "ACI"
If DernLigne > 1 Then
DerLigne = Range("B65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "ACI"
Selection.AutoFill Destination:=Range("C1:C" & DerLigne)
Sheets(1).Select
Range("G1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Modèle TVA 2").Select
Range("D1").Select
ActiveSheet.Paste
Sheets(1).Select
Range("Q1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Modèle TVA 2").Select
Range("E1").Select
ActiveSheet.Paste
Sheets(1).Select
Range("I1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Modèle TVA 2").Select
Range("G1").Select
ActiveSheet.Paste
Sheets("Modèle TVA ").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Modèle TVA 2").Select
Range("A1").End(xlDown).Offset(1).Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Sheets("Modèle TVA ").Delete

End Sub

Un grand merci par avance de votre aide
 

Pièces jointes

  • 007-VAT--FR70842167470.xls
    54 KB · Affichages: 19
Trier par date Trier par votes
Staple1600

Staple1600

XLDnaute Barbatruc
Bonjour Inès, le fil, le forum

Un exemple pour se simplifier la vie
(sans utiliser Autofill)
VB: 
Sub Exemple()
Dim Formule1 As String, Formule2 As String
Dim DerLigne As Long
Formule1 = "='Modèle TVA 3'!RC[1]+'Modèle TVA 4'!RC[1]"
Formule2 = "='Modèle TVA 3'!RC*20%"
DerLigne = Sheets("Feuil1").Cells(Rows.Count, 1).End(3).Row
Sheets("Feuil1").Range("B2:B" & DerLigne).FormulaR1C1 = Formule1
Sheets("Feuil1").Range("G2:G" & DerLigne).FormulaR1C1 = Formule2
End Sub
A toi de voir, si cette façon de faire t'inspire ;)
 
Vote positif 0 Vote négatif

Discussions similaires

ph.vanne
  • Question
Autres fenêtre "Publication"
Réponses
10
Affichages
425
ph.vanne
ph.vanne
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
323
Phil69970
Phil69970
G
  • Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
173
sylvanu
sylvanu
M
  • Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
184
MICHIS
M
H
  • Question
XL 2013 Erreur VBA 1004 Impression zone d'impression tableau
Réponses
13
Affichages
340
Helios77
H
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
522
candido57
C
S
  • Résolu(e)
Microsoft 365 Boucle pour afficher et masquer des lignes
Réponses
12
Affichages
519
shf
S
B
  • Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
537
Compte Supprimé 979
C
K
  • Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
131
vgendron
vgendron
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
376
job75
job75

Membres actuellement en ligne

13 membres et 95 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 090
Messages
2 116 102
Membres
112 661
dernier inscrit
ceucri