action après saisie

[Romain31]

Bonsoir,

Je souhaite sélectionner une feuille (pas de problème pour le code) ,après que l'utilisateur a entré une valeur dans une cellule quelconque (et là = problème).
Un message invite a entrer une donnée, et dès que la donnée est entrée, la feuille doit être sélectionné.

Merci pour votre aide

Romain

 

[Cousinhub]

Re : action après saisie

Bonsoir,
Un peu trop vague comme question : 😕

Quelle cellule (toutes?)
quelle feuille sélectionner en fonction de quelle valeur?
Tu as la possibilité de mettre une liste de validation dans une cellule, et ensuite de sélectionner la feuille désignée
Et ensuite, est-ce nécessaire de sélectionner la feuille?
(un lien hyper texte peut le faire)
......
Bref, décris un peu mieux ton problème 😉

 

[Roland_M]

Re : action après saisie

bonjour

voir peut être avec insertion Lien hypertexte en choisissant dans ce document

Roland

 

[Compte Supprimé 979]

Re : action après saisie

Salut Romain31, salut bhbh,

C'est vrai que c'est un peu vague ....
Mais bon voilà un exemple de ce que tu peux faire (si j'ai compris)

A+

 

[joss56]

Re : action après saisie

salut,

essaye ce code à mettre "derrière" un bouton de commande (par exemple)

Sub CommandButton1_Click()
texte=inputbox("Saisissez votre texte")
Sheets(LaFeuilleConcernée).range(LaCelluleConcernée)=texte
Sheets(LaFeuilleConcernée).activate
End Sub

 

[Romain31]

Re : action après saisie

Merci à tous

voici mon code pour entrer une valeur dans toutes les feuilles
Dans un module : Sub Groupe_travail()
Sheets(Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", _
"septembre", "octobre", "novembre", "décembre")).Select
MsgBox "Entrez (ou effacez) une valeur qui sera copiée (ou effacée) sur l'ensemble des feuilles - Cliquez sur la feuille synthèse pour annuler cette opération"
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Sheets("synthese").Activate
End Sub

Lorsque cette macro n'est pas utilisée, dès que l'on travaille sur le fichier, on se retrouve systématiquement sur la feuille synthese.

Je voudrais supprimer le Sub Workbook_SheetChange et l'intégrer dans le module

 

[Romain31]

Re : action après saisie

En fait peut-on intercepter l'action de validation d'une saisie (la touche entrée), quelque soit cette saisie, pour déclencher une action.

Merci pour votre aide
Bon week-end

 

[Cousinhub]

Re : action après saisie

Re-,
es-tu sûr de vouloir écrire la même chose dans les mêmes cellules de tous tes onglets (à part synthèse)?
Dans ce cas, pourquoi 12 onglets?
Ou est-ce que la saisie identique ne concerne que certaines cellules?

 

[Romain31]

Re : action après saisie

Le principe est d'entrer la même saisie dans les 12 feuilles mensuelles.
La macro est lancée par un bouton. On passe en groupe de travail.
l'utilisateur entre une valeur quelquonque (qui est répercutée sur toutes les feuilles). Jusque là, tout va bien.
Une fois que cette saisie est faite (et peu importe la valeurt et où elle se trouve) je veux revenir sur la feuille synthèse (pour quitter le groupe de travail)


Mais l'on travaille également dans le fichier normalement, et là, on n'a besoin de rien.

 

[Cousinhub]

Re : action après saisie

Re-,
une autre méthode :

avec ce code, tu entres une valeur dans une cellule, puis après appui sur Entrée, normalement, la cellule du dessous est sélectionnée
tu appuies alors sur le bouton qui déclenche la macro, la cellule du dessus est recopiée dans toutes les feuilles désirées, sans sélection :

Sub Groupe_travail()
x = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", _
"septembre", "octobre", "novembre", "décembre")
Sheets(x).FillAcrossSheets ActiveCell.Offset(-1, 0)
End Sub

 

[Romain31]

Re : action après saisie

Merci bhbh,
Ton code fonctionne bien, et je vais reprendre mon fichier avec.

Bon week-end

Romain31