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"
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
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
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"
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
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
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$ba4acef3@reader.news.orange.fr...
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"
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
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
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" <stephol@prodiag.fr> a écrit dans le message de news:
4d52a751$0$5431$ba4acef3@reader.news.orange.fr...
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"
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
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
merci à vous tout marche
merci encore
"michel ou sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
4d52aec6$0$7679$ba4acef3@reader.news.orange.fr...
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" <stephol@prodiag.fr> a écrit dans le message de news:
4d52a751$0$5431$ba4acef3@reader.news.orange.fr...
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"
"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"