J'ai plusieurs cellules de date. Est-ce possible de lui inscrire une seule
macro pour lui inscrire la date du jour en lui sélectionnant la cellule.
Comme avec:
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
Quand l'inerlocuteur clique sur le bouton pour la date, j'aimerais qu'il lui
demande de choisir la cellule pour inscrire la date du jour et ensuite
cliquer sur "ok" ou peut-être encore mieux, dès qu'il clique la cellule,
d'exécuter cette macro.
Ma macro pour inscrire la date du jours est la suivante:
_____________________________________________________________
Sub Date1()
Range("C23").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("C23").Select
Selection.Copy
Range("C23").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False
Range("C24").Select
End Sub
_____________________________________________________________
J'utilise quant même la "Date Picker", ça faisait 2 ans que je cherchais cet espèce de calendrier interactif.
Je vais probablement mettre les deux dans le fichier.
Un gros merci à tous.
"SL" a écrit dans le message de news:
Bonsoir J'ai l'impression que tu ne lit pas ce que j'écris (ou que tu n'essais pas ou comprend rien ??)
Range("B.ValueÚte").Select B est un RANGE donc B.ValueÚte suffit
tout le reste est INUTILE !!!
Sub Date4() On Error Resume Next Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8) B.ValueÚte End Sub
Voir un exemple ici : http://cjoint.com/?kdvCxEetul
Tu peux même sélectionner plusieurs cellules (avec CTRL, MAJ...)
Stéphane
"Érico" a écrit dans le message de news: %
Il y a rien qui fonctionne!!!!
Sub Date4()
On Error Resume Next Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8) If Err <> 0 Then Err = 0 Exit Sub Range("B.ValueÚte").Select ActiveCell.FormulaR1C1 = "=TODAY()" Range("B.ValueÚte").Select Selection.Copy Range("B.ValueÚte").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Application.CutCopyMode = False End Sub ___________________________ "SL" a écrit dans le message de news:
Pour ne pas chercher le bouton, puisque la page peut dépasser l'écran.
Voici ce que j'ai faite et ça ne fonctionne pas, pourquoi?
__________________________ Sub Date4()
On Error Resume Next Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8) If Err <> 0 Then Err = 0 Exit Sub Range("b").Select ActiveCell.FormulaR1C1 = "=TODAY()" Range("b").Select Selection.Copy Range("b").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Application.CutCopyMode = False End Sub ________________________ "SL" a écrit dans le message de news: %231PYu%
quelque chose du genre :
tu crées un bouton et dans le code tu écris : Range(InputBox("quelle adresse")) = Date puis gère les erreurs
si l'utilisateur tape B10, la date du jour s'inscrira en B10
pourquoi 30 boutons ?
Stéphane
"Érico" a écrit dans le message de news:
Je pense que tu n'as pas compris:
Je veux mettre un bouton sur plusieurs cellules (une trentaine) qui vont tous appliquer la même macro. Peux importe la cellule, la personne clique sur le bouton et une fenêtre apparait pour lui demander la cellule à choisir pour inscrire la date du jour, et dès qu'il a choisit la cellule, la macro s'exécute ou bien, il doit cliquer dans la même fenêtre "ok" ou "oui".
Merci.
"SL" a écrit dans le message de news:
Bonjour
essaie Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1,B3")) Is Nothing Then Target = Format(InputBox("date", , Date), "mm/d/yyyy") End If End Sub
par défaut il propose la date du jour. Possibilité de changer.
Stéphane
"Érico" a écrit dans le message de news: %
J'aime mieux avec une fenêtre, ce serais plus sécuritaire, est-ce possible?
"SL" a écrit dans le message de news:
Bonjour
pour inscrire la date du jour en double-cliquant dans une cellule (A1 et B3 en l'occurence) :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1,B3")) Is Nothing Then Target = Date Cancel = True End If End Sub
Stéphane "Érico" a écrit dans le message de news: OV$
J'ai plusieurs cellules de date. Est-ce possible de lui inscrire une seule macro pour lui inscrire la date du jour en lui sélectionnant la cellule.
Comme avec:
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
Quand l'inerlocuteur clique sur le bouton pour la date, j'aimerais qu'il lui demande de choisir la cellule pour inscrire la date du jour et ensuite cliquer sur "ok" ou peut-être encore mieux, dès qu'il clique la cellule, d'exécuter cette macro.
Ma macro pour inscrire la date du jours est la suivante: _____________________________________________________________ Sub Date1() Range("C23").Select ActiveCell.FormulaR1C1 = "=TODAY()" Range("C23").Select Selection.Copy Range("C23").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Application.CutCopyMode = False Range("C24").Select End Sub _____________________________________________________________
Merci de votre aide. Érico de montréal
Enfin!!!! Ça fonctionne!!!!!!!!
J'utilise quant même la "Date Picker", ça faisait 2 ans que je cherchais cet
espèce de calendrier interactif.
Je vais probablement mettre les deux dans le fichier.
Un gros merci à tous.
"SL" <nospam_sl69@laposte.net> a écrit dans le message de news:
erj0SCFyFHA.2644@TK2MSFTNGP09.phx.gbl...
Bonsoir
J'ai l'impression que tu ne lit pas ce que j'écris (ou que tu n'essais pas
ou comprend rien ??)
Range("B.ValueÚte").Select
B est un RANGE donc B.ValueÚte suffit
tout le reste est INUTILE !!!
Sub Date4()
On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
B.ValueÚte
End Sub
Voir un exemple ici :
http://cjoint.com/?kdvCxEetul
Tu peux même sélectionner plusieurs cellules (avec CTRL, MAJ...)
Stéphane
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
%23x2styDyFHA.900@TK2MSFTNGP11.phx.gbl...
Il y a rien qui fonctionne!!!!
Sub Date4()
On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Range("B.ValueÚte").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B.ValueÚte").Select
Selection.Copy
Range("B.ValueÚte").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False
End Sub
___________________________
"SL" <nospam_sl69@laposte.net> a écrit dans le message de news:
uApqeWDyFHA.2924@TK2MSFTNGP15.phx.gbl...
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
eqJnXDDyFHA.1168@TK2MSFTNGP10.phx.gbl...
Pour ne pas chercher le bouton, puisque la page peut dépasser l'écran.
Voici ce que j'ai faite et ça ne fonctionne pas, pourquoi?
__________________________
Sub Date4()
On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.",
Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Range("b").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("b").Select
Selection.Copy
Range("b").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False
End Sub
________________________
"SL" <nospam_sl69@laposte.net> a écrit dans le message de news:
%231PYu%23CyFHA.2652@TK2MSFTNGP14.phx.gbl...
quelque chose du genre :
tu crées un bouton et dans le code tu écris :
Range(InputBox("quelle adresse")) = Date
puis gère les erreurs
si l'utilisateur tape B10, la date du jour s'inscrira en B10
pourquoi 30 boutons ?
Stéphane
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uttww0CyFHA.2064@TK2MSFTNGP09.phx.gbl...
Je pense que tu n'as pas compris:
Je veux mettre un bouton sur plusieurs cellules (une trentaine) qui
vont tous appliquer la même macro.
Peux importe la cellule, la personne clique sur le bouton et une
fenêtre apparait pour lui demander la cellule à choisir pour inscrire
la date du jour, et dès qu'il a choisit la cellule, la macro
s'exécute ou bien, il doit cliquer dans la même fenêtre "ok" ou
"oui".
Merci.
"SL" <nospam_sl69@laposte.net> a écrit dans le message de news:
uOTG5rCyFHA.3772@TK2MSFTNGP11.phx.gbl...
Bonjour
essaie
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1,B3")) Is Nothing Then
Target = Format(InputBox("date", , Date), "mm/d/yyyy")
End If
End Sub
par défaut il propose la date du jour. Possibilité de changer.
Stéphane
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
%235TfYhCyFHA.700@TK2MSFTNGP11.phx.gbl...
J'aime mieux avec une fenêtre, ce serais plus sécuritaire, est-ce
possible?
"SL" <nospam_sl69@laposte.net> a écrit dans le message de news:
emqKzaCyFHA.612@TK2MSFTNGP10.phx.gbl...
Bonjour
pour inscrire la date du jour en double-cliquant dans une cellule
(A1 et B3 en l'occurence) :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,
Cancel As Boolean)
If Not Intersect(Target, Range("A1,B3")) Is Nothing Then
Target = Date
Cancel = True
End If
End Sub
Stéphane
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
OV$EmQCyFHA.908@tk2msftngp13.phx.gbl...
J'ai plusieurs cellules de date. Est-ce possible de lui inscrire
une seule macro pour lui inscrire la date du jour en lui
sélectionnant la cellule.
Comme avec:
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.",
Type:=8)
Quand l'inerlocuteur clique sur le bouton pour la date,
j'aimerais qu'il lui demande de choisir la cellule pour inscrire
la date du jour et ensuite cliquer sur "ok" ou peut-être encore
mieux, dès qu'il clique la cellule, d'exécuter cette macro.
Ma macro pour inscrire la date du jours est la suivante:
_____________________________________________________________
Sub Date1()
Range("C23").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("C23").Select
Selection.Copy
Range("C23").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False
Range("C24").Select
End Sub
_____________________________________________________________
J'utilise quant même la "Date Picker", ça faisait 2 ans que je cherchais cet espèce de calendrier interactif.
Je vais probablement mettre les deux dans le fichier.
Un gros merci à tous.
"SL" a écrit dans le message de news:
Bonsoir J'ai l'impression que tu ne lit pas ce que j'écris (ou que tu n'essais pas ou comprend rien ??)
Range("B.ValueÚte").Select B est un RANGE donc B.ValueÚte suffit
tout le reste est INUTILE !!!
Sub Date4() On Error Resume Next Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8) B.ValueÚte End Sub
Voir un exemple ici : http://cjoint.com/?kdvCxEetul
Tu peux même sélectionner plusieurs cellules (avec CTRL, MAJ...)
Stéphane
"Érico" a écrit dans le message de news: %
Il y a rien qui fonctionne!!!!
Sub Date4()
On Error Resume Next Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8) If Err <> 0 Then Err = 0 Exit Sub Range("B.ValueÚte").Select ActiveCell.FormulaR1C1 = "=TODAY()" Range("B.ValueÚte").Select Selection.Copy Range("B.ValueÚte").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Application.CutCopyMode = False End Sub ___________________________ "SL" a écrit dans le message de news:
Pour ne pas chercher le bouton, puisque la page peut dépasser l'écran.
Voici ce que j'ai faite et ça ne fonctionne pas, pourquoi?
__________________________ Sub Date4()
On Error Resume Next Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8) If Err <> 0 Then Err = 0 Exit Sub Range("b").Select ActiveCell.FormulaR1C1 = "=TODAY()" Range("b").Select Selection.Copy Range("b").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Application.CutCopyMode = False End Sub ________________________ "SL" a écrit dans le message de news: %231PYu%
quelque chose du genre :
tu crées un bouton et dans le code tu écris : Range(InputBox("quelle adresse")) = Date puis gère les erreurs
si l'utilisateur tape B10, la date du jour s'inscrira en B10
pourquoi 30 boutons ?
Stéphane
"Érico" a écrit dans le message de news:
Je pense que tu n'as pas compris:
Je veux mettre un bouton sur plusieurs cellules (une trentaine) qui vont tous appliquer la même macro. Peux importe la cellule, la personne clique sur le bouton et une fenêtre apparait pour lui demander la cellule à choisir pour inscrire la date du jour, et dès qu'il a choisit la cellule, la macro s'exécute ou bien, il doit cliquer dans la même fenêtre "ok" ou "oui".
Merci.
"SL" a écrit dans le message de news:
Bonjour
essaie Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1,B3")) Is Nothing Then Target = Format(InputBox("date", , Date), "mm/d/yyyy") End If End Sub
par défaut il propose la date du jour. Possibilité de changer.
Stéphane
"Érico" a écrit dans le message de news: %
J'aime mieux avec une fenêtre, ce serais plus sécuritaire, est-ce possible?
"SL" a écrit dans le message de news:
Bonjour
pour inscrire la date du jour en double-cliquant dans une cellule (A1 et B3 en l'occurence) :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1,B3")) Is Nothing Then Target = Date Cancel = True End If End Sub
Stéphane "Érico" a écrit dans le message de news: OV$
J'ai plusieurs cellules de date. Est-ce possible de lui inscrire une seule macro pour lui inscrire la date du jour en lui sélectionnant la cellule.
Comme avec:
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
Quand l'inerlocuteur clique sur le bouton pour la date, j'aimerais qu'il lui demande de choisir la cellule pour inscrire la date du jour et ensuite cliquer sur "ok" ou peut-être encore mieux, dès qu'il clique la cellule, d'exécuter cette macro.
Ma macro pour inscrire la date du jours est la suivante: _____________________________________________________________ Sub Date1() Range("C23").Select ActiveCell.FormulaR1C1 = "=TODAY()" Range("C23").Select Selection.Copy Range("C23").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Application.CutCopyMode = False Range("C24").Select End Sub _____________________________________________________________
