Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel suppression de colonne pour philippe

suppression de colonne pour philippe

4 réponses
Avatar
urgent
Rebonjour,

Le programme que tu ma donne:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
If [a1] < 5 Then Exit Sub
Range(Columns(3), Columns(8)).Hidden = False
Range(Columns(3), Columns([a1] - 2)).Hidden = True
End If
End Sub

il est bon, mais dans ma cellule j'ai une date à la place d'une valeur,
au fait quand j'ai 2006 sur A1 il faut que la colonne 2005 disparraissent
peut tu me redonner le programme modifié stp

Merci
Signaler un problème avec ce contenu

4 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
Philippe.R
Bonjour,
Pourrais tu s'il te plait :
1) indiquer à quoi ressemble les données figurant en A1 (vrai date au format date ? nombre indiquant une
année ?)
2) à quoi reconnaît on qu'une colonne correspond à telle année plutôt qu'à telle autre ? (indiquer aussi
les autres données du problème s'il y en a)
3) rester dans la ficelle d'origine (c'est beaucoup plus commode à suivre, comme indiqué ici :
http://www.excelabo.net/mpfe/connexion.php )
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"urgent" a écrit dans le message de news:

Rebonjour,

Le programme que tu ma donne:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
If [a1] < 5 Then Exit Sub
Range(Columns(3), Columns(8)).Hidden = False
Range(Columns(3), Columns([a1] - 2)).Hidden = True
End If
End Sub

il est bon, mais dans ma cellule j'ai une date à la place d'une valeur,
au fait quand j'ai 2006 sur A1 il faut que la colonne 2005 disparraissent
peut tu me redonner le programme modifié stp

Merci


Avatar
LeSteph
Bonsoir urgent,
Peut-être rester sur le fil et donner des indications précises sur ce que tu
souhaites et
sur ce qui poserait pb dans les réponses qui te sont fournies permettrait
une solution
à ta convenance.
Tu demandes pour des nombres et ensuite ce sont des dates.
On vient voir sur le fil ....pas de suite ... ni c'est bon merci ..ni c'est
pas bon.
C'est pas idéal pour suivre.


"urgent" a écrit dans le message de
news:
Rebonjour,

Le programme que tu ma donne:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
If [a1] < 5 Then Exit Sub
Range(Columns(3), Columns(8)).Hidden = False
Range(Columns(3), Columns([a1] - 2)).Hidden = True
End If
End Sub

il est bon, mais dans ma cellule j'ai une date à la place d'une valeur,
au fait quand j'ai 2006 sur A1 il faut que la colonne 2005 disparraissent
peut tu me redonner le programme modifié stp

Merci


Avatar
Philippe.R
Bonsoir LeSteph,
Tu as de bonnes chances à présent, de trouver des éléments de suite dans un des fils de hali.
--
Amicales Salutations

"LeSteph" a écrit dans le message de news:
%
Bonsoir urgent,
Peut-être rester sur le fil et donner des indications précises sur ce que tu souhaites et
sur ce qui poserait pb dans les réponses qui te sont fournies permettrait une solution
à ta convenance.
Tu demandes pour des nombres et ensuite ce sont des dates.
On vient voir sur le fil ....pas de suite ... ni c'est bon merci ..ni c'est pas bon.
C'est pas idéal pour suivre.


"urgent" a écrit dans le message de news:

Rebonjour,

Le programme que tu ma donne:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
If [a1] < 5 Then Exit Sub
Range(Columns(3), Columns(8)).Hidden = False
Range(Columns(3), Columns([a1] - 2)).Hidden = True
End If
End Sub

il est bon, mais dans ma cellule j'ai une date à la place d'une valeur,
au fait quand j'ai 2006 sur A1 il faut que la colonne 2005 disparraissent
peut tu me redonner le programme modifié stp

Merci






Avatar
LeSteph
Merci Philippe
pour
cet éclaircissement,
il n'y aurait pas qu'un seul Hali bis à ce que je lis
...il paraît désormais urgent d'attendre.

Et bien , tu es véritablement patient.
:-)
lSteph


"Philippe.R" a écrit dans le message de news:

Bonsoir LeSteph,
Tu as de bonnes chances à présent, de trouver des éléments de suite dans
un des fils de hali.
--
Amicales Salutations

"LeSteph" a écrit dans le message de news:
%
Bonsoir urgent,
Peut-être rester sur le fil et donner des indications précises sur ce que
tu souhaites et
sur ce qui poserait pb dans les réponses qui te sont fournies permettrait
une solution
à ta convenance.
Tu demandes pour des nombres et ensuite ce sont des dates.
On vient voir sur le fil ....pas de suite ... ni c'est bon merci ..ni
c'est pas bon.
C'est pas idéal pour suivre.


"urgent" a écrit dans le message de
news:
Rebonjour,

Le programme que tu ma donne:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
If [a1] < 5 Then Exit Sub
Range(Columns(3), Columns(8)).Hidden = False
Range(Columns(3), Columns([a1] - 2)).Hidden = True
End If
End Sub

il est bon, mais dans ma cellule j'ai une date à la place d'une valeur,
au fait quand j'ai 2006 sur A1 il faut que la colonne 2005
disparraissent
peut tu me redonner le programme modifié stp

Merci