comment supprimer des colonnes avec vba

Question

Bonjour à tous,

j'aimerais supprimer des colonnes particulières d'une feuille excel. Il s'agit de toutes les colonnes contenant "date","ouverture","plus haut",plus bas","dern.cours" et "vol.moyen" .Le problème est que je suis vraiment débutant en vba et j'aimerais savoir si quelqu'un peut m'aider à faire l'écriture de ce code? merci d'avance

gbinforme · Answer

bonjour

Pour supprimer une colonne, la 4ème par exemple : Columns(4).Delete

dans ton cas tu peux faire :

    Cells.Find(What:="date").EntireColumn.Delete
    Cells.Find(What:="ouverture").EntireColumn.Delete
    Cells.Find(What:="plus haut").EntireColumn.Delete
...

tekillah4 · Answer

génial ça marche nickel! merci beaucoup!

student02 · Answer

Bonjour,

J'ai essayé de coller ce code tel quel dans une boucle mais cela ne marche pas.... que dois-je faire ?

eriiic · Answer

Bonjour, 

comme ça peut-être : 
Sub suppCol() 
    Dim fini As Boolean, c As Range 
    Do While Not fini 
        Set c = Cells.Find(What:="date") 
        If c Is Nothing Then 
            fini = True 
        Else 
            c.EntireColumn.Delete 
        End If 
    Loop 
End Sub 
Dans 3 boucle différentes. Ca ne sert à rien de continuer à chercher qcq chose n'existe plus. 

eric 

PS : mettre fini=false entre chaque boucle
  
Jamais tu ne répondras à un mp non sollicité... 
Bon, ça c'est fait.

Student02 · Answer

Salut Eriiic,

Merci pour ta réponse mais quand je l'insère dans mon code il ne repère pas l'intitulé et donc ne fait rien ... Est-ce parce que celui-ci est sur la deuxième ligne ?

Deuxième point: j'ai également d'autres colonnes à suprimer. Puis-je insérer la ligne : Set c = Cells.Find(What:="example") juste en dessous de celle de la date ?

Merci

Student

jiaco79 · Answer

Bonjour,

Je peux te donner le code qui supprime une colonne:

Tu te positionnes sur la colonne à supprimer puis tu lances ce bout de code      

Code:

Selection.EntireColumn.Delete

End

Comment supprimer des colonnes avec vba

6 réponses

Discussions similaires

Newsletters