Supprimer une colonne sur un critère

Fred... Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -
Une valeur (calculée en début de macro) est dans une case de Sheet1.

Cette valeur est (peut-être) une entête de colonne de Sheet2

Comment supprimer cette colonne de Sheet2 si elle existe.

Merci d'avance de votre aide.

1 réponse

Réponse 1 / 1
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
Bonjour,

On peut faire quelque chose du genre : 

Sub Code()

Dim DC As Long, j As Long

DC = Sheets(2).Cells(1, Cells.Columns.Count).End(xlToLeft).Column 'j'ai pris la ligne 1 comme référence, mettre une ligne remplie jusqu'à la dernière colonne

For j = DC To 1 Step -1 'début de la boucle j

If Sheets(1).Range("A1").Value = Sheets(2).Cells(1, j) Then 'J'ai pris A1 pour la valeur qui sera cherchée pour supprimer les colonnes. Mettez la cellule où se trouve la valeur. Pareil pour la suite remplacez le 1 de (1, j) par la ligne où se trouve vos en-têtes sur la feuille 2
Columns(j).Delete 'Suppression de la colonne j
End If

Next j 'Fin de la boucle

End Sub


Cordialement.
0