action après saisie

Cousinhub

XLDnaute Barbatruc

• 4 Avril 2008

• #2

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 😉

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 4 Avril 2008

• #3

Re : action après saisie

bonjour

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

Roland

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 4 Avril 2008

• #4

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+

 

Pièces jointes

• Romain31_Exemple1.xls

  28.5 KB · Affichages: 58

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 4 Avril 2008

• #5

Re : action après saisie

salut,

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

Code:

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

 

Vote positif 0 Vote négatif

R

Romain31

XLDnaute Occasionnel

• 4 Avril 2008

• #6

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

 

Vote positif 0 Vote négatif

R

Romain31

XLDnaute Occasionnel

• 4 Avril 2008

• #7

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 4 Avril 2008

• #8

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?

 

Vote positif 0 Vote négatif

R

Romain31

XLDnaute Occasionnel

• 4 Avril 2008

• #9

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.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 4 Avril 2008

• #10

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 :

Code:

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

 

Vote positif 0 Vote négatif

R

Romain31

XLDnaute Occasionnel

• 4 Avril 2008

• #11

Re : action après saisie

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

Bon week-end

Romain31

 

Vote positif 0 Vote négatif