Erreur dans macro

Résolu/Fermé

Dandy_danbe Messages postés 108 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 11 avril 2022 - 1 avril 2014 à 14:15
Dandy_danbe Messages postés 108 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 11 avril 2022 - 2 avril 2014 à 10:38

Bonjour, qui pourrait me corrigé cette macro
le but est que la feuilles que je copy reçois comme nom le N° qui est dans la feuille copier en a1
c'est a dire no enregistrement dans la feuille BD j' ai mis la apres la ligne qui ou il y a un pb.
merci d'avance

Sub leden_opslaan()
'
' leden_opslaan Macro
'

'
Sheets("BD").Select
Range("A2:C2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("leden toevoegen").Select
Range("A2:C2").Select
Selection.Copy
Sheets("BD").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:C7").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("BD").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BD").Sort.SortFields.Add Key:=Range("A2:A7"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("BD").Sort
.SetRange Range("A1:C300")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A2").Select
Sheets("1").Select
Sheets("1").Copy After:=Sheets() que faut il mettre entre les () pour qui mette automatiquement le derrière la dernière feuille
Sheets("1 (2)").Select
ActiveSheet.Name = Range("A1").Text
Sheets("Klassement").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Range("A5:B9").Select
Range("A9").Activate
Selection.AutoFill Destination:=Range("A4:B9"), Type:=xlFillDefault
Range("A4:B9").Select
Range("C5").Select
Selection.AutoFill Destination:=Range("C4:C5"), Type:=xlFillDefault
Range("C4:C5").Select
Range("C4").Select
ActiveCell.FormulaR1C1 = "=IF('6'!R18C,'6'!R18C,"""")"
Range("C4").Select
Selection.AutoFill Destination:=Range("C4:AF4"), Type:=xlFillDefault
Range("C4:AF4").Select
Range("AG5:AG9").Select
Range("AG9").Activate
Selection.AutoFill Destination:=Range("AG4:AG9"), Type:=xlFillDefault
Range("AG4:AG9").Select
Range("C4").Select
Sheets("leden toevoegen").Select
Range("C7").Select
Selection.ClearContents
End Sub

https://www.cjoint.com/?DDbon4tJfL1

A voir également:

Erreur dans macro
Erreur 0x80070643 - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

2 réponses

Réponse 1 / 2

f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
2 avril 2014 à 10:03

Bonjour,

Sheets("1").Copy After:=Sheets(Sheets.Count)

Réponse 2 / 2

Dandy_danbe Messages postés 108 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 11 avril 2022
2 avril 2014 à 10:38

Bonjour;
Merci entretemps j' ai trouve ajours d'hui la solution
par contre il me reste un petit PB. dans la feuilles klasement
lorsque j' incrémente la cellule c8:c5 ver c4 il ne fait que copier la cellule
exemple c4 =si('9'!C$18;'9'!C$18;"") il devrais mettre en c4 =ALS('10'!C$18;'10'!C$18;"") autrement dis il devrait mettre le nombre de la feuille que j'ai renommée.
Je remet la copy de la nouvelle macro que j' ai enregistre ce matin
car elle renome automatiquement et fait un tri dans BD.

Sub Leden_opslaan()
'
' Leden_opslaan Macro
'

'
Sheets("BD").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Sheets("leden toevoegen").Select
Range("A2:C2").Select
Selection.Copy
Sheets("BD").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:C9").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("BD").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BD").Sort.SortFields.Add Key:=Range("A2:A9"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("BD").Sort
.SetRange Range("A1:C300")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Dim I As Integer

Sheets("1").Copy after:=Sheets(Sheets.Count)
On Error Resume Next
Do
I = I + 1
Err.Clear
ActiveSheet.Name = Format(I, "0")
If Err.Number = 0 Then Exit Do
Loop

Sheets("Klassement").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Range("A5:C12").Select
Range("A12").Activate
Selection.AutoFill Destination:=Range("A4:C12"), Type:=xlFillDefault
Range("A4:C12").Select
Range("C4").Select
Selection.AutoFill Destination:=Range("C4:AF4"), Type:=xlFillDefault
Range("C4:AF4").Select
Range("AG6").Select
Selection.AutoFill Destination:=Range("AG4:AG6"), Type:=xlFillDefault
Range("AG4:AG6").Select
Sheets("leden toevoegen").Select
Range("C7").Select
Selection.ClearContents
End Sub

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture sur iptv smarters

Problème de décodeur TV Bouygues Telecom

Discussions similaires

Newsletters