Code pour une boite de dialogue.

Pierrot93

XLDnaute Barbatruc

• 25 Mai 2011

• #2

Re : Code pour une boite de dialogue.

Bonjour,

pas grand chose dans ton fichier... regarde ceci si cela peut t'aider à avancer... A utiliser dans le module de l'usf, à associer éventuellement à un bouton.. A voir selon ton projet.

Code:

Sheets("Feuil2").Range("A65536").End(xlUp)(2).Value = Calendar1.Value

bonne journée
@+

 

Vote positif 0 Vote négatif

M

Margal

XLDnaute Nouveau

• 25 Mai 2011

• #3

Re : Code pour une boite de dialogue.

Merci beaucoup,
ok pour le calendrier.
Et si je veux incrémenter à côté de la date la zone cochée ? (si ok = 0 et not ok = 1)

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Mai 2011

• #4

Re : Code pour une boite de dialogue.

Re,

Code:

Sheets("Feuil2").Range("B65536").End(xlUp)(2).Value = IIf(CheckBox3, 0, 1)

 

Vote positif 0 Vote négatif

M

Margal

XLDnaute Nouveau

• 25 Mai 2011

• #5

Re : Code pour une boite de dialogue.

Merci encore une fois.
J'ai amélioré le fichier ci joit.
Comment résoudre le problème des doublons.
Si je valide plusieurs fois sur la même date, les données s'incrémentent.
Comment afficher un message d'alerte (date déjà incrémentée, Revalidation ) ?
Si revalidation, la ligne est écrasée par les nouvelles données.

Merci d'avance

 

Pièces jointes

• TOTO.xls

  104.5 KB · Affichages: 52
• TOTO.xls

  104.5 KB · Affichages: 55
• TOTO.xls

  104.5 KB · Affichages: 52

Vote positif 0 Vote négatif