Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA : Suppression de colonnes selaon dates

VBA : Suppression de colonnes selaon dates

3 réponses
Avatar
Domi
Bonjour,
J'ai dans une plage D3:IV3 des dates.
J'ai 2 cellules nommées : DateDeb et DateFin
Quelqu'un pourrait-il me dire quel code utiliser pour supprimer toutes les
colonnes dont la date est < à DateDeb ou > à DateFin.
But final : ne conserver que les colonnes dont la date est comprise entre
DateDeb et DateFin
Merci
Domi
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Essaie :

Sub SupprimerColonnes()
Dim c As Range
For i = 4 To 256
If (Cells(3, i) < Range("DateDeb") Or Cells(3, i) >
Range("DateFin")) _
And Cells(3, i) <> "" Then
Cells(3, i).EntireColumn.Delete
i = i - 1
End If
Next i
End Sub

Cordialement.
Daniel
"Domi" a écrit dans le message de news:
%
Bonjour,
J'ai dans une plage D3:IV3 des dates.
J'ai 2 cellules nommées : DateDeb et DateFin
Quelqu'un pourrait-il me dire quel code utiliser pour supprimer toutes les
colonnes dont la date est < à DateDeb ou > à DateFin.
But final : ne conserver que les colonnes dont la date est comprise entre
DateDeb et DateFin
Merci
Domi




Avatar
Jacky
Bonjour,
Ceci peut-être:
'----------
Sub jj()
Application.ScreenUpdating = False
For Each c In [$d$3:$iv$3]
If c < [DateDeb] Or c > [datefin] And c <> "" Then c.EntireColumn.Delete
Next
End Sub
'--------------
Salutations
JJ

"Domi" a écrit dans le message de
news:%
Bonjour,
J'ai dans une plage D3:IV3 des dates.
J'ai 2 cellules nommées : DateDeb et DateFin
Quelqu'un pourrait-il me dire quel code utiliser pour supprimer toutes les
colonnes dont la date est < à DateDeb ou > à DateFin.
But final : ne conserver que les colonnes dont la date est comprise entre
DateDeb et DateFin
Merci
Domi




Avatar
Domi
Impec, merçi ;o)
Domi

"Daniel" a écrit dans le message de
news:
Bonjour.
Essaie :

Sub SupprimerColonnes()
Dim c As Range
For i = 4 To 256
If (Cells(3, i) < Range("DateDeb") Or Cells(3, i) >
Range("DateFin")) _
And Cells(3, i) <> "" Then
Cells(3, i).EntireColumn.Delete
i = i - 1
End If
Next i
End Sub

Cordialement.
Daniel
"Domi" a écrit dans le message de news:
%
Bonjour,
J'ai dans une plage D3:IV3 des dates.
J'ai 2 cellules nommées : DateDeb et DateFin
Quelqu'un pourrait-il me dire quel code utiliser pour supprimer toutes
les


colonnes dont la date est < à DateDeb ou > à DateFin.
But final : ne conserver que les colonnes dont la date est comprise
entre


DateDeb et DateFin
Merci
Domi