Suppression colonne selon titre
Résolurimoa Messages postés 149 Date d'inscription Statut Membre Dernière intervention -
- Suppression colonne selon titre
- Forcer suppression fichier - Guide
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Formule somme excel colonne - Guide
- Trouver un film sans le titre - Télécharger - Divers TV & Vidéo
4 réponses
bonjour,
cell n'est probablement pas associée à la bonne cellule.
Merci pour la réponse.
Je n'arrive pas à voir où est l'erreur, voici le fichier test si vous pouvez le regarder svp
Le code VBA n'est pas dans le fichier partagé. Tu peux partager ici le texte du code VBA, en appliquant ceci: https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code
Bonjour, sorry j'avais oublié de copier le code.
merci pour le lien de testing du code c'est nouveau pour moi, je vais voir comment l'utiliser.
Sub DeleteSpecifcColumn()
Set MR = Range("A1:BR1")
Worksheets("Export").Activate
For Each cell In MR
If cell.Value = "DateF" Or cell.Value = "DateS" Or cell.Value = "New Date" Or cell.Value = "Close Date" Then cell.EntireColumn.Delete
Next
End Sub
C'est la logique de la boucle (for each) qui est défectueuse.
Un exemple:
Option Explicit Sub DeleteSpecifcColumn() Dim cell As Range, ncol As Long Set cell = Worksheets("Export").[A1] ncol = 1 Do While cell <> "" Debug.Print cell.Address, cell If cell.Value = "DateF" Or cell.Value = "DateS" Or cell.Value = "New Date" Or cell.Value = "Close Date" Then cell.EntireColumn.Delete Else ncol = ncol + 1 End If Set cell = Worksheets("Export").Cells(1, ncol) Loop End Sub