Format de cellule après rapatriement

[mawua]

Bonjour tout le monde !

Je rapatrie des cellules de divers classeurs.
Il s'agit toujours des même cellules, comme ces cellules ont des formats différents, j'applique une mise en forme sur un evenement
Worksheet_Change (Merci José).

J'ai voulu enrichir le procéder avec des formats de date pour certaines colonnes (spécifiques) de ma base de données et des formats de nombre pour d'autres colonnes (spécifiques elle aussi).

Cela donne ça:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.WrapText = False
If Target.Column = 27 Then
Target.NumberFormat = "[$-40C]mmmm-yy;@"
End If
If Target.Column = 3 Or 4 Or 5 Or 28 Or 29 Or 33 Then
Target.NumberFormat = "dd/mm/yy;@"
End If
If Target.Column = 13 Or 14 Or 15 Or 16 Or 17 Or 18 Or 19 Or 20 Or 21 Or 22 Or 23 Or 24 Or 25 Or 26 Or 35 Or 36 Or 37 Or 38 Or 38 Or 40 Or 41 Or 42 Or 43 Or 44 Or 45 Or 46 Or 47 Or 48 Or 49 Or 50 Or 51 Or 52 Then
Target.NumberFormat = "0.00"
End If
End Sub

Sauf que cela ne fonctionne pas pour toute mes colonnes, notamment les 2 derniers "IF".
Quelqun pourrait-il mettre en lumière mes erreurs?

 

[fredl]

Re : Format de cellule après rapatriement

j'ai une idée car j'ai déjà été confronté à ce pb :
il ne faut pas écrire
"If Target.Column = 3 Or 4..." mais
"If Target.Column = 3 Or Target.Column = 4..."
Tiens moi au courant.
A+
Fred

 

[pierrejean]

Re : Format de cellule après rapatriement

bonjour tous

et pourquoi pas

if (target.column>12 and target.column<27) Or (target.column>36 and target.column<53)
a adapter pour le if precedent

 

[mawua]

Re : Format de cellule après rapatriement

Salut fredl,
ton idée est la bonne. il s'agissait bien de sortir les "OR".
Apparemment il ne faut pas trop brusquer notre bon vieux XL
Merci pour ton attention.

 

[mawua]

Re : Format de cellule après rapatriement

Bonjour PierreJean, scuse je n'avais pas vu ton post.

J'ai essayer d'inclure les < et >.
Le resultat est que les changements de format ne sont pas pris en compte

Edit: En fait, j'ai été un peu vite et voilà le resultat....M'as trompé.
La solution proposées par PierreJean fonctionne également.