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 Sans réponse...mais simple !!!

Sans réponse...mais simple !!!

5 réponses
Avatar
Paulo
Merci,cela fonctionne mais en selectionnant avec la=20
feuille active plutot que de donner le nom de feuille ?

>-----Message d'origine-----
>Bonjour Paulo
>
>'-----------
>If [ad46] =3D "22" Or [ad46] =3D "21" Then
>Sheets("Plan").[h3] =3D "T4"
>Sheets("page du test").Select
>End If
>'------------
>Salutations
>JJ
>
>"Paulo" <anonymous@discussions.microsoft.com> a =E9crit=20
dans le message de
>news:424401c4a6c4$1486dcc0$a501280a@phx.gbl...
>Bonjour,
>
>J'active un test =E0 partir d'un bouton (bouton de commande)
>de la boite =E0 outil de controle sur une feuille et
>j'affiche le r=E9sultat dans une autre mais =E0 chaque fois le
>programme bloque sur la selection du "range" pourquoi ???
>
>Private Sub test()
>If Range("ad46") =3D "22" Or Range("ad46") =3D "21" Then
>Sheets("Plan").Select
> Range("H3").Select
> ActiveCell.FormulaR1C1 =3D "T4"
>' retour =E0 la page d'origine
>Sheets("page du test").Select
>End If
>
>
>.
>
.
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 Paulo,
If [ad46] = "22" Or [ad46] = "21" Then
[h3] = "T4"
Sheets("page du test").Select
End If
devrait convenir

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Paulo" a écrit dans le message de
news:159d01c4a7aa$155b7250$
Merci,cela fonctionne mais en selectionnant avec la
feuille active plutot que de donner le nom de feuille ?

-----Message d'origine-----
Bonjour Paulo

'-----------
If [ad46] = "22" Or [ad46] = "21" Then
Sheets("Plan").[h3] = "T4"
Sheets("page du test").Select
End If
'------------
Salutations
JJ

"Paulo" a écrit
dans le message de

news:424401c4a6c4$1486dcc0$
Bonjour,

J'active un test à partir d'un bouton (bouton de commande)
de la boite à outil de controle sur une feuille et
j'affiche le résultat dans une autre mais à chaque fois le
programme bloque sur la selection du "range" pourquoi ???

Private Sub test()
If Range("ad46") = "22" Or Range("ad46") = "21" Then
Sheets("Plan").Select
Range("H3").Select
ActiveCell.FormulaR1C1 = "T4"
' retour à la page d'origine
Sheets("page du test").Select
End If


.

.


Avatar
Jacky
Réponse donnée hier....

Merci,cela fonctionne mais en selectionnant avec la
feuille active plutot que de donner le nom de feuille ?



Explique clairement ce que tu veux !

If [ad46] = "22" Or [ad46] = "21" Then
Il n'y a pas de sélection de feuille ici!


JJ

"Philippe.R" a écrit dans le message de
news:
Bonjour Paulo,
If [ad46] = "22" Or [ad46] = "21" Then
[h3] = "T4"
Sheets("page du test").Select
End If
devrait convenir

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Paulo" a écrit dans le message de
news:159d01c4a7aa$155b7250$
Merci,cela fonctionne mais en selectionnant avec la
feuille active plutot que de donner le nom de feuille ?

-----Message d'origine-----
Bonjour Paulo

'-----------
If [ad46] = "22" Or [ad46] = "21" Then
Sheets("Plan").[h3] = "T4"
Sheets("page du test").Select
End If
'------------
Salutations
JJ

"Paulo" a écrit
dans le message de

news:424401c4a6c4$1486dcc0$
Bonjour,

J'active un test à partir d'un bouton (bouton de commande)
de la boite à outil de controle sur une feuille et
j'affiche le résultat dans une autre mais à chaque fois le
programme bloque sur la selection du "range" pourquoi ???

Private Sub test()
If Range("ad46") = "22" Or Range("ad46") = "21" Then
Sheets("Plan").Select
Range("H3").Select
ActiveCell.FormulaR1C1 = "T4"
' retour à la page d'origine
Sheets("page du test").Select
End If


.

.







Avatar
Paulo
Cela fonctionne mais si je copie une page et que je veux
mettre du texte sur la nouvelle page cala ne marche pas:
Sheets("toto").Select
Range("j4").Select
Sheets("toto").Copy
[h3] = "T4"
Cela mets T4 sur la page toto et non la page copié
pourquoi ?



-----Message d'origine-----
Bonjour Paulo,
If [ad46] = "22" Or [ad46] = "21" Then
[h3] = "T4"
Sheets("page du test").Select
End If
devrait convenir

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Paulo" a écrit
dans le message de

news:159d01c4a7aa$155b7250$
Merci,cela fonctionne mais en selectionnant avec la
feuille active plutot que de donner le nom de feuille ?

-----Message d'origine-----
Bonjour Paulo

'-----------
If [ad46] = "22" Or [ad46] = "21" Then
Sheets("Plan").[h3] = "T4"
Sheets("page du test").Select
End If
'------------
Salutations
JJ

"Paulo" a écrit
dans le message de

news:424401c4a6c4$1486dcc0$
Bonjour,

J'active un test à partir d'un bouton (bouton de
commande)


de la boite à outil de controle sur une feuille et
j'affiche le résultat dans une autre mais à chaque fois
le


programme bloque sur la selection du "range" pourquoi ???

Private Sub test()
If Range("ad46") = "22" Or Range("ad46") = "21" Then
Sheets("Plan").Select
Range("H3").Select
ActiveCell.FormulaR1C1 = "T4"
' retour à la page d'origine
Sheets("page du test").Select
End If


.

..




.




Avatar
Paulo
Je me suis un peu emmeler les crayons !!! LOL
Je voulais faire un test sur une page c'est ok, mais je
veux copier cette page et insérer ou modifier le texte en
H3 sur la nouvelle feuille issue de la copie (dans un
nouveau classeur)et cela ne marche pas. est-ce plus clair ?
Merci
-----Message d'origine-----
Réponse donnée hier....

Merci,cela fonctionne mais en selectionnant avec la
feuille active plutot que de donner le nom de feuille ?



Explique clairement ce que tu veux !

If [ad46] = "22" Or [ad46] = "21" Then
Il n'y a pas de sélection de feuille ici!


JJ

"Philippe.R" a écrit dans le
message de

news:
Bonjour Paulo,
If [ad46] = "22" Or [ad46] = "21" Then
[h3] = "T4"
Sheets("page du test").Select
End If
devrait convenir

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Paulo" a écrit
dans le message de


news:159d01c4a7aa$155b7250$
Merci,cela fonctionne mais en selectionnant avec la
feuille active plutot que de donner le nom de feuille ?

-----Message d'origine-----
Bonjour Paulo

'-----------
If [ad46] = "22" Or [ad46] = "21" Then
Sheets("Plan").[h3] = "T4"
Sheets("page du test").Select
End If
'------------
Salutations
JJ

"Paulo" a écrit
dans le message de

news:424401c4a6c4$1486dcc0$
Bonjour,

J'active un test à partir d'un bouton (bouton de
commande)



de la boite à outil de controle sur une feuille et
j'affiche le résultat dans une autre mais à chaque
fois le



programme bloque sur la selection du "range"
pourquoi ???




Private Sub test()
If Range("ad46") = "22" Or Range("ad46") = "21" Then
Sheets("Plan").Select
Range("H3").Select
ActiveCell.FormulaR1C1 = "T4"
' retour à la page d'origine
Sheets("page du test").Select
End If


.

.







.





Avatar
Jacky
Re....
Pour copier...

Feuille et cellules Source.Copy feuille et cellule destination
exemple:
Sheets("toto").[g2:g4].Copy Sheets("tata").[a1] 'pour copier de g2 à g4
de la feuille 'toto' vers la feuille 'tata' en a1
Sheets("toto").Cells.Copy Sheets("tata").[a1] 'pour copier la feuille
'toto' entière

Salutations
JJ

"Paulo" a écrit dans le message de
news:2d7001c4a7bb$e596ba40$
Je me suis un peu emmeler les crayons !!! LOL
Je voulais faire un test sur une page c'est ok, mais je
veux copier cette page et insérer ou modifier le texte en
H3 sur la nouvelle feuille issue de la copie (dans un
nouveau classeur)et cela ne marche pas. est-ce plus clair ?
Merci
-----Message d'origine-----
Réponse donnée hier....

Merci,cela fonctionne mais en selectionnant avec la
feuille active plutot que de donner le nom de feuille ?



Explique clairement ce que tu veux !

If [ad46] = "22" Or [ad46] = "21" Then
Il n'y a pas de sélection de feuille ici!


JJ

"Philippe.R" a écrit dans le
message de

news:
Bonjour Paulo,
If [ad46] = "22" Or [ad46] = "21" Then
[h3] = "T4"
Sheets("page du test").Select
End If
devrait convenir

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Paulo" a écrit
dans le message de


news:159d01c4a7aa$155b7250$
Merci,cela fonctionne mais en selectionnant avec la
feuille active plutot que de donner le nom de feuille ?

-----Message d'origine-----
Bonjour Paulo

'-----------
If [ad46] = "22" Or [ad46] = "21" Then
Sheets("Plan").[h3] = "T4"
Sheets("page du test").Select
End If
'------------
Salutations
JJ

"Paulo" a écrit
dans le message de

news:424401c4a6c4$1486dcc0$
Bonjour,

J'active un test à partir d'un bouton (bouton de
commande)



de la boite à outil de controle sur une feuille et
j'affiche le résultat dans une autre mais à chaque
fois le



programme bloque sur la selection du "range"
pourquoi ???




Private Sub test()
If Range("ad46") = "22" Or Range("ad46") = "21" Then
Sheets("Plan").Select
Range("H3").Select
ActiveCell.FormulaR1C1 = "T4"
' retour à la page d'origine
Sheets("page du test").Select
End If


.

.







.