Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

format date

4 réponses
Avatar
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

4 réponses

Avatar
isabelle
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




Avatar
michdenis
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
Avatar
michel ou sam
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" a écrit dans le message de news:
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



Avatar
achille
merci à vous tout marche
merci encore

"michel ou sam" a écrit dans le message de news:
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" a écrit dans le message de news:
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