Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel ecriture de code

ecriture de code

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

5 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
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" a écrit dans le message de
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..


Avatar
michdenis
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" a écrit dans le message de groupe de discussion
:
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..
Avatar
FS
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


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


Avatar
Philippe.R
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" a écrit dans le message de
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)