Programmation VBA

Dynamitz -  
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je souhaite créer un fichier Excel assez complexe pour simplifier la vie de mes collègues de bureau (et la mienne).

Dans une des feuilles, je colle une extraction d'un tableau importé. Et tout mon fichier s'alimente a partir de cette feuille importée.

Sur cette feuille importée, je souhaite trier mes données, en supprimant toute les ligne où la colonne D contient la valeur texte : "CIRCUIT COURT", via un bouton de macro.

Cette extraction comporte une centaine de ligne.

J'ai quelques idées mais mon niveau en VBA ne me permet pas de les aboutir...

Merci d'avance pour votre aide

1 réponse

Réponse 1 / 1
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

J'ai quelques idées
Certes, certes, mais en resume, qu'est-ce que vous ne savez pas faire??
0
Dynamitz
 
"Je souhaite trier mes données, en supprimant toute les ligne où la colonne D contient la valeur texte : "CIRCUIT COURT", via un bouton de macro. "

Simplement ça. Enlever toutes les lignes de mon extraction, où la colonne D contient "CIRCUIT COURT". Je ne veux pas les voir apparaitre sur mon tableau.

Cette action se fera sous forme de bouton macro.
Tout mon fichier est créé, il ne manque que cette partie a faire. Je ne peux pas le partager ce sont des données confidentielles...

Merci pour le retour rapide en tout cas :)
0
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715 > Dynamitz
 
Re,

un exemple de code: 

Sub Sup_Circuit_Court()
    Dim Nbre As Integer, Lig As Integer, Cptr As Integer
    With Sheets("feuil1")
        'Recherche du nombre d'occurence d'en pour diminuer le temps de recherche suivant
        Nbre = Application.CountIf(.Columns("D"), "CIRCUIT COURT")
        If Nbre > 0 Then
            Lig = 1
            For Cptr = 1 To Nbre
                Lig = .Columns("D").Find("CIRCUIT COURT", .Cells(Lig, "D"), , xlWhole).Row
                'sup ligne
                .Rows(Lig & ":" & Lig).Delete
            Next Cptr
        End If
    End With
End Sub
0

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
VBA excel : résoudre problème de capacité.
Juan Pedro -
Kunzi -

9 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse