userform ajouter une valeur sur une autree sheet

[nicroq]

Bonjour a tous et merci pour votre aide,

je souhaiterai avant de lancer une macro faire le test suivant via un userform qui apparaitrai :

- en feuille 2 si la valeur de B1="" alors le userform s ouvre en proposant de taper une valeur pour cette meme cellule B1

en vous remerciant

cordialement

 

[phlaurent55]

Re : userform ajouter une valeur sur une autree sheet

Bonjour nicroq,

voir fichier joint ( à adapter )

à+
Philippe

 

[nicroq]

Re : userform ajouter une valeur sur une autree sheet

merci pour votre reponse !!

cependant est il possible de lancer le userform sans utiliser un bouton, je voudrais qu'il s ouvre au au cours de ma macro quand :

If Sheets(2).Range("B1") = "" Then
UserForm1.Show
End If

merci pour votre aide!

 

[phlaurent55]

Re : userform ajouter une valeur sur une autree sheet

Re,

Pour ouvrir un USF sans utiliser un bouton, il est nécessaire de poser la condition pour laquelle celui-ci doit s'ouvrir et quand il doit s'ouvrir

ci-dessous 5 conditions (liste non exhaustive)

1- avant la fermeture du fichier
2- avant la sauvegarde du fichier
3- à l'ouverture du fichier
4- lors de l'activation d'une feuille (à définir)
5- lors de la désactivation d'une feuille (à définir)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets(2).Range("B1") = "" Then
UserForm1.Show
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets(2).Range("B1") = "" Then
UserForm1.Show
End If
End Sub

Private Sub Workbook_Open()
If Sheets(2).Range("B1") = "" Then
UserForm1.Show
End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sheets(2).Range("B1") = "" Then
UserForm1.Show
End If
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sheets(2).Range("B1") = "" Then
UserForm1.Show
End If
End Sub

Mais d'autre conditions sont possibles:
- si telle ou telle cellule contient ou ne contient pas telle ou telle valeur
- si le fichier est ouvert depuis plus de X minutes
- si la température de Grenoble descend en dessous de -15°C
- si le numéro 13 est sorti lors du dernier tirage du Loto
- ......................................................................

sans plus de précisions, la réponse apportée risque de na pas être la bonne

à+
Philippe