J'ai envoyer ce message il y a deux jour et je ne le voie pas ,
ou est t'il passer?
Bonsoir à Tous
Comment faire pour avoir un 2 choix dans ma boite message.
1 Premier bouton
OK = pour sauve garder quitter
2 Deuxième bouton
Ajouter une Date = aller 1 cellule en bas de la dernière cellule qui n'est
pas vide dans collonne A
Merci
Sub anniversaire()
'envoie un message à l'ouverture de Excel
Set feuil = ThisWorkbook.Sheets(1)
demi = feuil.Range("durée") / 2
For lin = 1 To feuil.Cells.SpecialCells(xlCellTypeLastCell).Row
Set cel = feuil.Cells(lin, 1)
If IsDate(cel) Then
If Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " &
Year(Now))) < demi _
Or Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " &
Year(Now) + 1)) < demi Then
blabla = blabla & Chr(13) & Chr(13) & Format(feuil.Cells(lin, 1), " dd
mmm") & " = " & feuil.Cells(lin, 2) & " " & feuil.Cells(lin, 3) & " " &
feuil.Cells(lin, 5) & " " & feuil.Cells(lin, 6)
End If
End If
Next
If blabla <> "" Then MsgBox "Anniversaire de " & (blabla)
ThisWorkbook.Close SaveChanges:=False
If ThisWorkbook.Name = "anniversaires.xla" Then ThisWorkbook.Close (False)
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jps
bonjour daniel ce que pourrait être une Msgbox avec deux choix
Sub test() rep = MsgBox("essaie ceci", vbYesNo, "zaza") If rep = vbYes Then MsgBox ("ça baigne ou quoi?") If rep = vbNo Then MsgBox ("ça baigne toujours?") End Sub
mais ce n'est peut-être pas ce que tu cherches... jps
"Daniel" a écrit dans le message de news:C0QZd.79088$
J'ai envoyer ce message il y a deux jour et je ne le voie pas , ou est t'il passer?
Bonsoir à Tous Comment faire pour avoir un 2 choix dans ma boite message. 1 Premier bouton OK = pour sauve garder quitter 2 Deuxième bouton Ajouter une Date = aller 1 cellule en bas de la dernière cellule qui n'est pas vide dans collonne A
Merci
Sub anniversaire() 'envoie un message à l'ouverture de Excel Set feuil = ThisWorkbook.Sheets(1) demi = feuil.Range("durée") / 2 For lin = 1 To feuil.Cells.SpecialCells(xlCellTypeLastCell).Row Set cel = feuil.Cells(lin, 1) If IsDate(cel) Then If Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " & Year(Now))) < demi _ Or Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " & Year(Now) + 1)) < demi Then blabla = blabla & Chr(13) & Chr(13) & Format(feuil.Cells(lin, 1), " dd mmm") & " = " & feuil.Cells(lin, 2) & " " & feuil.Cells(lin, 3) & " " &
feuil.Cells(lin, 5) & " " & feuil.Cells(lin, 6) End If End If Next If blabla <> "" Then MsgBox "Anniversaire de " & (blabla) ThisWorkbook.Close SaveChanges:úlse If ThisWorkbook.Name = "anniversaires.xla" Then ThisWorkbook.Close (False) End Sub
bonjour daniel
ce que pourrait être une Msgbox avec deux choix
Sub test()
rep = MsgBox("essaie ceci", vbYesNo, "zaza")
If rep = vbYes Then MsgBox ("ça baigne ou quoi?")
If rep = vbNo Then MsgBox ("ça baigne toujours?")
End Sub
mais ce n'est peut-être pas ce que tu cherches...
jps
"Daniel" <pellet15@videotron.ca> a écrit dans le message de
news:C0QZd.79088$WM1.2017723@wagner.videotron.net...
J'ai envoyer ce message il y a deux jour et je ne le voie pas ,
ou est t'il passer?
Bonsoir à Tous
Comment faire pour avoir un 2 choix dans ma boite message.
1 Premier bouton
OK = pour sauve garder quitter
2 Deuxième bouton
Ajouter une Date = aller 1 cellule en bas de la dernière cellule qui n'est
pas vide dans collonne A
Merci
Sub anniversaire()
'envoie un message à l'ouverture de Excel
Set feuil = ThisWorkbook.Sheets(1)
demi = feuil.Range("durée") / 2
For lin = 1 To feuil.Cells.SpecialCells(xlCellTypeLastCell).Row
Set cel = feuil.Cells(lin, 1)
If IsDate(cel) Then
If Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " &
Year(Now))) < demi _
Or Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " &
Year(Now) + 1)) < demi Then
blabla = blabla & Chr(13) & Chr(13) & Format(feuil.Cells(lin, 1), " dd
mmm") & " = " & feuil.Cells(lin, 2) & " " & feuil.Cells(lin, 3) & " "
&
feuil.Cells(lin, 5) & " " & feuil.Cells(lin, 6)
End If
End If
Next
If blabla <> "" Then MsgBox "Anniversaire de " & (blabla)
ThisWorkbook.Close SaveChanges:úlse
If ThisWorkbook.Name = "anniversaires.xla" Then ThisWorkbook.Close (False)
End Sub
bonjour daniel ce que pourrait être une Msgbox avec deux choix
Sub test() rep = MsgBox("essaie ceci", vbYesNo, "zaza") If rep = vbYes Then MsgBox ("ça baigne ou quoi?") If rep = vbNo Then MsgBox ("ça baigne toujours?") End Sub
mais ce n'est peut-être pas ce que tu cherches... jps
"Daniel" a écrit dans le message de news:C0QZd.79088$
J'ai envoyer ce message il y a deux jour et je ne le voie pas , ou est t'il passer?
Bonsoir à Tous Comment faire pour avoir un 2 choix dans ma boite message. 1 Premier bouton OK = pour sauve garder quitter 2 Deuxième bouton Ajouter une Date = aller 1 cellule en bas de la dernière cellule qui n'est pas vide dans collonne A
Merci
Sub anniversaire() 'envoie un message à l'ouverture de Excel Set feuil = ThisWorkbook.Sheets(1) demi = feuil.Range("durée") / 2 For lin = 1 To feuil.Cells.SpecialCells(xlCellTypeLastCell).Row Set cel = feuil.Cells(lin, 1) If IsDate(cel) Then If Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " & Year(Now))) < demi _ Or Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " & Year(Now) + 1)) < demi Then blabla = blabla & Chr(13) & Chr(13) & Format(feuil.Cells(lin, 1), " dd mmm") & " = " & feuil.Cells(lin, 2) & " " & feuil.Cells(lin, 3) & " " &
feuil.Cells(lin, 5) & " " & feuil.Cells(lin, 6) End If End If Next If blabla <> "" Then MsgBox "Anniversaire de " & (blabla) ThisWorkbook.Close SaveChanges:úlse If ThisWorkbook.Name = "anniversaires.xla" Then ThisWorkbook.Close (False) End Sub
papou
Bonjour Il faut utiliser un Userform pour ça parce qu'avec un Msgbox tu n'as que des choix limités dans les intitulés de boutons (OK, Annuler, Réessayer, Ignorer). Sinon, pour ce qui conserne le code : - Pour sauvegarder le classeur actif et le fermer (puis fermer Excel ?) ActiveWorkbook.Close(True) Application.Quit - Pour atteindre la première cellule vide de la colonne A Range("A65536").end(xlup)(2).select Attention toutefois à définir quelle feuille est active.
Cordialement Pascal
"Daniel" a écrit dans le message de news:C0QZd.79088$
J'ai envoyer ce message il y a deux jour et je ne le voie pas , ou est t'il passer?
Bonsoir à Tous Comment faire pour avoir un 2 choix dans ma boite message. 1 Premier bouton OK = pour sauve garder quitter 2 Deuxième bouton Ajouter une Date = aller 1 cellule en bas de la dernière cellule qui n'est pas vide dans collonne A
Merci
Sub anniversaire() 'envoie un message à l'ouverture de Excel Set feuil = ThisWorkbook.Sheets(1) demi = feuil.Range("durée") / 2 For lin = 1 To feuil.Cells.SpecialCells(xlCellTypeLastCell).Row Set cel = feuil.Cells(lin, 1) If IsDate(cel) Then If Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " & Year(Now))) < demi _ Or Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " & Year(Now) + 1)) < demi Then blabla = blabla & Chr(13) & Chr(13) & Format(feuil.Cells(lin, 1), " dd mmm") & " = " & feuil.Cells(lin, 2) & " " & feuil.Cells(lin, 3) & " " &
feuil.Cells(lin, 5) & " " & feuil.Cells(lin, 6) End If End If Next If blabla <> "" Then MsgBox "Anniversaire de " & (blabla) ThisWorkbook.Close SaveChanges:úlse If ThisWorkbook.Name = "anniversaires.xla" Then ThisWorkbook.Close (False) End Sub
Bonjour
Il faut utiliser un Userform pour ça parce qu'avec un Msgbox tu n'as que des
choix limités dans les intitulés de boutons (OK, Annuler, Réessayer,
Ignorer).
Sinon, pour ce qui conserne le code :
- Pour sauvegarder le classeur actif et le fermer (puis fermer Excel ?)
ActiveWorkbook.Close(True)
Application.Quit
- Pour atteindre la première cellule vide de la colonne A
Range("A65536").end(xlup)(2).select
Attention toutefois à définir quelle feuille est active.
Cordialement
Pascal
"Daniel" <pellet15@videotron.ca> a écrit dans le message de
news:C0QZd.79088$WM1.2017723@wagner.videotron.net...
J'ai envoyer ce message il y a deux jour et je ne le voie pas ,
ou est t'il passer?
Bonsoir à Tous
Comment faire pour avoir un 2 choix dans ma boite message.
1 Premier bouton
OK = pour sauve garder quitter
2 Deuxième bouton
Ajouter une Date = aller 1 cellule en bas de la dernière cellule qui n'est
pas vide dans collonne A
Merci
Sub anniversaire()
'envoie un message à l'ouverture de Excel
Set feuil = ThisWorkbook.Sheets(1)
demi = feuil.Range("durée") / 2
For lin = 1 To feuil.Cells.SpecialCells(xlCellTypeLastCell).Row
Set cel = feuil.Cells(lin, 1)
If IsDate(cel) Then
If Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " &
Year(Now))) < demi _
Or Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " &
Year(Now) + 1)) < demi Then
blabla = blabla & Chr(13) & Chr(13) & Format(feuil.Cells(lin, 1), " dd
mmm") & " = " & feuil.Cells(lin, 2) & " " & feuil.Cells(lin, 3) & " "
&
feuil.Cells(lin, 5) & " " & feuil.Cells(lin, 6)
End If
End If
Next
If blabla <> "" Then MsgBox "Anniversaire de " & (blabla)
ThisWorkbook.Close SaveChanges:úlse
If ThisWorkbook.Name = "anniversaires.xla" Then ThisWorkbook.Close (False)
End Sub
Bonjour Il faut utiliser un Userform pour ça parce qu'avec un Msgbox tu n'as que des choix limités dans les intitulés de boutons (OK, Annuler, Réessayer, Ignorer). Sinon, pour ce qui conserne le code : - Pour sauvegarder le classeur actif et le fermer (puis fermer Excel ?) ActiveWorkbook.Close(True) Application.Quit - Pour atteindre la première cellule vide de la colonne A Range("A65536").end(xlup)(2).select Attention toutefois à définir quelle feuille est active.
Cordialement Pascal
"Daniel" a écrit dans le message de news:C0QZd.79088$
J'ai envoyer ce message il y a deux jour et je ne le voie pas , ou est t'il passer?
Bonsoir à Tous Comment faire pour avoir un 2 choix dans ma boite message. 1 Premier bouton OK = pour sauve garder quitter 2 Deuxième bouton Ajouter une Date = aller 1 cellule en bas de la dernière cellule qui n'est pas vide dans collonne A
Merci
Sub anniversaire() 'envoie un message à l'ouverture de Excel Set feuil = ThisWorkbook.Sheets(1) demi = feuil.Range("durée") / 2 For lin = 1 To feuil.Cells.SpecialCells(xlCellTypeLastCell).Row Set cel = feuil.Cells(lin, 1) If IsDate(cel) Then If Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " & Year(Now))) < demi _ Or Abs(Now - 1 + demi - DateValue(Day(cel) & " " & Month(cel) & " " & Year(Now) + 1)) < demi Then blabla = blabla & Chr(13) & Chr(13) & Format(feuil.Cells(lin, 1), " dd mmm") & " = " & feuil.Cells(lin, 2) & " " & feuil.Cells(lin, 3) & " " &
feuil.Cells(lin, 5) & " " & feuil.Cells(lin, 6) End If End If Next If blabla <> "" Then MsgBox "Anniversaire de " & (blabla) ThisWorkbook.Close SaveChanges:úlse If ThisWorkbook.Name = "anniversaires.xla" Then ThisWorkbook.Close (False) End Sub
