ecriture de code

Le
Cyr73
Bonjour,

pourriez vous m'aider à ecrire ceci

If [A98] = "Semaine 1" Then
[B53].Value = 1
If [A98] = "Semaine 2" Then
[B53].Value = 2
If [A98] = "Semaine 3" Then
[B53].Value = 3
If [A98].Value = "Semaine 4" Then
[B53].Value = 4
merci
--
Cordialement

et avec tous mes remerciements..
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 #20233041
Bonjour,
[b53]=right([a98],1)
devrait convenir si tu tiens à VBA
Plus simplement, directement dans la feuille, en b53 : =droite(a98;1)
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Cyr73" news:
Bonjour,

pourriez vous m'aider à ecrire ceci

If [A98] = "Semaine 1" Then
[B53].Value = 1
If [A98] = "Semaine 2" Then
[B53].Value = 2
If [A98] = "Semaine 3" Then
[B53].Value = 3
If [A98].Value = "Semaine 4" Then
[B53].Value = 4
merci
--
Cordialement

et avec tous mes remerciements..


michdenis
Le #20233031
Bonjour Cyr,

Tu peux utiliser cette présentation :

Tu adaptes le nom de la feuille.
Toutes les cellules doivent appartenir à la feuille
sinon, tu dois inscrire la référence de la feuille.

'-----------------------------------
With Worksheets("Feuil1")
Select Case LCase(.Range("A98"))
Case Is = "semaine 1"
.Range("B53").Value = 1
Case Is = "semaine 2"
.Range("B53").Value = 2
Case Is = "semaine 3"
.Range("B53").Value = 3
Case Is = "semaine 4"
.Range("B53").Value = 4
End Select
End With
'-----------------------------------




"Cyr73" :
Bonjour,

pourriez vous m'aider à ecrire ceci

If [A98] = "Semaine 1" Then
[B53].Value = 1
If [A98] = "Semaine 2" Then
[B53].Value = 2
If [A98] = "Semaine 3" Then
[B53].Value = 3
If [A98].Value = "Semaine 4" Then
[B53].Value = 4
merci
--
Cordialement

et avec tous mes remerciements..
FS
Le #20233091
Autre option possible :

Range("A98").Value=Split(Range("B53").Value," ")(1)

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

Cyr73 a écrit :
Bonjour,

pourriez vous m'aider à ecrire ceci

If [A98] = "Semaine 1" Then
[B53].Value = 1
If [A98] = "Semaine 2" Then
[B53].Value = 2
If [A98] = "Semaine 3" Then
[B53].Value = 3
If [A98].Value = "Semaine 4" Then
[B53].Value = 4
merci


FS
Le #20233151
Salut Philippe,

> Plus simplement, directement dans la feuille, en b53 : =droite(a98;1)

Et même peut-être (au cas où on devrait aller jusqu'à "Semaine 10", etc.

=SUPPRESPACE(DROITE(A1;2))

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

Philippe.R a écrit :
Bonjour,
[b53]=right([a98],1)
devrait convenir si tu tiens à VBA
Plus simplement, directement dans la feuille, en b53 : =droite(a98;1)


Philippe.R
Le #20233281
Bien vu Frédéric !
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"FS" news:Od$
Salut Philippe,

> Plus simplement, directement dans la feuille, en b53 : =droite(a98;1)

Et même peut-être (au cas où on devrait aller jusqu'à "Semaine 10", etc.

=SUPPRESPACE(DROITE(A1;2))

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

Philippe.R a écrit :
Bonjour,
[b53]=right([a98],1)
devrait convenir si tu tiens à VBA
Plus simplement, directement dans la feuille, en b53 : =droite(a98;1)




Publicité
Poster une réponse
Anonyme