J'active un test =E0 partir d'un bouton (bouton de commande)=20
de la boite =E0 outil de controle sur une feuille et=20
j'affiche le r=E9sultat dans une autre mais =E0 chaque fois le=20
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
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
Jacky
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
Bonjour Paulo
'-----------
If [ad46] = "22" Or [ad46] = "21" Then
Sheets("Plan").[h3] = "T4"
Sheets("page du test").Select
End If
'------------
Salutations
JJ
"Paulo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:424401c4a6c4$1486dcc0$a501280a@phx.gbl...
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
'----------- 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
Paulo
Merci, et avec l'active sheet plutot que de donner le nom 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
.
Merci, et avec l'active sheet plutot que de donner le nom
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
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
Merci, et avec l'active sheet plutot que de donner le nom 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
