Inputbox et condition SI

[troopers87]

Bonjour,

j'ai besoin d'une petite correction au niveau de l'inputbox ci-jointe (je ne rajoute pas de fichier, je ne pense pas qu'il y en ai besoin) ; voici la démarche :

lorsque la macro MAJ se lance une inputbox s'ouvre avec un texte :
- si l'utilisateur clique sur Ok, alors le contenu est inséré dans la cellule N8 ;
- si l'utilisateur clique sur Annuler, alors le contenu de la cellule N8 n'est pas modifié (il ne se passe rien).

Voici le code auquel je suis parvenu aujourd'hui :

Sub MAJ()

'macro de sauvegarde de la dernière modification
Sheets("feuille 1").Select
Dim DATE_MAJ As Variant
DATE_MAJ = InputBox("Quelle est la dernière modification que vous avez pris en compte dans ce fichier ?" & vbCrLf & " " & vbCrLf & "La prochaine fois que vous comptabiliserez des mouvements sur vos comptes, vous retrouverez cette information dans la feuille 1.", "Sauvegarde")
If DATE_MAJ = 1 Then Range("N8").Value = DATE_MAJ

End Sub

Actuellement, lorsque la macro MAJ se lance :
- la feuille 1 est bien sélectionnée ;
- l'inputbox apparaît bien ;
- mais le contenu de l'inputbox n'est pas inséré dans la cellule N8

Merci d'avance pour votre aide précieuse !

 

[Yaloo]

Re : Inputbox et condition SI

Bonjour troopers, le forum,

En modifiant comme ceci :

Sub MAJ()

 'macro de sauvegarde de la dernière modification
 Sheets("feuille 1").Select
 Dim DATE_MAJ As Variant
 DATE_MAJ = InputBox("Quelle est la dernière modification que vous avez pris en compte dans ce fichier ?" & vbCrLf & " " & vbCrLf & "La prochaine fois que vous comptabiliserez des mouvements sur vos comptes, vous retrouverez cette information dans la feuille 1.", "Sauvegarde")
 If DATE_MAJ <> "" Then Range("N8").Value = DATE_MAJ

 End Sub

A+

Martial

 

[troopers87]

Re : Inputbox et condition SI

Ah merci ça fonctionne parfaitement !

Pourrais-tu m'expliquer pourquoi je ne peux pas utiliser le DATE _MAJ = 1 qui est censé vouloir dire : je clique sur OK.

Que signifie le <> "" ?

Enfin, est-il possible d'éviter de sélectionner la feuille 1, par exemple : être dans la feuille 2 et modifier quand même la cellule N8 de la feuille 1 genre :

"feuille 1".range("N8").value = DATE_MAJ

 

[Yaloo]

Re : Inputbox et condition SI

Re,

Si tu mets =1 , cela veut que ta réponse doit être égale à 1.

Alors que si tu mets <>"" , cela veut dire que ta réponse doit être différente de rien.

Pour la deuxième question,

Sheets("feuille 1").Range("N8").Value = DATE_MAJ

A+

Martial

 

[troopers87]

Re : Inputbox et condition SI

Merci beaucoup, c'est génial ! 🙂