userform tout simple

[ninanani]

Bonjour,

Je ne sais pas comment faire pour creer un userform, j ai donc besoin de votre aide :

je souhaiterais que lorsque je clique sur la touche "entre" du clavier, pour les cellules de B3 a B32, de la feuille "charges".
Un userform s affiche avec ecrit " Is there a bill ?"
Avec "Yes" et "No".

Si je clique sur"yes", en H de la meme ligne, s affiche yes.
Et pareil pour si je clique sur no.

Tout cela sur le meme feuille.

Merci d avance.

 

[PascalXLD]

Re : userform tout simple

Bonjour

tu veux vraiment un UF car une simple msgbox te fait cela

 

[ninanani]

Re : userform tout simple

Re ,
Ben si cela fonctionne aussi, alors je suis ok pour le msgbox....

 

[PascalXLD]

Re : userform tout simple

re
Voilà un code qui se déclenche sur une modifiaction de ta plage

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B32")) Is Nothing Then
If MsgBox("Is there a bill ?", vbYesNo) = vbYes Then
    Range("H" & Target.Row) = "yes"
Else
    Range("H" & Target.Row) = "no"
End If
End If


End Sub

 

[ninanani]

Re : userform tout simple

Re Pascal.

Merci pour ton code, seulement lorsque je l ecrit sur Visual Basic Editor, dans module. (c est toujours la que je redige mes macros). Mais lorsque je modifie les cases en questions, rien ne se passe.
J ai rajoute au code en rouge la feuille en question:


Private Sub hh(ByVal Target As Range)
If Not Intersect(Target, Sheets("charges").Range("B3:B32")) Is Nothing Then
If MsgBox("Is there a bill ?", vbYesNo) = vbYes Then
Range("H" & Target.Row) = "yes"
Else
Range("H" & Target.Row) = "no"
End If
End If


End Sub

Fallait il le rajouter? Meme lorsqu il n etait pas rajouter rien ne se passait.
Ou peut etre fallait il le rajouter ailleur?

Merci encore de ton aide.

 

[James007]

Re : userform tout simple

Bonjour,

Le code fonctionne très bien ... à deux conditions :

1. Ne pas changer son nom
Private Sub Worksheet_Change(ByVal Target As Range)

2. Le placer dans le module de la feuille

A +

 

[pascal21]

Re : userform tout simple

bonjour
je ne comprends pas ton problème
chez moi ça fonctionne parfaitement
la manip pour mettre le code proposé:
clic droit sur l'onglet
clic sur la ligne "visualiser le code"
copier/coller du code dans la fenetre
tu retourne sur ta feuille et lorsdque tu écris quelque chose en b tu as bien la msgbox qui s'ouvre et qui écris "yes en colonne H si tu clic sur 'oui'

 

[ninanani]

Re : userform tout simple

Re,

Merci a vous, cela fonctionne maintenant.

Le probleme etait que je n appliquais pas directement le code pour cette page...