Discussion :

[flamel]

Bonjour,
voici un code placé dans une feuille et non dans un userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheets_MouseUp()
    initial
End Sub

que je n'arrive pas à faire marcher.
Je souhaiterais que chaque fois que la souris est activée, une initialisation se fasse dans la routine 'intial' qui ne se trouve pas appelée.
Merci si vous pouvez m'aider.

[Invité]

Bonjour

Il ne me semble pas que cette procédure existe pour une feuille Excel.

Que veux-tu dire par activée ? Que la souris bouge ? Que l'on clique sur un bouton de celle-ci ?

Philippe

[babaothe]

salut

ouvre l'aide VBA sur le mot Mouseup. Regarde à quoi cet évènement s'applique.
Tu n'y trouveras pas un feuille de calcul et encore moins la collection des feuilles de calcul !

[flamel]

Merci.

Je souhaiterais qu'après avoir entrer une valeur dans une cellule donnée,
une routine se trouve appelée pour une mise à jour.
Je pensais que l'évènement 'mouseup' pouvait marcher.
Y a-t-il une autre solution ?

[babaothe]

Aucun évènement pendant que tu saisis.
En quittant la cellule, par contre : utilisation de l'évènement SelectionChange

Tu peux également utiliser l'évènement Change

Dans un cas comme dans l'autre, ne peut concerner qu'une Feuille et non la collection (WorkSheets) des feuilles !

[flamel]

Comment placer Selectionchange ?

[babaothe]

Regarde ce que fait cet exemple rudimentaire (exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not IsNumeric(Target.Value) Then
   MsgBox "pas un numérique"
   Target.Activate
 End If
End Sub

puis essaye de frapper une lettre dans une cellule puis d'aller vers une autre cellule