format date

Le
achille
Bonjour

J ai deux colonnes A et B à taille variable

Je voudrais si possible que si dans la colonne A le chiffre est compris
entre 9564 et 9759 alors le format de la colonne B est
Selection.NumberFormat = "dd/mm/yyyy"

sinon si le chiffre colonne A supérieur à 9759 alors
Selection.NumberFormat = "mm/dd/yyyy"

merci d avance
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #23106011
bonjour Achille,

Sub test()
Dim i As Integer, n As Integer
n = Range("A65536").End(xlUp).Row
For i = 1 To n
Select Case Range("A" & i)
Case 9564 To 9759: Range("B" & i).NumberFormat = "dd/mm/yyyy"
Case Is > 9759: Range("B" & i).NumberFormat = "mm/dd/yyyy"
End Select
Next
End Sub

isabelle



Le 2011-02-09 09:39, achille a écrit :
Bonjour

J ai deux colonnes A et B à taille variable

Je voudrais si possible que si dans la colonne A le chiffre est compris
entre 9564 et 9759 alors le format de la colonne B est
Selection.NumberFormat = "dd/mm/yyyy"

sinon si le chiffre colonne A supérieur à 9759 alors
Selection.NumberFormat = "mm/dd/yyyy"

merci d avance




michdenis
Le #23106101
Bonjour,

Dans le module feuille où l'action se déroule, tu copies
ceci :
Que doit-il se passer si la date est avant 9564

Tu devrais peut-être modifier les bornes de tes dates
dans la procédure... tu peux ajouter le nombre de "Case"
que tu désires...

'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("A:B"))
If Not Rg Is Nothing Then
For Each C In Rg
Select Case C.Value
Case 9564 To 9756
C.NumberFormat = "dd/mm/yyyy"
Case Is > 9756
C.NumberFormat = "mm/dd/yyyy"
Case Else
C.NumberFormat = "General"
End Select
Next
End If

End Sub
'------------------------------------



MichD
--------------------------------------------
"achille" a écrit dans le message de groupe de discussion : 4d52a751$0$5431$

Bonjour

J ai deux colonnes A et B à taille variable

Je voudrais si possible que si dans la colonne A le chiffre est compris
entre 9564 et 9759 alors le format de la colonne B est
Selection.NumberFormat = "dd/mm/yyyy"

sinon si le chiffre colonne A supérieur à 9759 alors
Selection.NumberFormat = "mm/dd/yyyy"

merci d avance
michel ou sam
Le #23106091
Bonjour,
au cas où tu ne veux pas passer par une macro, tu peux utiliser un format
personnalisé

[>9759]mm/jj/aaaa;[>9564]jj/mm/aaaa;Standard

Michel

"achille" 4d52a751$0$5431$
Bonjour

J ai deux colonnes A et B à taille variable

Je voudrais si possible que si dans la colonne A le chiffre est compris
entre 9564 et 9759 alors le format de la colonne B est
Selection.NumberFormat = "dd/mm/yyyy"

sinon si le chiffre colonne A supérieur à 9759 alors
Selection.NumberFormat = "mm/dd/yyyy"

merci d avance



achille
Le #23106161
merci à vous tout marche
merci encore

"michel ou sam" 4d52aec6$0$7679$
Bonjour,
au cas où tu ne veux pas passer par une macro, tu peux utiliser un format
personnalisé

[>9759]mm/jj/aaaa;[>9564]jj/mm/aaaa;Standard

Michel

"achille" 4d52a751$0$5431$
Bonjour

J ai deux colonnes A et B à taille variable

Je voudrais si possible que si dans la colonne A le chiffre est compris
entre 9564 et 9759 alors le format de la colonne B est
Selection.NumberFormat = "dd/mm/yyyy"

sinon si le chiffre colonne A supérieur à 9759 alors
Selection.NumberFormat = "mm/dd/yyyy"

merci d avance







Publicité
Poster une réponse
Anonyme