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
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
Philippe.R
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" a écrit dans le message de 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
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" <andre260@cegetel.net> a écrit dans le message de
news:mn.8c6d7d81d2b763f9.51150@cegetel.net...
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
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" a écrit dans le message de 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
andre à dit merci je vais l'essayer illico je te tiens au courant a+ bonne soiree
-- andre
andre à dit
merci je vais l'essayer illico
je te tiens au courant
a+ bonne soiree
andre à dit merci je vais l'essayer illico je te tiens au courant a+ bonne soiree
-- andre
andre
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 à 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 à 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
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" a écrit dans le message de 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
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" <andre260@cegetel.net> a écrit dans le message de
news:mn.8d047d81c4d910d8.51150@cegetel.net...
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
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" a écrit dans le message de 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
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 à 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 à 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
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" a écrit dans le message de 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
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" <andre260@cegetel.net> a écrit dans le message de
news:mn.8d107d81d0edac6c.51150@cegetel.net...
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
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" a écrit dans le message de 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
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
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 à 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
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" a écrit dans le message de 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
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" <andre260@cegetel.net> a écrit dans le message de
news:mn.8d2a7d81dfe784d0.51150@cegetel.net...
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
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" a écrit dans le message de 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