ouvrir un user quant la cellule H3 change

[Denj]

Bonjour à tous

La question n'est pas nul c'est moi le nul, j'ai la mémoire qui flanche.

bref : quant j'ai la valeur de la cellule H3 change, l'userform2 souvre oui mais comment on fait ?
merci pour la reponse
@+

 

[michel]

bonjour Denj

tu peux tester la procedure ci dessous , à inserer au niveau de la feuille

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$H$3" Then UserForm2.Show
End Sub

bon apres midi
michel

 

[sylsyl]

Salut Denj, salut Michel,

Je crois que Denj veux ouvrir USF2 seulement si la valeur H3 a ete modifiee, ta methode, Michel, ouvre l'USF2 si H3 est selectionnee.

Pour voir si une cellule a ete modifiee tu as besoin de 2 cellules; l'une contenant l'ancienne valeur et l'autre (ici H3) qui contient la nouvelle valeur pour les comparer.
Je te renvoie sur ce fil qui traite de ce pb de comparaison (les 10 premiers posts suffisent, apres ca part en Live). Il te reste plus qu'a adapter.

D'ailleurs tiens.. ca devrait marcher ca...(non teste)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
On Error Resume Next
If Target.Count = 1 Then
If Range("H3")) <> Range("H4") Then Userform2.Show
Range("H4") = Target.Value
End If
End Sub

L'ancienne valeur de H3 est stockee en H4 a chaque nouvelle selection et la macro teste si H3 et H4 sont differents ou pas, si ils le sont -> USF2.

Si tu as un pb, n'hesites pas...

A++, Sylsyl.

 

[Denj]

re bonjour

merci Michel et Sylsyl

j'ai trouvé cette formule qui marche:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$H$3" Then UserForm2.Show 0

Bien sur Sylsyl ta formule et plus complete mais les deux ligne au dessus marche

merci encore à vous
@+ Denj

 

[sylsyl]

re,

C'est ce que t'a donne Michel ou alors il y a bien un "0" apres Userform2.Show ?
Si oui, le "0" sert a quoi ?

Sylsyl.

 

[Evelynetfrancois]

quant j'ai la valeur de la cellule H3 change!!!!!
<> "$H$3" ??????
sylsyl a bien raison !
bonne nuit lol.......;
EF

 

[Denj]

Bonsoir à tous


Heu.....! le "0" Sylsyl c'est: , j'ai fait du copier coller avec une autres formule en fait sur l'autre formule on place l'Userform dans le coin en haut à gauche
voila,

encore merci à vous tous
@+ denj