Automatiser un tableau Excel
Bonjour,
Je suis nouveau après avoir beaucoup parcouru ce forum a trouver des solutions aujourd'hui, par manque de connaissance, je bloque et je viens vous décrire mon problème.
J'ai un fichier Excel que je dois maintenir a jour tous les jours pour des stats téléphonique. Hors le fichier d'origine ou j'extrais les données ne me transmet jamais les numéro dans un ordre logique, c'est aléatoire.
Je dois faire ce tableau tous les jours ouvrés et maintenir le tableau de bord a jour "STATS"
J'ai créer une feuille "Formulaire" pour copier/coller les données extraites (l'idées est de mettre en place une macro qui classera les données voulu par la suite)
J'ai créer une feuille de référentiel pour faire correspondre les numéros aux villes afin de compléter les feuilles jours après jours
Cependant mon problème est la, les numéros du fichier extrait arrivent d'ordre aléatoire, j'aimerai faire en sorte qu'il se classent dans l'ordre voulu de façon a permettre la mise en place d'une macro, ou d'automatiser ce classement direct juste en collant le fichier extrait.J'espère mettre bien exprimé, je vous remercie par avance de votre aide
Bonjour et bienvenue sur le forum
Un essai à tester, si j'ai bien compris. Te convient-il ?
Bye !
Bonjour !!
C'est vraiment super ! Avec ça je vais pouvoir finaliser le fichier ! Merci beaucoup !!
Bonjour,
Je reviens vers vous ce matin toujours pour la même raison, il y a un petit oublie, ne sachant pas trop toucher a tout cela je préfère solliciter votre aide.
Quand je lance la macro pour faire le classement, il me manque la ville Mérignac, comment puis-je l'ajouter sans tout reprendre svp ?
Bonjour,
C'est parfait ! Merci beaucoup de votre aide !
Je reviens encore pour un autre soucis : j'ai enregistré une macro, mais quand je l'exécute, j'aimerai créer une nouvelle feuille et la renommer, mais en faisant ces actions, la macro bloque pour la prochaine utilisation..
Comment faire pour qu'elle continue a s'exécuter sans bloquer a chaque fois sur la feuille 2 qui avec le temps deviendra 3, 4, 5 etc... et la renommer ? Voici la macro complète :
Merci par avance,
Sub Auto()
'
' Auto Macro
'
'
Sheets.Add After:=ActiveSheet
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "Date"
Sheets("Date").Select
Sheets("Date").Move Before:=Sheets(5)
Sheets("Formulaire").Select
Range("A2:J10").Select
Selection.Copy
Sheets("Date").Select
Range("A2").Select
ActiveSheet.Paste
Range("H3:I10").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Cells.Select
Cells.EntireColumn.AutoFit
Rows("2:2").Select
Selection.Font.Bold = True
Range("A2:H2").Select
Selection.AutoFilter
Range("G14").Select
Sheets("Formulaire").Select
Range("A3:J25").Select
Selection.Delete Shift:=xlToLeft
Range("B3").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A1").Select
Application.Goto Reference:="Auto"
End Sub
Bonjour,
J'ai oublié de préciser que l'erreur venait de feuil2 : pour lancer la macro c'est le bouton activer
Merci par avance
Sub Auto()
'
' Auto Macro
'
'
Sheets.Add After:=ActiveSheet
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "Date"
Sheets("Date").Select
Sheets("Date").Move Before:=Sheets(5)
Sheets("Formulaire").Select
Range("A2:J10").Select
Selection.Copy
Sheets("Date").Select
Range("A2").Select
ActiveSheet.Paste
Range("H3:I10").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Cells.Select
Cells.EntireColumn.AutoFit
Rows("2:2").Select
Selection.Font.Bold = True
Range("A2:H2").Select
Selection.AutoFilter
Range("G14").Select
Sheets("Formulaire").Select
Range("A3:J25").Select
Selection.Delete Shift:=xlToLeft
Range("B3").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A1").Select
Application.Goto Reference:="Auto"
End Sub