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
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...
Code:
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
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
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...
Code:
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
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
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
Code:
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
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
Code:
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