InputBox

Bonjour à tous,

Mon souhait c'est de pouvoir manipuler confortablement Ecel.

Je voudrai savoir si dans ma macro ci-joint, je peux rajouter une ligne pour InBox dédié à une cellule en entrant une date par exemple en cellule "J4" sans passer par la cellule dela page.

Sub Ajout_feuil()

'

' Ajout_feuil Macro

' Macro enregistrée le 27/04/2010 par Utilisateur de la version d'évaluation de Office 2004

MsgBox (" Le 1er jour du mois est obligatoire pour créer une nouvelle feuille")

If MsgBox("Aviez vous pensé à entrer le 1er jour du Mois, si vous n'avez pa entré la date cliquez sur ANNULER", vbOK, "ATTENTION...") = vbOK Then

Ici

au lieu de poser la question qu'on me donne directement la possibilité de saisir la date

Range("J4").Copy

With Sheets("PLANNING")

.Range("A3").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

End With

Application.CutCopyMode = False

ou Ici

Range("J4") = "Entrez le 1er Jour du Mois"

Sheets("Planning").Visible = True

Sheets("Planning").Select

Sheets("Planning").Copy Before:=Sheets(2)

ActiveSheet.Name = Range("A4")

Sheets("Planning").Visible = False

Range("J4").Select

Else

Range("g4").Select

End If

End Sub

Merci d'avance

Amicalement

Noel

Bonjour

Essaie ceci :

Dim Message As String, Title As String
Dim d As Date
Message = "Entrez votre date"
Title = "Date"
d = Application.InputBox(Message, Title, Type:=1)
If vbYes = True Then Range("J4") = d

La variable "d" reprendra la date que tu as mise dans l'inputbox et la mettra en J4.

Amicalement

Re,

Bonjour DAN,

J'ai essayé ça marche mais n'inscrit pas la date en J4.

Où dois-je ajouter la macro que u m'as envoyé par rapport à ma macro de départ "Sub Ajout_feuil()".

Merci d'avance

Amicalement

Noel

re,

essaie en le mettant au premier "ici" que tu as mentionné dans ta demande.

Amicalement

Bonjour à tous,

Bonjour DAN,

C'est ce que j'ai fait avant que tu me le demande. La logique voulait que je l'installe au début de ma macro.

Mais même avant de l'installer j'ai crée une macro avec ce bout sans l'installer dans ma macro. Ca marche jusqu'à la BOX pour entrer la date mais le reste ne fonctionne pas parce qu'il ne me recopie pas la date dans aucune cellule.

Je ne sais pas trouver où est l'erreur.

Comptant sur ton aide

Amicalement

Noel

Bonjour Noel, forum,

essaye

Sub Ajout_feuil()
Dim Message As String, d As String
Message = "Entrez votre date"
d = Application.InputBox(Message, "Date", Type:=1)
If d = False Then Exit Sub
If d = True Then Range("J4") = d
'--- suite macro ---
End Sub

çà fonctionne chez moi

tu peux même entrer 18 mai (par exemple)

Bonne journée

Claude

édit: revu code pour gérer le bouton "Annuler"

excuse !

Re,

Bonjour Claude,

Je te remercie c'est bon mais qu'est ce qui a été changé?

J'ai pu constaté que tu as apporté quelques modifs

Dans ce même cadre comment pourra t-on faire entrer du texte à la place de la date.

ou avoir la possibilité e faire entre du numérique, alphanumérique ou autrres.

Merci d'avance

Amicalement

Noel

Re,

Noel tes explications ne sont pas claires...

Dans ton inputbox tu y mets ce que tu veux Date ou texte. Ce que tu y mettras ira dans la cellule de ton choix (ici J4)

Si tu veux autre chose, mets un fichier ou donne plus d'explications

Re,

Bonjour DAN,

Je m'excuse de ne pas être assez explicite.

Le bout de code que tu m'as fourni et celui de Claude, si je rentre une date c'est bon mais si je rentre un texteil n'accepte pas il me signale "nombre non valide". Pour moi cela voudrait dire simplement que la cellule du BOX n'accepte pas les textes.

Merci de ta compréhension

Amicalement

Noel

Re,

Remplace :

Dim as date par --> Dim d As string

et dans l'instruction Inputbox

Type:=1 par Type:=2

Bonjour à tous

Bonjour Dan,

J'espère que tous les forumeurs ont passés d'agréables fêtes du travail.

Voici le code pour un ajout de texte, mais j'ai un souci c'est que le texte entré dans la boite n'apparaît pas dans la cellule désignée.

J'ai du manquer quelque chose.

Pourras-tu m'aider.

Sub Ajout_Texte()

Dim Message As String, Title As String

Dim d As String

Message = "Entrez message"

Title = "NOM - Prénoms"

d = Application.InputBox(Message, Title, Type:=2)

If vbYes = True Then Range("d10") = d

End Sub

Avec mes remerciements anticipés

Amicalement

Noel

-- Lun Mai 03, 2010 3:04 pm --

Re,

Jusqu'à maintenant je n'ai pas eu de réponse sur cette question.

Peut-être que DAN n'est pas disponible, si quelqu'un voulait m'apporter son soutien je suis preneur.

Merci d'avance

@+

Amicalement

Noel

Re,

Essaie ceci :

Sub Ajout_Texte()
'Macro Dan le 03/05/2010
Dim Message As String, Title As String
Dim d As String
Message = "Entrez message"
Title = "NOM - Prénoms"
d = InputBox(Message, Title)
If d = "" Then
Exit Sub
Else: Range("d10") = d
End If
End Sub

Amicalement

Re,

Merci Dan de ta réponse très rapide.

Ca marche impeccable. Comme cela je peux continuer mon projet

Merci encore

@+

Amicalement

Noel