Afficher pop up quand cellule Excel remplie

Re : Afficher pop up quand cellule Excel remplie

alors dans le script de la feuil1 il y a ca:

'macro qui s'exécute à chaque fois qu'il y a un changement sur une des cellules de la feuille
'"Target" représente la cellule qui a changé
Private Sub Worksheet_Change(ByVal Target As Range)
'si c'est la cellule B5 qui a changé
If Target.Column = 5 Then
'si la cellule n'est pas vide
If Target.Text <> vbNullString Then
'afficher le message
MsgBox "n'oubliez pas de facturer pour régulariser la situation 2"
End If
End If
End Sub

il y a ca dans ThisWorkbook:

Private Sub Workbook_Open()
Dim texteCherche As String, message As String, celluleRecherche As Range, zoneRecherche As Range, lAdressePremCell As String

'initialiser le texte à chercher ("s24" si on est en semaine 22)
texteCherche = "s" & CStr(Module1.Semaine(Now) + 2)

'initialiser la zone de recherche (colonne F)
Set zoneRecherche = ThisWorkbook.Sheets("Feuil1").Range("F:F")

message = "Penser à envoyer courrier pour annoncer le début des travaux :" & vbNewLine

'lancer la recherche
Set celluleRecherche = zoneRecherche.Find(texteCherche, , xlValues, xlWhole)
'si rien n'est trouver, quitter la procédure
If celluleRecherche Is Nothing Then Exit Sub
'sinon, mémoriser l'adresse de la première cellule trouvée
lAdressePremCell = celluleRecherche.Address
'boucler ...
Do
'traiter la cellule de recherche

'ajouter une ligne au message
message = message & vbNewLine & "chantier """ & celluleRecherche.Offset(0, -5) & ", " & _
celluleRecherche.Offset(0, -4) & ", " & celluleRecherche.Offset(0, -3) & """"

'rechercher la cellule suivante
Set celluleRecherche = zoneRecherche.FindNext(celluleRecherche)
'... tant que la cellule de recherche n'est pas revenu à la première cellule trouvée
Loop Until celluleRecherche.Address = lAdressePremCell
Set celluleRecherche = Nothing

MsgBox message
End Sub


et il y a ca dans le modul1:

Public Function Semaine(dat As Date) As Integer
Dim a As Integer
a = Int((dat - DateSerial(Year(dat), 1, 1) + _
((Weekday(DateSerial(Year(dat), 1, 1)) + 1) _
Mod 7) - 3) / 7) + 1
If a = 0 Then
a = Semaine(DateSerial(Year(dat) - 1, 12, 31))
ElseIf a = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then
a = 1
End If
Semaine = a
End Function




Private Sub Workbook_Open()
Dim texteCherche As String, message As String, celluleRecherche As Range, zoneRecherche As Range, lAdressePremCell As String

'initialiser le texte à chercher ("s24" si on est en semaine 22)
texteCherche = "s" & CStr(Semaine(Now) + 2)

'initialiser la zone de recherche (colonne F)
Set zoneRecherche = ThisWorkbook.Sheets("Feuil1").Range("F:F")

message = "Penser à envoyer courrier pour annoncer le début des travaux :" & vbNewLine

'lancer la recherche
Set celluleRecherche = zoneRecherche.Find(texteCherche, , xlValues, xlWhole)
'si rien n'est trouver, quitter la procédure
If celluleRecherche Is Nothing Then Exit Sub
'sinon, mémoriser l'adresse de la première cellule trouvée
lAdressePremCell = celluleRecherche.Address
'boucler ...
Do
'traiter la cellule de recherche

'ajouter une ligne au message
message = message & vbNewLine & "chantier """ & celluleRecherche.Offset(0, -5) & ", " & _
celluleRecherche.Offset(0, -4) & ", " & celluleRecherche.Offset(0, -3) & """"

'rechercher la cellule suivante
Set celluleRecherche = zoneRecherche.FindNext(celluleRecherche)
'... tant que la cellule de recherche n'est pas revenu à la première cellule trouvée
Loop Until celluleRecherche.Address = lAdressePremCell
Set celluleRecherche = Nothing

MsgBox message
End Sub



ppr essayer j'ai mis s25 puis s24 en colonne F mais rien ne se passe........

Re : Afficher pop up quand cellule Excel remplie

re,

voici un exemple

a+

Re : Afficher pop up quand cellule Excel remplie

ouaaouuuuuuuuuuuu ca y est ca marche c'est trop la classe!!!!!!! yeaahh je ss trop content a serieux merci romain tu geres trop !! ca me dépatuoille pas mal vraiment!

je vais continuer a travailler sur mon excel et ne manquerais pas de revenir sur ce forum pr aider (si je peux) ou pr faire appel a vous!!

Mille merci encore, bonne journée ensoleillée!!

Re : Afficher pop up quand cellule Excel remplie

Bonjour à vous deux,

j'ai un petit soucis également dans mon stage.
Je voudrais afficher un msg box lorque que cellule par exemple n'est pas rempli.
Je m'explique :

Je vais m'interesser sur 3 colonne en particulier. (Plage AM 9H00 à 13H00, Plage PM 14H00 à 18H00, Autres Plages). L'utilisateur peux choisir dans la colonne Plage AM 9H00 à 13H00, Plage PM 14H00 à 18H00, Autres Plages soit OUI/NON à l'aide du liste déroulante.

Je souhaite que lorqu'un utilisateur choissient OUI/OUI, la colonne Autres Plages reste vide.
Par contre quand un utilisateur choissient NON/NON, la colonne Autres Plages affiche un popup qui mentionne "veuillez remlir la colonne AUTRE PLAGE"

lorqu'un utilisateur choissient OUI/NON, la colonne Autres Plages affiche un popup qui mentionne "préciser la plage PM"
lorqu'un utilisateur choissient non/oui, la colonne Autres Plages affiche un popup qui mentionne "préciser la plage PM"

J'ai fais ça comme cela :
=SI(ET(P147="oui";Q147="oui");"Plage AM, Plage PM";SI(ET(B117="non";C117="non");"";SI(ET(P147="oui";Q147="non");"Plage AM";SI(ET(P147="non";Q147="oui");"Plage PM ";SI(ET(P147="";Q147="");"Précisier la plage horaire"😉 ))))

Mais je preferais avoir des msg box et que les conditions ne se marque pas ds la celulle.

Si vous pouvez m'aider, ça serait super 🙂

Merci et à très bientot
SKILL75

Re : Afficher pop up quand cellule Excel remplie

skill75 à dit:

Bonjour à vous deux,

j'ai un petit soucis également dans mon stage.
Je voudrais afficher un msg box lorque que cellule par exemple n'est pas rempli.
Je m'explique :

Je vais m'interesser sur 3 colonne en particulier. (Plage AM 9H00 à 13H00, Plage PM 14H00 à 18H00, Autres Plages). L'utilisateur peux choisir dans la colonne Plage AM 9H00 à 13H00, Plage PM 14H00 à 18H00, Autres Plages soit OUI/NON à l'aide du liste déroulante.

Je souhaite que lorqu'un utilisateur choissient OUI/OUI, la colonne Autres Plages reste vide.
Par contre quand un utilisateur choissient NON/NON, la colonne Autres Plages affiche un popup qui mentionne "veuillez remlir la colonne AUTRE PLAGE"

lorqu'un utilisateur choissient OUI/NON, la colonne Autres Plages affiche un popup qui mentionne "préciser la plage PM"
lorqu'un utilisateur choissient non/oui, la colonne Autres Plages affiche un popup qui mentionne "préciser la plage PM"

J'ai fais ça comme cela :
=SI(ET(P147="oui";Q147="oui");"Plage AM, Plage PM";SI(ET(B117="non";C117="non");"";SI(ET(P147="oui";Q147="non");"Plage AM";SI(ET(P147="non";Q147="oui");"Plage PM ";SI(ET(P147="";Q147="");"Précisier la plage horaire"😉 ))))

Mais je preferais avoir des msg box et que les conditions ne se marque pas ds la celulle.

Si vous pouvez m'aider, ça serait super 🙂

Merci et à très bientot
SKILL75

Cliquez pour agrandir...

Bonjour skill75, et bienvenue sur le forum 🙂

je te conseille d'ouvrir un nouveau fil avec ton problème (tu auras surement plus de réponses).
De plus, il faudrait faire un petit fichier exemple (histoire d'avoir de quoi se mettre sous la dent 😉)

à bientôt (sur un autre fil donc)

PS: juste à titre indicatif, voici la Lien supprimé.