Comme je le dis dans le titre du post, Au secoouuuurrrs j'en perds mon latin
! ! !
Alors voici le fautif ( pourtant il me semble correct, non ? )
Private Sub CommandButton1_Click()
If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _
, vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then
CommandBars("perso").Visible = True
'
Sheets("EMARGEMENT").Visible = True
Sheets("INIT").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("EMARGEMENT").Select
Range("A1").Select
End If
End Sub
Quand je clique sur le CommandButton1 qui se trouve sur la feuille * INIT *
le
code bug et j'ai droit à ce message :
Fenêtre * Microsoft Visual Basic *
Erreur d'exécution '1004':
La méthode Select de la classe Range a échoué
Quand je debogue la dernière ligne du code * Range("A1").Select * est
surlignée par le debogeur.
Lorsque j'exécute le code pas à pas (F8) je bug pareil sur cette ligne avec
le message suivant :
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
Alors physiquement quand le code bug je suis bien avec la feuille *
EMARGEMENT * qui est à l'écran. Pour comprendre j'ai donc mis une petite
variante dans le code en rajoutant juste avant la ligne qui bug ceci * [a7]
= "Test" * et bien lorsque le code bug ( toujours au même endroit) mais au
lieu d'avoir * Test * en A7 de la feuille "EMARGEMENT" je l'ai en A7 de la
Feuille * INIT *.
Je n'y comprends plus rien. Où est ce que je me suis planté ?
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
isabelle
bonjour Excel...lent,
as tu mit la propriété "TakeFocusOnClick" du CommandButton1 à false ?
isabelle
Bonjour la communauté,
Comme je le dis dans le titre du post, Au secoouuuurrrs j'en perds mon latin ! ! !
Alors voici le fautif ( pourtant il me semble correct, non ? )
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True ' Sheets("EMARGEMENT").Visible = True Sheets("INIT").Select ActiveWindow.SelectedSheets.Visible = False Sheets("EMARGEMENT").Select Range("A1").Select End If End Sub
Quand je clique sur le CommandButton1 qui se trouve sur la feuille * INIT * le code bug et j'ai droit à ce message :
Fenêtre * Microsoft Visual Basic * Erreur d'exécution '1004': La méthode Select de la classe Range a échoué
Quand je debogue la dernière ligne du code * Range("A1").Select * est surlignée par le debogeur.
Lorsque j'exécute le code pas à pas (F8) je bug pareil sur cette ligne avec le message suivant :
Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet
Alors physiquement quand le code bug je suis bien avec la feuille * EMARGEMENT * qui est à l'écran. Pour comprendre j'ai donc mis une petite variante dans le code en rajoutant juste avant la ligne qui bug ceci * [a7] = "Test" * et bien lorsque le code bug ( toujours au même endroit) mais au lieu d'avoir * Test * en A7 de la feuille "EMARGEMENT" je l'ai en A7 de la Feuille * INIT *.
Je n'y comprends plus rien. Où est ce que je me suis planté ?
Merci de vos conseils.
Cordialement.
Excel...lent
bonjour Excel...lent,
as tu mit la propriété "TakeFocusOnClick" du CommandButton1 à false ?
isabelle
Bonjour la communauté,
Comme je le dis dans le titre du post, Au secoouuuurrrs j'en perds mon latin
! ! !
Alors voici le fautif ( pourtant il me semble correct, non ? )
Private Sub CommandButton1_Click()
If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _
, vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then
CommandBars("perso").Visible = True
'
Sheets("EMARGEMENT").Visible = True
Sheets("INIT").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("EMARGEMENT").Select
Range("A1").Select
End If
End Sub
Quand je clique sur le CommandButton1 qui se trouve sur la feuille * INIT *
le
code bug et j'ai droit à ce message :
Fenêtre * Microsoft Visual Basic *
Erreur d'exécution '1004':
La méthode Select de la classe Range a échoué
Quand je debogue la dernière ligne du code * Range("A1").Select * est
surlignée par le debogeur.
Lorsque j'exécute le code pas à pas (F8) je bug pareil sur cette ligne avec
le message suivant :
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
Alors physiquement quand le code bug je suis bien avec la feuille *
EMARGEMENT * qui est à l'écran. Pour comprendre j'ai donc mis une petite
variante dans le code en rajoutant juste avant la ligne qui bug ceci * [a7]
= "Test" * et bien lorsque le code bug ( toujours au même endroit) mais au
lieu d'avoir * Test * en A7 de la feuille "EMARGEMENT" je l'ai en A7 de la
Feuille * INIT *.
Je n'y comprends plus rien. Où est ce que je me suis planté ?
as tu mit la propriété "TakeFocusOnClick" du CommandButton1 à false ?
isabelle
Bonjour la communauté,
Comme je le dis dans le titre du post, Au secoouuuurrrs j'en perds mon latin ! ! !
Alors voici le fautif ( pourtant il me semble correct, non ? )
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True ' Sheets("EMARGEMENT").Visible = True Sheets("INIT").Select ActiveWindow.SelectedSheets.Visible = False Sheets("EMARGEMENT").Select Range("A1").Select End If End Sub
Quand je clique sur le CommandButton1 qui se trouve sur la feuille * INIT * le code bug et j'ai droit à ce message :
Fenêtre * Microsoft Visual Basic * Erreur d'exécution '1004': La méthode Select de la classe Range a échoué
Quand je debogue la dernière ligne du code * Range("A1").Select * est surlignée par le debogeur.
Lorsque j'exécute le code pas à pas (F8) je bug pareil sur cette ligne avec le message suivant :
Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet
Alors physiquement quand le code bug je suis bien avec la feuille * EMARGEMENT * qui est à l'écran. Pour comprendre j'ai donc mis une petite variante dans le code en rajoutant juste avant la ligne qui bug ceci * [a7] = "Test" * et bien lorsque le code bug ( toujours au même endroit) mais au lieu d'avoir * Test * en A7 de la feuille "EMARGEMENT" je l'ai en A7 de la Feuille * INIT *.
Je n'y comprends plus rien. Où est ce que je me suis planté ?
Merci de vos conseils.
Cordialement.
Excel...lent
Excel...lent
Bonjour Isabelle,
La réponse est oui, C'est une des chose que j'avais faite juste avant de poster, la propriété est bien sur FALSE.
Merci de te pencher sur ma misère VBA..iène.......
Cordialement.
Excel...lent
Bonjour Isabelle,
La réponse est oui, C'est une des chose que j'avais faite juste avant de
poster, la propriété est bien sur FALSE.
Merci de te pencher sur ma misère VBA..iène.......
La réponse est oui, C'est une des chose que j'avais faite juste avant de poster, la propriété est bien sur FALSE.
Merci de te pencher sur ma misère VBA..iène.......
Cordialement.
Excel...lent
isabelle
j'ai modifié comme ca, et cela fonctionne.
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True ' Sheets("EMARGEMENT").Visible = True Sheets("INIT").Select ActiveWindow.SelectedSheets.Visible = False Application.Goto Reference:=Worksheets("EMARGEMENT").Range("A1") End If End Sub
isabelle
Bonjour la communauté,
Comme je le dis dans le titre du post, Au secoouuuurrrs j'en perds mon latin ! ! !
Alors voici le fautif ( pourtant il me semble correct, non ? )
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True ' Sheets("EMARGEMENT").Visible = True Sheets("INIT").Select ActiveWindow.SelectedSheets.Visible = False Sheets("EMARGEMENT").Select Range("A1").Select End If End Sub
Quand je clique sur le CommandButton1 qui se trouve sur la feuille * INIT * le code bug et j'ai droit à ce message :
Fenêtre * Microsoft Visual Basic * Erreur d'exécution '1004': La méthode Select de la classe Range a échoué
Quand je debogue la dernière ligne du code * Range("A1").Select * est surlignée par le debogeur.
Lorsque j'exécute le code pas à pas (F8) je bug pareil sur cette ligne avec le message suivant :
Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet
Alors physiquement quand le code bug je suis bien avec la feuille * EMARGEMENT * qui est à l'écran. Pour comprendre j'ai donc mis une petite variante dans le code en rajoutant juste avant la ligne qui bug ceci * [a7] = "Test" * et bien lorsque le code bug ( toujours au même endroit) mais au lieu d'avoir * Test * en A7 de la feuille "EMARGEMENT" je l'ai en A7 de la Feuille * INIT *.
Je n'y comprends plus rien. Où est ce que je me suis planté ?
Merci de vos conseils.
Cordialement.
Excel...lent
j'ai modifié comme ca, et cela fonctionne.
Private Sub CommandButton1_Click()
If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _
, vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then
CommandBars("perso").Visible = True
'
Sheets("EMARGEMENT").Visible = True
Sheets("INIT").Select
ActiveWindow.SelectedSheets.Visible = False
Application.Goto Reference:=Worksheets("EMARGEMENT").Range("A1")
End If
End Sub
isabelle
Bonjour la communauté,
Comme je le dis dans le titre du post, Au secoouuuurrrs j'en perds mon latin
! ! !
Alors voici le fautif ( pourtant il me semble correct, non ? )
Private Sub CommandButton1_Click()
If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _
, vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then
CommandBars("perso").Visible = True
'
Sheets("EMARGEMENT").Visible = True
Sheets("INIT").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("EMARGEMENT").Select
Range("A1").Select
End If
End Sub
Quand je clique sur le CommandButton1 qui se trouve sur la feuille * INIT *
le
code bug et j'ai droit à ce message :
Fenêtre * Microsoft Visual Basic *
Erreur d'exécution '1004':
La méthode Select de la classe Range a échoué
Quand je debogue la dernière ligne du code * Range("A1").Select * est
surlignée par le debogeur.
Lorsque j'exécute le code pas à pas (F8) je bug pareil sur cette ligne avec
le message suivant :
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
Alors physiquement quand le code bug je suis bien avec la feuille *
EMARGEMENT * qui est à l'écran. Pour comprendre j'ai donc mis une petite
variante dans le code en rajoutant juste avant la ligne qui bug ceci * [a7]
= "Test" * et bien lorsque le code bug ( toujours au même endroit) mais au
lieu d'avoir * Test * en A7 de la feuille "EMARGEMENT" je l'ai en A7 de la
Feuille * INIT *.
Je n'y comprends plus rien. Où est ce que je me suis planté ?
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True ' Sheets("EMARGEMENT").Visible = True Sheets("INIT").Select ActiveWindow.SelectedSheets.Visible = False Application.Goto Reference:=Worksheets("EMARGEMENT").Range("A1") End If End Sub
isabelle
Bonjour la communauté,
Comme je le dis dans le titre du post, Au secoouuuurrrs j'en perds mon latin ! ! !
Alors voici le fautif ( pourtant il me semble correct, non ? )
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True ' Sheets("EMARGEMENT").Visible = True Sheets("INIT").Select ActiveWindow.SelectedSheets.Visible = False Sheets("EMARGEMENT").Select Range("A1").Select End If End Sub
Quand je clique sur le CommandButton1 qui se trouve sur la feuille * INIT * le code bug et j'ai droit à ce message :
Fenêtre * Microsoft Visual Basic * Erreur d'exécution '1004': La méthode Select de la classe Range a échoué
Quand je debogue la dernière ligne du code * Range("A1").Select * est surlignée par le debogeur.
Lorsque j'exécute le code pas à pas (F8) je bug pareil sur cette ligne avec le message suivant :
Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet
Alors physiquement quand le code bug je suis bien avec la feuille * EMARGEMENT * qui est à l'écran. Pour comprendre j'ai donc mis une petite variante dans le code en rajoutant juste avant la ligne qui bug ceci * [a7] = "Test" * et bien lorsque le code bug ( toujours au même endroit) mais au lieu d'avoir * Test * en A7 de la feuille "EMARGEMENT" je l'ai en A7 de la Feuille * INIT *.
Je n'y comprends plus rien. Où est ce que je me suis planté ?
Merci de vos conseils.
Cordialement.
Excel...lent
isabelle
ou bien comme ça,
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True Sheets("INIT").Visible = False With Sheets("EMARGEMENT") .Visible = True .Activate .Range("A1").Select End With End If End Sub
isabelle
j'ai modifié comme ca, et cela fonctionne.
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True ' Sheets("EMARGEMENT").Visible = True Sheets("INIT").Select ActiveWindow.SelectedSheets.Visible = False Application.Goto Reference:=Worksheets("EMARGEMENT").Range("A1") End If End Sub
isabelle
Bonjour la communauté,
Comme je le dis dans le titre du post, Au secoouuuurrrs j'en perds mon latin ! ! !
Alors voici le fautif ( pourtant il me semble correct, non ? )
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True ' Sheets("EMARGEMENT").Visible = True Sheets("INIT").Select ActiveWindow.SelectedSheets.Visible = False Sheets("EMARGEMENT").Select Range("A1").Select End If End Sub
Quand je clique sur le CommandButton1 qui se trouve sur la feuille * INIT * le code bug et j'ai droit à ce message :
Fenêtre * Microsoft Visual Basic * Erreur d'exécution '1004': La méthode Select de la classe Range a échoué
Quand je debogue la dernière ligne du code * Range("A1").Select * est surlignée par le debogeur.
Lorsque j'exécute le code pas à pas (F8) je bug pareil sur cette ligne avec le message suivant :
Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet
Alors physiquement quand le code bug je suis bien avec la feuille * EMARGEMENT * qui est à l'écran. Pour comprendre j'ai donc mis une petite variante dans le code en rajoutant juste avant la ligne qui bug ceci * [a7] = "Test" * et bien lorsque le code bug ( toujours au même endroit) mais au lieu d'avoir * Test * en A7 de la feuille "EMARGEMENT" je l'ai en A7 de la Feuille * INIT *.
Je n'y comprends plus rien. Où est ce que je me suis planté ?
Merci de vos conseils.
Cordialement.
Excel...lent
ou bien comme ça,
Private Sub CommandButton1_Click()
If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _
, vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then
CommandBars("perso").Visible = True
Sheets("INIT").Visible = False
With Sheets("EMARGEMENT")
.Visible = True
.Activate
.Range("A1").Select
End With
End If
End Sub
isabelle
j'ai modifié comme ca, et cela fonctionne.
Private Sub CommandButton1_Click()
If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _
, vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then
CommandBars("perso").Visible = True
'
Sheets("EMARGEMENT").Visible = True
Sheets("INIT").Select
ActiveWindow.SelectedSheets.Visible = False
Application.Goto Reference:=Worksheets("EMARGEMENT").Range("A1")
End If
End Sub
isabelle
Bonjour la communauté,
Comme je le dis dans le titre du post, Au secoouuuurrrs j'en perds mon
latin
! ! !
Alors voici le fautif ( pourtant il me semble correct, non ? )
Private Sub CommandButton1_Click()
If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _
, vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then
CommandBars("perso").Visible = True
'
Sheets("EMARGEMENT").Visible = True
Sheets("INIT").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("EMARGEMENT").Select
Range("A1").Select
End If
End Sub
Quand je clique sur le CommandButton1 qui se trouve sur la feuille *
INIT *
le
code bug et j'ai droit à ce message :
Fenêtre * Microsoft Visual Basic *
Erreur d'exécution '1004':
La méthode Select de la classe Range a échoué
Quand je debogue la dernière ligne du code * Range("A1").Select * est
surlignée par le debogeur.
Lorsque j'exécute le code pas à pas (F8) je bug pareil sur cette ligne
avec
le message suivant :
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
Alors physiquement quand le code bug je suis bien avec la feuille *
EMARGEMENT * qui est à l'écran. Pour comprendre j'ai donc mis une petite
variante dans le code en rajoutant juste avant la ligne qui bug ceci *
[a7]
= "Test" * et bien lorsque le code bug ( toujours au même endroit)
mais au
lieu d'avoir * Test * en A7 de la feuille "EMARGEMENT" je l'ai en A7
de la
Feuille * INIT *.
Je n'y comprends plus rien. Où est ce que je me suis planté ?
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True Sheets("INIT").Visible = False With Sheets("EMARGEMENT") .Visible = True .Activate .Range("A1").Select End With End If End Sub
isabelle
j'ai modifié comme ca, et cela fonctionne.
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True ' Sheets("EMARGEMENT").Visible = True Sheets("INIT").Select ActiveWindow.SelectedSheets.Visible = False Application.Goto Reference:=Worksheets("EMARGEMENT").Range("A1") End If End Sub
isabelle
Bonjour la communauté,
Comme je le dis dans le titre du post, Au secoouuuurrrs j'en perds mon latin ! ! !
Alors voici le fautif ( pourtant il me semble correct, non ? )
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True ' Sheets("EMARGEMENT").Visible = True Sheets("INIT").Select ActiveWindow.SelectedSheets.Visible = False Sheets("EMARGEMENT").Select Range("A1").Select End If End Sub
Quand je clique sur le CommandButton1 qui se trouve sur la feuille * INIT * le code bug et j'ai droit à ce message :
Fenêtre * Microsoft Visual Basic * Erreur d'exécution '1004': La méthode Select de la classe Range a échoué
Quand je debogue la dernière ligne du code * Range("A1").Select * est surlignée par le debogeur.
Lorsque j'exécute le code pas à pas (F8) je bug pareil sur cette ligne avec le message suivant :
Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet
Alors physiquement quand le code bug je suis bien avec la feuille * EMARGEMENT * qui est à l'écran. Pour comprendre j'ai donc mis une petite variante dans le code en rajoutant juste avant la ligne qui bug ceci * [a7] = "Test" * et bien lorsque le code bug ( toujours au même endroit) mais au lieu d'avoir * Test * en A7 de la feuille "EMARGEMENT" je l'ai en A7 de la Feuille * INIT *.
Je n'y comprends plus rien. Où est ce que je me suis planté ?
Merci de vos conseils.
Cordialement.
Excel...lent
Excel...lent
Salut Isabelle,
Merci pour tes modifs.
Ca ne bug plus et je retrouve bien effectivement le curseur sur la plage A1 de la feuille * EMARGEMENT *. Jusque là c'est bon. Malheureusement quand je veux effectuer un travail sur cette feuille du genre * [a7] = "Test" * et bien que je sois sur la feuille * EMARGEMENT * c'est la cellule A7 de la feuille * INIT * qui hérite du mot * Test *.
Tu y comprends quelque chose toi ????? -)))))
Si oui je suis preneur.
Sinons dans l'immédiat j'ai provisoirement trouvé la solution en utilisant un bouton classique de la barre * formulaire * , tu sais les boutons tout gris ( beurk, caca .....) et avec le même code en macro classique cela fonctionne. Va comprendre Charles !
En fait je voulais utiliser un CommandButton parcequ'ils sont nettement moins tristes que les autres ( couleur, fond, etc...).
En tout cas merci pour ton aide. Sans te casser la tête si par hasard tu étais frappée par la grâce divine et que tu arrivais à comprendre ce qui cloche comme je te l'ai dit plus haut, je suis preneur.
En ce que me concerne DIEU doit être faché avec moi car la grâce m'évite -))
Cordialement.
Excel...lent
Salut Isabelle,
Merci pour tes modifs.
Ca ne bug plus et je retrouve bien effectivement le curseur sur la plage A1
de la feuille * EMARGEMENT *. Jusque là c'est bon. Malheureusement quand je
veux effectuer un travail sur cette feuille du genre * [a7] = "Test" * et
bien que je sois sur la feuille * EMARGEMENT * c'est la cellule A7 de la
feuille * INIT * qui hérite du mot * Test *.
Tu y comprends quelque chose toi ????? -)))))
Si oui je suis preneur.
Sinons dans l'immédiat j'ai provisoirement trouvé la solution en utilisant
un bouton classique de la barre * formulaire * , tu sais les boutons tout
gris ( beurk, caca .....) et avec le même code en macro classique cela
fonctionne. Va comprendre Charles !
En fait je voulais utiliser un CommandButton parcequ'ils sont nettement
moins tristes que les autres ( couleur, fond, etc...).
En tout cas merci pour ton aide. Sans te casser la tête si par hasard tu
étais frappée par la grâce divine et que tu arrivais à comprendre ce qui
cloche comme je te l'ai dit plus haut, je suis preneur.
En ce que me concerne DIEU doit être faché avec moi car la grâce m'évite -))
Ca ne bug plus et je retrouve bien effectivement le curseur sur la plage A1 de la feuille * EMARGEMENT *. Jusque là c'est bon. Malheureusement quand je veux effectuer un travail sur cette feuille du genre * [a7] = "Test" * et bien que je sois sur la feuille * EMARGEMENT * c'est la cellule A7 de la feuille * INIT * qui hérite du mot * Test *.
Tu y comprends quelque chose toi ????? -)))))
Si oui je suis preneur.
Sinons dans l'immédiat j'ai provisoirement trouvé la solution en utilisant un bouton classique de la barre * formulaire * , tu sais les boutons tout gris ( beurk, caca .....) et avec le même code en macro classique cela fonctionne. Va comprendre Charles !
En fait je voulais utiliser un CommandButton parcequ'ils sont nettement moins tristes que les autres ( couleur, fond, etc...).
En tout cas merci pour ton aide. Sans te casser la tête si par hasard tu étais frappée par la grâce divine et que tu arrivais à comprendre ce qui cloche comme je te l'ai dit plus haut, je suis preneur.
En ce que me concerne DIEU doit être faché avec moi car la grâce m'évite -))
Cordialement.
Excel...lent
isabelle
essaie comme ça,
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True Sheets("INIT").Visible = False With Sheets("EMARGEMENT") .Visible = True .Activate Application.Goto Reference:=Worksheets("EMARGEMENT").Range("A1") .Range("A7") = "Test" End With End If End Sub
isabelle
Salut Isabelle,
Merci pour tes modifs.
Ca ne bug plus et je retrouve bien effectivement le curseur sur la plage A1 de la feuille * EMARGEMENT *. Jusque là c'est bon. Malheureusement quand je veux effectuer un travail sur cette feuille du genre * [a7] = "Test" * et bien que je sois sur la feuille * EMARGEMENT * c'est la cellule A7 de la feuille * INIT * qui hérite du mot * Test *.
Tu y comprends quelque chose toi ????? -)))))
Si oui je suis preneur.
Sinons dans l'immédiat j'ai provisoirement trouvé la solution en utilisant un bouton classique de la barre * formulaire * , tu sais les boutons tout gris ( beurk, caca .....) et avec le même code en macro classique cela fonctionne. Va comprendre Charles !
En fait je voulais utiliser un CommandButton parcequ'ils sont nettement moins tristes que les autres ( couleur, fond, etc...).
En tout cas merci pour ton aide. Sans te casser la tête si par hasard tu étais frappée par la grâce divine et que tu arrivais à comprendre ce qui cloche comme je te l'ai dit plus haut, je suis preneur.
En ce que me concerne DIEU doit être faché avec moi car la grâce m'évite -))
Cordialement.
Excel...lent
essaie comme ça,
Private Sub CommandButton1_Click()
If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _
, vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then
CommandBars("perso").Visible = True
Sheets("INIT").Visible = False
With Sheets("EMARGEMENT")
.Visible = True
.Activate
Application.Goto Reference:=Worksheets("EMARGEMENT").Range("A1")
.Range("A7") = "Test"
End With
End If
End Sub
isabelle
Salut Isabelle,
Merci pour tes modifs.
Ca ne bug plus et je retrouve bien effectivement le curseur sur la plage A1
de la feuille * EMARGEMENT *. Jusque là c'est bon. Malheureusement quand je
veux effectuer un travail sur cette feuille du genre * [a7] = "Test" * et
bien que je sois sur la feuille * EMARGEMENT * c'est la cellule A7 de la
feuille * INIT * qui hérite du mot * Test *.
Tu y comprends quelque chose toi ????? -)))))
Si oui je suis preneur.
Sinons dans l'immédiat j'ai provisoirement trouvé la solution en utilisant
un bouton classique de la barre * formulaire * , tu sais les boutons tout
gris ( beurk, caca .....) et avec le même code en macro classique cela
fonctionne. Va comprendre Charles !
En fait je voulais utiliser un CommandButton parcequ'ils sont nettement
moins tristes que les autres ( couleur, fond, etc...).
En tout cas merci pour ton aide. Sans te casser la tête si par hasard tu
étais frappée par la grâce divine et que tu arrivais à comprendre ce qui
cloche comme je te l'ai dit plus haut, je suis preneur.
En ce que me concerne DIEU doit être faché avec moi car la grâce m'évite -))
Private Sub CommandButton1_Click() If MsgBox("ETES-VOUS CERTAIN DE VOULOIR VALIDER ?" _ , vbInformation + vbYesNo, "ATTENTION ! ! !") = vbYes Then CommandBars("perso").Visible = True Sheets("INIT").Visible = False With Sheets("EMARGEMENT") .Visible = True .Activate Application.Goto Reference:=Worksheets("EMARGEMENT").Range("A1") .Range("A7") = "Test" End With End If End Sub
isabelle
Salut Isabelle,
Merci pour tes modifs.
Ca ne bug plus et je retrouve bien effectivement le curseur sur la plage A1 de la feuille * EMARGEMENT *. Jusque là c'est bon. Malheureusement quand je veux effectuer un travail sur cette feuille du genre * [a7] = "Test" * et bien que je sois sur la feuille * EMARGEMENT * c'est la cellule A7 de la feuille * INIT * qui hérite du mot * Test *.
Tu y comprends quelque chose toi ????? -)))))
Si oui je suis preneur.
Sinons dans l'immédiat j'ai provisoirement trouvé la solution en utilisant un bouton classique de la barre * formulaire * , tu sais les boutons tout gris ( beurk, caca .....) et avec le même code en macro classique cela fonctionne. Va comprendre Charles !
En fait je voulais utiliser un CommandButton parcequ'ils sont nettement moins tristes que les autres ( couleur, fond, etc...).
En tout cas merci pour ton aide. Sans te casser la tête si par hasard tu étais frappée par la grâce divine et que tu arrivais à comprendre ce qui cloche comme je te l'ai dit plus haut, je suis preneur.
En ce que me concerne DIEU doit être faché avec moi car la grâce m'évite -))
Cordialement.
Excel...lent
Excel...lent
Salut Isabelle,
Ca y est, C'est bon !
Y compris avec tout ce que j'ai mis à la place du * Range("A7") = "Test".
Je n'ai toujours pas bien saisi où ca plantait mais l'essentiel est que ça fonctionne et que je puisse mettre enfin un bouton avec des OULEURS..... -)))
Merci encore à toi.
Bonne journée.
Cordialement.
Marc
Salut Isabelle,
Ca y est, C'est bon !
Y compris avec tout ce que j'ai mis à la place du * Range("A7") = "Test".
Je n'ai toujours pas bien saisi où ca plantait mais l'essentiel est que ça
fonctionne et que je puisse mettre enfin un bouton avec des
OULEURS..... -)))
Y compris avec tout ce que j'ai mis à la place du * Range("A7") = "Test".
Je n'ai toujours pas bien saisi où ca plantait mais l'essentiel est que ça fonctionne et que je puisse mettre enfin un bouton avec des OULEURS..... -)))
