Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel mise en forme et format

mise en forme et format

8 réponses
Avatar
andre
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
Signaler un problème avec ce contenu

8 réponses

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




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

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




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




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