Macro avec multiples fonctions
Résolu/Fermé
Anthonyyy
-
Modifié par Anthonyyy le 28/12/2012 à 10:27
chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 - 28 déc. 2012 à 14:47
chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 - 28 déc. 2012 à 14:47
A voir également:
- Macro avec multiples fonctions
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- Virginie organise un rallye avec 30 équipes. elle veut créer un code pour désigner chaque équipe. elle a commencé à la main, mais elle voudrait le faire calculer à l'aide d'une formule. proposez une formule comportant une seule fonction et à recopier vers le bas dans la colonne a du fichier à télécharger. quelle formule sera en a9 ? ✓ - Forum Programmation
1 réponse
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 308
28 déc. 2012 à 10:45
28 déc. 2012 à 10:45
Bonjour,
as-tu des connaissances en VBA ? As-tu déjà commencé à développer ce que tu demandes?
Ces forums sont surtout fait pour donner un coup de main, pas pour tout faire à la place des gens.
Cordialement.
as-tu des connaissances en VBA ? As-tu déjà commencé à développer ce que tu demandes?
Ces forums sont surtout fait pour donner un coup de main, pas pour tout faire à la place des gens.
Cordialement.
28 déc. 2012 à 11:11
j'ai quelques connaissances en piochant sur le net des fonctions.
j'ai commencé le code mais un soucis sur le tri des données, ça me bascule ma ligne d'entêtes tout en bas alors que j'ai intégré Header:=xlGuess
Sub macroPLA()
Application.ScreenUpdating = False 'désactive le rafraichissement
Sheets("recup").Activate 'active la feuille
Dim I As Byte
For I = 9 To 9 'précise la colonne
Columns(I).TextToColumns Destination:=Cells(1, I) 'converti le format texte en standard
Next I
Columns("A").Select
Selection.EntireColumn.Hidden = True 'masque la colonne
Columns("G:H").Delete Shift:=xlToLeft 'supprime colonne
Columns("C:D").Delete Shift:=xlToLeft 'supprime colonne
'Range("A1").AutoFilter 'filtre automatique
[A:AZ].Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess 'tri
Range("F1").Select
Selection.EntireColumn.Insert
Application.ScreenUpdating = True 'réactive l'affichage
End Sub
Modifié par Anthonyyy le 28/12/2012 à 13:49
Application.ScreenUpdating = False 'désactive le rafraichissement
Sheets("recup").Activate 'active la feuille
Dim I As Byte
For I = 9 To 9 'précise la colonne
Columns(I).TextToColumns Destination:=Cells(1, I) 'converti le format texte en standard
Next I
Columns("A").Select
Selection.EntireColumn.Hidden = True 'masque la colonne
Columns("G:H").Delete Shift:=xlToLeft 'supprime colonne
Columns("C:D").Delete Shift:=xlToLeft 'supprime colonne
[A:AZ].Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlYes 'tri les dates de la colonne AG
Range("e2").Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
While ActiveCell <> ""
If ActiveCell = donnee1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend
Columns("E:F").AutoFit 'largeur auto
Dim ligne As Long
With Worksheets("recup")
For ligne = .Cells(Rows.Count, 6).End(xlUp).Row To 2 Step -1
If (InStr(UCase(.Cells(ligne, 6)), "S/T") > 0) Then
.Cells(ligne, 6).EntireRow.Delete Shift:=xlUp
End If
Next
End With
[A:AZ].Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlYes 'tri les dates de la colonne AG
Application.ScreenUpdating = True 'réactive l'affichage
End Sub
28 déc. 2012 à 14:42
28 déc. 2012 à 14:47
Je peux y jeter un coup d'oeil ce weekend, pas avant.