Discussion :

[buigui]

Bonjour

Sur la première ligne d'une feuille, j'ai deux types de valeurs possibles: 1 ou 2

Je souhaiterais que toutes les colonnes ayant la valeur 1 soient supprimées.
La macro doit pouvoir fonctionner sur plusieurs feuilles de calcul, sur lesquelles les colonnes "1" ne sont pas toutes au même endroit.
D'où le besoin de pouvoir critériser la suppression de la colonne sur la valeur 1 de la première ligne.


La macro ci-dessous ne me permet pas d'arriver au résultat souhaité:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub SUP_COL()
 
		For i = 1 To 300
			If not Cells(1, i) = "1" Then
				columns(1,i).entirecolumn.delete
				end if
			next
 
		End Sub

Par exemple sur le fichier ci-joint, j'aimerais qu'il ne reste que les colonnes "2", et si-possible dans leur ordre initial, c'est à dire avec les valeurs de la ligne 2 dans l'ordre alphabétique.

Voyez-vous une solution svp?

Merci par avance.

SUP_COL.xlsx

[mat955]

Bonjour,

Avec cette macro, un décalage se crée lorsque tu as deux 1 successifs.
En effet, lorsque tu vas rencontrer le premier 1 (en colonne C par exemple), ta macro va supprimer la colonne C, et la colonne D va se retrouver à la place de la colonne C.
Puis ta macro continue ta boucle en passant à la colonne d'après, elle va donc ignorer la colonne D qui s'est retrouvée en colonne C !

Je ne sais pas si mon explication est claire, mais tu peux résoudre ce problème en partant des colonnes de droite et en remontant à l'envers, à l'aide de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 300 To 1 step -1

[buigui]

Bonjour
Oui c'est exactement ce step -1 que je cherchais.
Merci beaucoup.