probleme de suppression de colonnes

[111li207]

Bonjour,
j'ai réalisé une macro qui ne marche pas très bien :
En fait il n'y a seulement que les deux premières colonnes qui s'effacent...
Je joins mon problème

 

[PascalXLD]

Re : probleme de suppression de colonnes

Bonjour

A mon avis c'est normal, elle s'arrête à un moment où aucune des conditions n'est rempli

Je ne sais pas ce que tu veux faire mais ta macro ne me parait pas "conventionnelle"

 

[111li207]

Re : probleme de suppression de colonnes

En fait je veux supprimer toutes les colonnes sauf celle qui contient SE et Désignation

 

[suistrop]

Re : probleme de suppression de colonnes

ouai c est normal 🙂

deja ton code est imbuvable .... je me demande qui a bien pu faire ca .
le probleme :

ton code vérifie d abord les case de la colonne A et dans un premier tps si il trouve "N°" il efface la colonne en question donc le tableau se décale et il recommence avec la colonne A mais cette fois si il trouve "Al" il supprime ....
le probleme c est que arriver au moment ou il doit trouver "SE" ba dans ton code on lui demande pas de trouver SE mais "Date" donc il va jamais effacer la colonne A et ensuite quand on va lui demande de trouver Date dans la colonne A il le trouvera plus car il est dans la colonne B vu que la colonne A qui conteint SE a pas été effacer ... voila c est pas tres clair mais jpe pas mieux expliquer ton code 🙂

PS : trouve une autre solution a ton probleme ou demande nous ce que tu cherches à faire !!

 

[111li207]

Re : probleme de suppression de colonnes

Ah ouais...
Bah en fait le but de ma macro est de supprimer toutes les colonnes du tableau sauf celles ui ont en titre SE et Désignation

 

[suistrop]

Re : probleme de suppression de colonnes

Ah ouais...
Bah en fait le but de ma macro est de supprimer toutes les colonnes du tableau sauf celles ui ont en titre SE et Désignation

Sub Rectangle1_QuandClic()
For i = 18 To 1 Step -1
    If Cells(9, i) <> "SE" And Cells(9, i) <> "Désignation" Then
        Columns(i).Select
        Selection.Delete Shift:=xlToLeft
    End If
Next i
End Sub

essai ca

 

[PascalXLD]

Re : probleme de suppression de colonnes

Re

modifies ta macro ainsi

Sub Rectangle1_QuandClic()
macolonne = Range("A9").End(xlToRight).Column
For x = macolonne To 1 Step -1
    If Cells(9, x) <> "SE" And Cells(9, x) <> "Désignation" Then
        Columns(x).Delete
    End If
Next
End Sub

 

[PascalXLD]

Re : probleme de suppression de colonnes

ouai c est normal 🙂

deja ton code est imbuvable .... je me demande qui a bien pu faire ca .

Hop hop jeune homme ! Tout le monde ne pratique pas depuis longtemps donc pas de tels commentaires sur le forum. Merci

 

[111li207]

Re : probleme de suppression de colonnes

Oui c'est ca!!
Merci

 

[suistrop]

Re : probleme de suppression de colonnes

hello PascalXLD

je te pique :

Range("A9").End(xlToRight).Column

car je l avais cherché à un moment mais pas trouver !


merci !

 

[PascalXLD]

Re : probleme de suppression de colonnes

hello PascalXLD

je te pique :

Range("A9").End(xlToRight).Column

car je l avais cherché à un moment mais pas trouver !


merci !

Pendant que tu y es pique moi le fait de ne pas sélectionner, tu verras tu gagnes en temps de macro 😉

 

[suistrop]

Re : probleme de suppression de colonnes

Pendant que tu y es pique moi le fait de ne pas sélectionner, tu verras tu gagnes en temps de macro 😉

ouai je l avais remarquer ! mais tu sais je suis encore à l enregistreur de macro 🙂 je débute en excel moi 🙂 .Et puis a force d optimiser les codes bientot nos PC en feront moins que nous .... faut pas déconner !!!