Suppression colonne selon titre
Résolurimoa Messages postés 120 Date d'inscription samedi 9 février 2013 Statut Membre Dernière intervention 24 mars 2023 - 24 mars 2023 à 04:10
- Suppression colonne selon titre
- Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
- Déplacer une colonne excel - Guide
- Titre de l'adresse ✓ - Forum Internet / Réseaux sociaux
- Présentation d'une diapositive - Forum Bureautique
- Je cherche une chanson dont je ne connais pas le titre - Guide
4 réponses
19 mars 2023 à 08:27
bonjour,
cell n'est probablement pas associée à la bonne cellule.
22 mars 2023 à 21:37
Merci pour la réponse.
Je n'arrive pas à voir où est l'erreur, voici le fichier test si vous pouvez le regarder svp
23 mars 2023 à 07:37
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
23 mars 2023 à 13:15
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
23 mars 2023 à 13:53
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
24 mars 2023 à 04:10
Super ça fonctionne, merci beaucoup pour votre aide
23 mars 2023 à 13:56
Merci du retour rapide, je testerai et vous confirmerai
