Macro suppression colonne en fonction d une valeur

[jfdelval]

Bonjour à tous , je débute dans les macros , j ai un tableau qui démarre en colonne d et qui termine colonne cv , je souhaiterai supprimer la colonne , si la valeur de la cellule en ligne 52 et égale à zéro

Merci de votre aide , c est pour mettre en forme mon tableau

Jean François

 

[titiborregan5]

Re : Macro suppression colonne en fonction d une valeur

Bonjour jfdelval, le forum,
sans fichier et de tête...
Pour cela il te faut une boucle qui sonde chaque colonne, en commençant par la fin car on supprime...

for j= range("d1").end(xlright).column to 4 step -1 'on prend le numéro de la dernière colonne et on va jusqu'à 4 (D)
if cells(52,j)="0" then
column(j).delete
end if
next

Dis-nous si ça marche

 

[vgendron]

Re : Macro suppression colonne en fonction d une valeur

Salut,

regardes le fichier joint si ca te convient
en ligne 1, j'ai mis le numéro de la colonne (4 pour D....100 pour CV)
en ligne 52, j'ai mis quelques données

appuie sur le bouton et regarde ce qui'l se passe
pour aller voir le code: ALT+F11

 

[jfdelval]

Re : Macro suppression colonne en fonction d une valeur

Bonjour jfdelval, le forum,
sans fichier et de tête...
Pour cela il te faut une boucle qui sonde chaque colonne, en commençant par la fin car on supprime...

for j= range("d1").end(xlright).column to 4 step -1 'on prend le numéro de la dernière colonne et on va jusqu'à 4 (D)
if cells(52,j)="0" then
column(j).delete
end if
next

Dis-nous si ça marche

Merci pour la réponse mais cela me met erreur de compilation sub ou fonction non définie et commun et en sur gras sur la ligne
Column (j).delete

Merci encore pour votre patience

 

[jfdelval]

Re : Macro suppression colonne en fonction d une valeur

Salut,

regardes le fichier joint si ca te convient
en ligne 1, j'ai mis le numéro de la colonne (4 pour D....100 pour CV)
en ligne 52, j'ai mis quelques données

appuie sur le bouton et regarde ce qui'l se passe
pour aller voir le code: ALT+F11

Merci ça fonctionne nickel , merci pour le partage jf

 

[vgendron]

Re : Macro suppression colonne en fonction d une valeur

Salut jf

comme tu débutes en macro ce qu'il faut savoir
une macro est déclarée par
sub NOMMACRO()
'code
end sub

donc effectivement, le code de titiborregan5 mis tel quel va te créer une erreur:
il te suffit de l'encader avec les éléments précédents: ce qui te donne

Sub supprimer()
for j= range("d1").end(xlright).column to 4 step -1 'on prend le numéro de la dernière colonne et on va jusqu'à 4 (D)
   if cells(52,j)="0" then
      column(j).delete
   end if
next
end sub

 

[Pierrot93]

Re : Macro suppression colonne en fonction d une valeur

Bonjour à tous,

petite remarque au passage, manque un s à column :

columns(j).delete

bonne journée
@+

 

[titiborregan5]

Re : Macro suppression colonne en fonction d une valeur

Bonjour à tous,

petite remarque au passage, manque un s à column :

bonne journée
@+

Salut jf

comme tu débutes en macro ce qu'il faut savoir
une macro est déclarée par
sub NOMMACRO()
'code
end sub

donc effectivement, le code de titiborregan5 mis tel quel va te créer une erreur:
il te suffit de l'encader avec les éléments précédents: ce qui te donne

Sub supprimer()
for j= range("d1").end(xlright).column to 4 step -1 'on prend le numéro de la dernière colonne et on va jusqu'à 4 (D)
   if cells(52,j)="0" then
      column(j).delete
   end if
next
end sub

Effectivement je n'avais pas mis le sub() endsub et petit oubli du s à columns...

Merci pour vos corrections :d
A bientôt!