saisir des données a partir d'une boite de dialogue

[jacques]

je voudrais une macro me permettant de saisir depuis la page d'acceuil sur la page concernée( "CA") le chiffre d'affaire en sachant que dans le tableau la date est déja renseignée

ex :

01/11/03 1000 €
02/11/03 1500€

la cellule sélectionnée doit être pour le premier du mois la cellule C14 puis pour le 2 la C15 etc...........jusqu'à la C44


il me faudrait aussi une macro quasi identique mais avec deux valeurs à renseigner sur la même date à savoir "CARTE LS" et "MO"

merci de votre aide a tous

et longue vie à ce magnifique site

jack

 

[Jeannot45]

Bonjour,

Voici un petit code qui va te permettre de répondre à la première partie de ta question.

Tu places celui-ci sur un bouton

Private Sub SaisirCa_Click()
Dim CaSaisi As Variant
Dim JourEnCours As Byte

CaSaisi = InputBox("Saisir le Ca du Jour")

' Récupère le JOur de la date en cours
JourEnCours = Day(Date)

Sheets("CA").Select
ActiveSheet.Range("C13").Activate
'Décale la cellule active d'un nombre de lignes égale au jour de la date en cours
ActiveCell.Offset(JourEnCours, 0) = CaSaisi

End Sub

Quant à la deuxième partie de ta question, puisque le problème est "quasi identique", à toi d'adapter ce qu'il y a ci dessus

Je reste à l'écoute en cas de difficultés.

A+

Jeannot

 

[JACK]

SALUT ET MERCI POUR CE DEBUT DE REPONSE MAIS AYANT MAL FORMULE LA QUESTION
LA REPONSE N'EST PAS COMPLETE

J'AI RENVOYE UNE AUTRE FORMULATION LE 29/11/03 A 20H005

J'ESPERE AVOIR PLUS CLAIR CETTE FOIS CI

MERCI POUR TOUT

A PLUS TCHAO BON WEEK END