Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Fonction if toute simple

Fonction if toute simple

11 réponses
Avatar
RT
Bonsoir à tous

Je sais c'est simple, mais je suis en route depuis avant 5 heures du mat et
le cerveau bloque

En macro je doit dire que sila cellule C20 est égale à "PPV" alors la
cellule D20 doit être copier en H20
Si elle est égale à "WWC" copier dans K20

Si queqlqu(un peut aider merci
Sinon je suis sûr que je trouverai demain matin

Merci

A plus tard

Rex
Signaler un problème avec ce contenu

10 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
1 2
Avatar
CAP2
Salut,

En adaptant, tu peux faire ça (dans le cas où tu voudrais garder la valeur
aussi en d20, enlève le "Range("D20").ClearContents", et idem pour l'autre
cas) :

Sub test()

If Range("C20").Value = "PPV" Then
Range("H20").Value = Range("D20").Value
Range("D20").ClearContents
ElseIf Range("C20").Value = "WWC" Then
Range("K20").Value = Range("D20").Value
Range("D20").ClearContents
End If

End Sub

Ca marche ??

A+

CAP2


"RT" a écrit dans le message de news:
I8MRc.208392$
Bonsoir à tous

Je sais c'est simple, mais je suis en route depuis avant 5 heures du mat
et

le cerveau bloque

En macro je doit dire que sila cellule C20 est égale à "PPV" alors la
cellule D20 doit être copier en H20
Si elle est égale à "WWC" copier dans K20

Si queqlqu(un peut aider merci
Sinon je suis sûr que je trouverai demain matin

Merci

A plus tard

Rex







Avatar
Nicolas B.
Salut Rex,

On peut aussi passer par un Select Case plutôt que deux If :
Select Case [C20]
Case "PPV"
[D20].Copy ([H20])
Case "WWC"
[D20].Copy ([K20])
End Select

Et si tu ne veux que recopier les valeurs (pas les mises en formes) :
Select Case [C20]
Case "PPV"
[H20] = [D20]
Case "WWC"
[K20] = [D20]
End Select


A+
Nicolas B.


RT wrote:
Bonsoir à tous

Je sais c'est simple, mais je suis en route depuis avant 5 heures du mat et
le cerveau bloque

En macro je doit dire que sila cellule C20 est égale à "PPV" alors la
cellule D20 doit être copier en H20
Si elle est égale à "WWC" copier dans K20

Si queqlqu(un peut aider merci
Sinon je suis sûr que je trouverai demain matin

Merci

A plus tard

Rex







Avatar
RT
He non
Il dit qu'il fait référence à un objet non définit

Merci de ton aide, je suis crevé
Je rentre à la maison
Et je vais me mettre au jardin
Demain tout ira tellement mieux
et je comprendrai ce qu'on me dit (peut-être)

Merci beaucoup et à demain

Rex


"CAP2" wrote in message
news:#
Salut,

En adaptant, tu peux faire ça (dans le cas où tu voudrais garder la valeur
aussi en d20, enlève le "Range("D20").ClearContents", et idem pour l'autre
cas) :

Sub test()

If Range("C20").Value = "PPV" Then
Range("H20").Value = Range("D20").Value
Range("D20").ClearContents
ElseIf Range("C20").Value = "WWC" Then
Range("K20").Value = Range("D20").Value
Range("D20").ClearContents
End If

End Sub

Ca marche ??

A+

CAP2


"RT" a écrit dans le message de news:
I8MRc.208392$
Bonsoir à tous

Je sais c'est simple, mais je suis en route depuis avant 5 heures du mat
et

le cerveau bloque

En macro je doit dire que sila cellule C20 est égale à "PPV" alors la
cellule D20 doit être copier en H20
Si elle est égale à "WWC" copier dans K20

Si queqlqu(un peut aider merci
Sinon je suis sûr que je trouverai demain matin

Merci

A plus tard

Rex











Avatar
RT
Merci de ton aide,
Mais comme signalé à Cap2
je suis crevé
Je rentre à la maison
Et je vais me mettre au jardin
Demain tout ira tellement mieux
et je comprendrai ce qu'on me dit (peut-être)

Merci beaucoup et à demain
De toutes façon je vous tiendrai au courant
Bonne nuit les petits

Rex

"Nicolas B." wrote in message
news:
Salut Rex,

On peut aussi passer par un Select Case plutôt que deux If :
Select Case [C20]
Case "PPV"
[D20].Copy ([H20])
Case "WWC"
[D20].Copy ([K20])
End Select

Et si tu ne veux que recopier les valeurs (pas les mises en formes) :
Select Case [C20]
Case "PPV"
[H20] = [D20]
Case "WWC"
[K20] = [D20]
End Select


A+
Nicolas B.


RT wrote:
Bonsoir à tous

Je sais c'est simple, mais je suis en route depuis avant 5 heures du mat
et


le cerveau bloque

En macro je doit dire que sila cellule C20 est égale à "PPV" alors la
cellule D20 doit être copier en H20
Si elle est égale à "WWC" copier dans K20

Si queqlqu(un peut aider merci
Sinon je suis sûr que je trouverai demain matin

Merci

A plus tard

Rex









Avatar
CAP2
Salut Rex,

sur ma bécane (excel XP, Win 2000 pro) ça tourne comme il faut...

As-tu bien placé ce code dans une feuille de module VB ?
As-tu essayé le code de Nicolas qui est encore plus court ??

J'ai testé les deux et les deux marchent sans pb...

Bon repos, dors bien, et à demain ;o))))

CAP2

"RT" a écrit dans le message de news:
BwMRc.208420$
He non
Il dit qu'il fait référence à un objet non définit

Merci de ton aide, je suis crevé
Je rentre à la maison
Et je vais me mettre au jardin
Demain tout ira tellement mieux
et je comprendrai ce qu'on me dit (peut-être)

Merci beaucoup et à demain

Rex


"CAP2" wrote in message
news:#
Salut,

En adaptant, tu peux faire ça (dans le cas où tu voudrais garder la
valeur


aussi en d20, enlève le "Range("D20").ClearContents", et idem pour
l'autre


cas) :

Sub test()

If Range("C20").Value = "PPV" Then
Range("H20").Value = Range("D20").Value
Range("D20").ClearContents
ElseIf Range("C20").Value = "WWC" Then
Range("K20").Value = Range("D20").Value
Range("D20").ClearContents
End If

End Sub

Ca marche ??

A+

CAP2


"RT" a écrit dans le message de news:
I8MRc.208392$
Bonsoir à tous

Je sais c'est simple, mais je suis en route depuis avant 5 heures du
mat



et
le cerveau bloque

En macro je doit dire que sila cellule C20 est égale à "PPV" alors la
cellule D20 doit être copier en H20
Si elle est égale à "WWC" copier dans K20

Si queqlqu(un peut aider merci
Sinon je suis sûr que je trouverai demain matin

Merci

A plus tard

Rex















Avatar
RT
Bonjour à tous

Et ben comme prévu
Quand on est frais et bien réveillé, y a plus de problème

Cela fonctionne nickel

Maintenant j'ai plus qu'à chipotté et vraisemblablement vous appeller à
l'aide un de ces jours pour la suite des opérations
Mais je reste persuadé que la meilleure façon de faire des progrès est de
d'abords se casser la tête, puis de demander plutôt que de demander à
quelqu'un de faire tout le boulot

Une fois de plus merci et à bientôt

"CAP2" wrote in message
news:e7Y$
Salut Rex,

sur ma bécane (excel XP, Win 2000 pro) ça tourne comme il faut...

As-tu bien placé ce code dans une feuille de module VB ?
As-tu essayé le code de Nicolas qui est encore plus court ??

J'ai testé les deux et les deux marchent sans pb...

Bon repos, dors bien, et à demain ;o))))

CAP2

"RT" a écrit dans le message de news:
BwMRc.208420$
He non
Il dit qu'il fait référence à un objet non définit

Merci de ton aide, je suis crevé
Je rentre à la maison
Et je vais me mettre au jardin
Demain tout ira tellement mieux
et je comprendrai ce qu'on me dit (peut-être)

Merci beaucoup et à demain

Rex


"CAP2" wrote in message
news:#
Salut,

En adaptant, tu peux faire ça (dans le cas où tu voudrais garder la
valeur


aussi en d20, enlève le "Range("D20").ClearContents", et idem pour
l'autre


cas) :

Sub test()

If Range("C20").Value = "PPV" Then
Range("H20").Value = Range("D20").Value
Range("D20").ClearContents
ElseIf Range("C20").Value = "WWC" Then
Range("K20").Value = Range("D20").Value
Range("D20").ClearContents
End If

End Sub

Ca marche ??

A+

CAP2


"RT" a écrit dans le message de news:
I8MRc.208392$
Bonsoir à tous

Je sais c'est simple, mais je suis en route depuis avant 5 heures du
mat



et
le cerveau bloque

En macro je doit dire que sila cellule C20 est égale à "PPV" alors
la




cellule D20 doit être copier en H20
Si elle est égale à "WWC" copier dans K20

Si queqlqu(un peut aider merci
Sinon je suis sûr que je trouverai demain matin

Merci

A plus tard

Rex



















Avatar
RT
Salut
Comme répondu à CAP2
quand on est réveillé, tout semble plus facile
Et les deux solutions fonctionne

Petite question subsidiare
Quelle est la raison d'employer l'une ou l'autre?
A part le choix personnel, bien entendu

Et comme je l'ai dit à CAP2 j'ai plus qu'à chipoté et vraisemblablement
vous appeller à l'aide un de ces jours pour la suite des opérations
Mais je reste persuadé que la meilleure façon de faire des progrès est de
d'abord se casser la tête, puis de demander plutôt que de demander à
quelqu'un de faire tout le boulot

Merci et bonne journée

Rex

PS Y a-t-il l'un d'entre vous qui habite près de Bergerac?
Rex

"RT" wrote in message
news:vzMRc.208427$
Merci de ton aide,
Mais comme signalé à Cap2
je suis crevé
Je rentre à la maison
Et je vais me mettre au jardin
Demain tout ira tellement mieux
et je comprendrai ce qu'on me dit (peut-être)

Merci beaucoup et à demain
De toutes façon je vous tiendrai au courant
Bonne nuit les petits

Rex

"Nicolas B." wrote in message
news:
Salut Rex,

On peut aussi passer par un Select Case plutôt que deux If :
Select Case [C20]
Case "PPV"
[D20].Copy ([H20])
Case "WWC"
[D20].Copy ([K20])
End Select

Et si tu ne veux que recopier les valeurs (pas les mises en formes) :
Select Case [C20]
Case "PPV"
[H20] = [D20]
Case "WWC"
[K20] = [D20]
End Select


A+
Nicolas B.


RT wrote:
Bonsoir à tous

Je sais c'est simple, mais je suis en route depuis avant 5 heures du
mat



et
le cerveau bloque

En macro je doit dire que sila cellule C20 est égale à "PPV" alors la
cellule D20 doit être copier en H20
Si elle est égale à "WWC" copier dans K20

Si queqlqu(un peut aider merci
Sinon je suis sûr que je trouverai demain matin

Merci

A plus tard

Rex













Avatar
CAP2
Salut Rex,

le select case propose l'avantage de simplifier énormément l'écriture du
code dès lors que l'on veut faire des tests (if) portant sur un même objet.

Passer par des if successifs ou imbriqués te permettra de tester
simultanement les valeurs de plusieurs objets différents. C'est plus lourd
en écriture, mais ça permet d'aller plus loin que le select case.

Dans ton cas, la méthode de Nicolas est tout a fait appropriée, puisque tu
ne réalises de tests que sur la valeur d'une cellule.

Voilou,

A+

CAP2

"RT" a écrit dans le message de news:
WJ0Sc.209236$
Salut
Comme répondu à CAP2
quand on est réveillé, tout semble plus facile
Et les deux solutions fonctionne

Petite question subsidiare
Quelle est la raison d'employer l'une ou l'autre?
A part le choix personnel, bien entendu

Et comme je l'ai dit à CAP2 j'ai plus qu'à chipoté et vraisemblablement
vous appeller à l'aide un de ces jours pour la suite des opérations
Mais je reste persuadé que la meilleure façon de faire des progrès est de
d'abord se casser la tête, puis de demander plutôt que de demander à
quelqu'un de faire tout le boulot

Merci et bonne journée

Rex

PS Y a-t-il l'un d'entre vous qui habite près de Bergerac?
Rex

"RT" wrote in message
news:vzMRc.208427$
Merci de ton aide,
Mais comme signalé à Cap2
je suis crevé
Je rentre à la maison
Et je vais me mettre au jardin
Demain tout ira tellement mieux
et je comprendrai ce qu'on me dit (peut-être)

Merci beaucoup et à demain
De toutes façon je vous tiendrai au courant
Bonne nuit les petits

Rex

"Nicolas B." wrote in message
news:
Salut Rex,

On peut aussi passer par un Select Case plutôt que deux If :
Select Case [C20]
Case "PPV"
[D20].Copy ([H20])
Case "WWC"
[D20].Copy ([K20])
End Select

Et si tu ne veux que recopier les valeurs (pas les mises en formes) :
Select Case [C20]
Case "PPV"
[H20] = [D20]
Case "WWC"
[K20] = [D20]
End Select


A+
Nicolas B.


RT wrote:
Bonsoir à tous

Je sais c'est simple, mais je suis en route depuis avant 5 heures du
mat



et
le cerveau bloque

En macro je doit dire que sila cellule C20 est égale à "PPV" alors
la




cellule D20 doit être copier en H20
Si elle est égale à "WWC" copier dans K20

Si queqlqu(un peut aider merci
Sinon je suis sûr que je trouverai demain matin

Merci

A plus tard

Rex

















Avatar
RT
Salut

Donc si je veux adapter une des deux solution pour faire le travail sur une
colonne, j'ai intérêt à utiliser le Ifs (qui sont des espèces de sapins dont
on fait des caisses) et pas des Cases

Juste?

Rex


"CAP2" wrote in message
news:
Salut Rex,

le select case propose l'avantage de simplifier énormément l'écriture du
code dès lors que l'on veut faire des tests (if) portant sur un même
objet.


Passer par des if successifs ou imbriqués te permettra de tester
simultanement les valeurs de plusieurs objets différents. C'est plus lourd
en écriture, mais ça permet d'aller plus loin que le select case.

Dans ton cas, la méthode de Nicolas est tout a fait appropriée, puisque tu
ne réalises de tests que sur la valeur d'une cellule.

Voilou,

A+

CAP2

"RT" a écrit dans le message de news:
WJ0Sc.209236$
Salut
Comme répondu à CAP2
quand on est réveillé, tout semble plus facile
Et les deux solutions fonctionne

Petite question subsidiare
Quelle est la raison d'employer l'une ou l'autre?
A part le choix personnel, bien entendu

Et comme je l'ai dit à CAP2 j'ai plus qu'à chipoté et vraisemblablement
vous appeller à l'aide un de ces jours pour la suite des opérations
Mais je reste persuadé que la meilleure façon de faire des progrès est
de


d'abord se casser la tête, puis de demander plutôt que de demander à
quelqu'un de faire tout le boulot

Merci et bonne journée

Rex

PS Y a-t-il l'un d'entre vous qui habite près de Bergerac?
Rex

"RT" wrote in message
news:vzMRc.208427$
Merci de ton aide,
Mais comme signalé à Cap2
je suis crevé
Je rentre à la maison
Et je vais me mettre au jardin
Demain tout ira tellement mieux
et je comprendrai ce qu'on me dit (peut-être)

Merci beaucoup et à demain
De toutes façon je vous tiendrai au courant
Bonne nuit les petits

Rex

"Nicolas B." wrote in message
news:
Salut Rex,

On peut aussi passer par un Select Case plutôt que deux If :
Select Case [C20]
Case "PPV"
[D20].Copy ([H20])
Case "WWC"
[D20].Copy ([K20])
End Select

Et si tu ne veux que recopier les valeurs (pas les mises en formes)
:




Select Case [C20]
Case "PPV"
[H20] = [D20]
Case "WWC"
[K20] = [D20]
End Select


A+
Nicolas B.


RT wrote:
Bonsoir à tous

Je sais c'est simple, mais je suis en route depuis avant 5 heures
du





mat
et
le cerveau bloque

En macro je doit dire que sila cellule C20 est égale à "PPV" alors
la




cellule D20 doit être copier en H20
Si elle est égale à "WWC" copier dans K20

Si queqlqu(un peut aider merci
Sinon je suis sûr que je trouverai demain matin

Merci

A plus tard

Rex





















Avatar
CAP2
En effet, t'as plus qu'à te mettre au BOULEAU (c'est pas terrible, mais j'ai
pas trouvé mieux !)
;o))))

CAP2

"RT" a écrit dans le message de news:
681Sc.209251$
Salut

Donc si je veux adapter une des deux solution pour faire le travail sur
une

colonne, j'ai intérêt à utiliser le Ifs (qui sont des espèces de sapins
dont

on fait des caisses) et pas des Cases

Juste?

Rex


"CAP2" wrote in message
news:
Salut Rex,

le select case propose l'avantage de simplifier énormément l'écriture du
code dès lors que l'on veut faire des tests (if) portant sur un même
objet.


Passer par des if successifs ou imbriqués te permettra de tester
simultanement les valeurs de plusieurs objets différents. C'est plus
lourd


en écriture, mais ça permet d'aller plus loin que le select case.

Dans ton cas, la méthode de Nicolas est tout a fait appropriée, puisque
tu


ne réalises de tests que sur la valeur d'une cellule.

Voilou,

A+

CAP2

"RT" a écrit dans le message de news:
WJ0Sc.209236$
Salut
Comme répondu à CAP2
quand on est réveillé, tout semble plus facile
Et les deux solutions fonctionne

Petite question subsidiare
Quelle est la raison d'employer l'une ou l'autre?
A part le choix personnel, bien entendu

Et comme je l'ai dit à CAP2 j'ai plus qu'à chipoté et
vraisemblablement



vous appeller à l'aide un de ces jours pour la suite des opérations
Mais je reste persuadé que la meilleure façon de faire des progrès est
de


d'abord se casser la tête, puis de demander plutôt que de demander à
quelqu'un de faire tout le boulot

Merci et bonne journée

Rex

PS Y a-t-il l'un d'entre vous qui habite près de Bergerac?
Rex

"RT" wrote in message
news:vzMRc.208427$
Merci de ton aide,
Mais comme signalé à Cap2
je suis crevé
Je rentre à la maison
Et je vais me mettre au jardin
Demain tout ira tellement mieux
et je comprendrai ce qu'on me dit (peut-être)

Merci beaucoup et à demain
De toutes façon je vous tiendrai au courant
Bonne nuit les petits

Rex

"Nicolas B." wrote in message
news:
Salut Rex,

On peut aussi passer par un Select Case plutôt que deux If :
Select Case [C20]
Case "PPV"
[D20].Copy ([H20])
Case "WWC"
[D20].Copy ([K20])
End Select

Et si tu ne veux que recopier les valeurs (pas les mises en
formes)





:
Select Case [C20]
Case "PPV"
[H20] = [D20]
Case "WWC"
[K20] = [D20]
End Select


A+
Nicolas B.


RT wrote:
Bonsoir à tous

Je sais c'est simple, mais je suis en route depuis avant 5
heures






du
mat
et
le cerveau bloque

En macro je doit dire que sila cellule C20 est égale à "PPV"
alors






la
cellule D20 doit être copier en H20
Si elle est égale à "WWC" copier dans K20

Si queqlqu(un peut aider merci
Sinon je suis sûr que je trouverai demain matin

Merci

A plus tard

Rex

























1 2