mise en forme et format

Le
andre
Bonjour,
dans un tableau (genre calendrier) B2:Y32
Colonne A jours
Colonne B;D;Fpour les diciplinns effectuees "vel" ou "vt" CaP
colonne C;E;G etc pour mois jan fev; mar
dans ses cellules des valeurs en heure ,minute ou Km
format [h]:mm ou format personnalise ( 0" Km")
selon le critere dans la colonne de gauche soit "vel" ou "vt" CaP
je cherche un code vba qui me permetrait de mettre le bon format des la
saisie de la disciplin
j'arrive avec un critere mais avec 4 cela se complique
merci de votre coup de main
andre

--
andre
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #5293321
Bonsoir,
Regarde du côté de select case, avec un truc dans ce genre dans le module de
la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim leCOde As String
If Not Intersect(Target, Union(Range("b:b"), Range("d:d"), _
Range("f:f"), Range("h:h"), Range("j:j"), Range("l:l"), _
Range("n:n"), Range("p:p"), Range("r:r"), Range("t:t"), _
Range("v:v"), Range("x:x"))) Is Nothing Then
leCOde = Target.Value
Select Case leCOde
Case "vel"
Target.Offset(0, 1).Value = Format(Target.Offset _
(0, 1).Value, "0 km")
Case "CaP"
Target.Offset(0, 1).Value = Format(Target.Offset _
(0, 1).Value, "[h]:mm")
End Select
End If
End Sub

en saisissant d'abord les valeurs en colonnes C, E, G.... avant le code en
B, D, F...
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"andre" news:
Bonjour,
dans un tableau (genre calendrier) B2:Y32
Colonne A jours
Colonne B;D;F...pour les diciplinns effectuees "vel" ou "vt" CaP
colonne C;E;G etc pour mois jan fev; mar ...
dans ses cellules des valeurs en heure ,minute ou Km
format [h]:mm ou format personnalise ( 0" Km")
selon le critere dans la colonne de gauche soit "vel" ou "vt" CaP
je cherche un code vba qui me permetrait de mettre le bon format des la
saisie de la disciplin
j'arrive avec un critere mais avec 4 cela se complique
merci de votre coup de main
andre

--
andre




andre
Le #5293291
andre à dit
merci je vais l'essayer illico
je te tiens au courant
a+ bonne soiree

--
andre
andre
Le #5293281
andre à dit
pour le critere "vel" cela fonctionne
je saisis d'abord la valeur puis le critere
pour "cap" leger probleme
supposition 4h de course a pied
saisie 04:00 la cellule se met au format hh:mm
je rentre le critere "cap" cellule = ":12" je retape 04:00
la cellule reste au meme format
c'est sur se critere que j'avais deja mon probleme
andre

--
andre
Philippe.R
Le #5293261
Re,
Essaye alors comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim leCOde As String
If Not Intersect(Target, Union(Range("b:b"), Range("d:d"), _
Range("f:f"), Range("h:h"), Range("j:j"), Range("l:l"), _
Range("n:n"), Range("p:p"), Range("r:r"), Range("t:t"), _
Range("v:v"), Range("x:x"))) Is Nothing Then
leCOde = Target.Value
Select Case leCOde
Case "vel"
Target.Offset(0, 1).NumberFormat = "0"" km"""
Case "CaP"
Target.Offset(0, 1).NumberFormat = "[h]:mm"
End Select
End If
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"andre" news:
andre à dit
pour le critere "vel" cela fonctionne
je saisis d'abord la valeur puis le critere
pour "cap" leger probleme
supposition 4h de course a pied
saisie 04:00 la cellule se met au format hh:mm
je rentre le critere "cap" cellule = ":12" je retape 04:00
la cellule reste au meme format
c'est sur se critere que j'avais deja mon probleme
andre

--
andre




andre
Le #5293241
andre à dit
j'ai rajouté ce bout de code
With Selection.Font
.Name = "Arial"
.Size = 10
.Bold = True
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection
.HorizontalAlignment = xlCenter
End With
et je me trouve avec un erreur 438 que je n'avais pas avant
merci

--
andre
Philippe.R
Le #5293231
Re,
Où as tu ajouté ce code ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"andre" news:
andre à dit
j'ai rajouté ce bout de code
With Selection.Font
.Name = "Arial"
.Size = 10
.Bold = True
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection
.HorizontalAlignment = xlCenter
End With
et je me trouve avec un erreur 438 que je n'avais pas avant
merci

--
andre




andre
Le #5293211
andre à dit
apres ceci
Target.Offset(0, 1).NumberFormat = "0"" km"""
With Selection.Font
.Name = "Arial"
.Size = 10
.Bold = True
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection
.HorizontalAlignment = xlCenter
End With
mais comme ton code a changé c'est normal
a l'epoque j'avais pris l'enregistreur
et j'ai retotoche le tout
je vais modifierle format

--
andre
Philippe.R
Le #5292031
Bonsoir André,
Il est fort probable (je n'ai pas testé cet assemblage) qu'il y a problème
entre Target et Selection (pour utiliser Selection, il faut avoir
sélectionné au préalable avec l'instruction Select) ; remplace Selection par
Target.Offset(0, 1) et ça devrait rouler
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"andre" news:
andre à dit
apres ceci
Target.Offset(0, 1).NumberFormat = "0"" km"""
With Selection.Font
.Name = "Arial"
.Size = 10
.Bold = True
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection
.HorizontalAlignment = xlCenter
End With
mais comme ton code a changé c'est normal
a l'epoque j'avais pris l'enregistreur
et j'ai retotoche le tout
je vais modifierle format

--
andre




Publicité
Poster une réponse
Anonyme