Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

Excel macro vba

Dernière réponse le 20 sep 2007 à 17:14:15 sagrada, le 23 aoû 2005 à 11:46:13

Signaler ce message aux modérateurs

Bonjour à tous!

Je viens vous demander de l'aide concernant un petit prog en macro vba, je souhaite créer une macro qui sera utilisable pour plusieurs fichiers excel autant qu'on veut à partir d'une seule macro.

Le but du programme est de supprimer automatiquement toutes les colonnes qui ne me servent pas. En résumé, une macro (un seul prog en vba) pour plusieurs fichiers.

Je vous montre mon petit prog:

sub test ( )

Workbook. Activate
Range ("G:G, I:Z, AA:AA, AU:BK").delete

end sub

Je vous remercie d'avance de votre infatiguable collaboration

Meilleures réponses pour « excel macro vba » dans :

Macro vba excel: copier une plage de données Voir

Excel: macro VBA mise en forme conditionnelle (Résolu) Voir

Macro vba pour word Voir

Supprimer un fichier à partir macro VBA Excel Voir

[vba excel] macro pour masquer ligne Voir

Excel VBA macro mots clés Voir

Télécharger Excel Macro Processor Voir

Télécharger MOREFUNC (Macro complémentaire EXCEL) VoirMorefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont compatibles avec Excel 95 à 2007. Elles ne sont pas portables sur d'autres plate-formes que Windows, ni sur d'autres...

Posez votre question Répondre

baborge, le 24 aoû 2005 à 21:49:31

Petite precision:
les colonnes sont elles fixes?

Répondre à baborge

baborge, le 24 aoû 2005 à 22:25:53

Si la(les) colonne(s) sont fixes:

Sub supp_col_fixe()
    Dim CHEMIN As String
    Dim FICHIER As String
    Dim COMPIL As String
    Dim NBCARACT As Integer
    Dim LONGUEUR As Integer
    Application.ScreenUpdating = True
    COMPIL = ActiveWorkbook.Name
    NBCARACT = Len(COMPIL)
    CHEMIN = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - NBCARACT)
    ChDir CHEMIN
    FICHIER = Dir(CHEMIN & "*.*")
    Do While FICHIER <> ""
        If FICHIER <> "." And FICHIER <> ".." And FICHIER <> COMPIL Then
            Workbooks.Open Filename:=CHEMIN & FICHIER
            nj = (WorksheetFunction.CountA(Columns("a:a")))
            
            If nj = 0 Then
                Range("A:A").Delete
            End If
        End If
        FICHIER = Dir
    Loop
End Sub

si les colonnes sont parametrables (lister les colonnes dans la colonnes G du fichier modele à partir de la ligne 2):

Sub supp_liste_col_G()
    Dim CHEMIN As String
    Dim FICHIER As String
    Dim COMPIL As String
    Dim NBCARACT As Integer
    Dim LONGUEUR As Integer
    Dim COLONNE As String
    
    Application.ScreenUpdating = True
    nb = (WorksheetFunction.CountA(Columns("G:G")))
    For i = 2 To nb
        If Range("G" & i).Value <> "" Then
               COLONNE = Range("G" & i).Value & ":" & Range("G" & i).Value
                COMPIL = ActiveWorkbook.Name
                NBCARACT = Len(COMPIL)
                CHEMIN = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - NBCARACT)
                ChDir CHEMIN
                FICHIER = Dir(CHEMIN & "*.xls")
                Do While FICHIER <> ""
                    If FICHIER <> "." And FICHIER <> ".." And FICHIER <> COMPIL Then
                        Workbooks.Open Filename:=CHEMIN & FICHIER
                        nj = (WorksheetFunction.CountA(Columns(COLONNE)))
                        
                        If nj = 0 Then
                            Range(COLONNE).Delete
                        End If
                        
                        ActiveWorkbook.Close SaveChanges:=yes
                    End If
                    FICHIER = Dir
                Loop
        End If
    Next
End Sub

Répondre à baborge

eli, le 20 sep 2007 à 06:11:27

Je souhaite copier le contenu des information d une feuille demarrant en case b8 et se terminant en case n200 dun fichier xls vers un autre fichier en VBA.
je nai aucne notion du VBA.

puis trier avec comme base la colonne B et reorganiser toutes les donnees recues
qui peut m aider sur ce simple programme

Répondre à eli

TunsianO, le 20 sep 2007 à 17:14:15

Bonjour mes fréres
je cherche une formation sur les macro excel..qui peut m aider svp par un fichier ou un cours ?? j ai des notions de base sur l VB..merci d avance

Répondre à TunsianO

Posez votre question Répondre