Supprimer une colonne sur un critère
Fermé
Fred...
Messages postés
4
Date d'inscription
jeudi 8 octobre 2015
Statut
Membre
Dernière intervention
19 novembre 2015
-
8 oct. 2015 à 12:34
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 8 oct. 2015 à 14:51
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 8 oct. 2015 à 14:51
A voir également:
- Supprimer une colonne sur un critère
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Déplacer une colonne excel - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Colonne word - Guide
1 réponse
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
61
Modifié par Kuartz le 8/10/2015 à 14:51
Modifié par Kuartz le 8/10/2015 à 14:51
Bonjour,
On peut faire quelque chose du genre :
Cordialement.
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.
