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