Liste validation si clic sur cellules colonne H...

C

Christian0258

XLDnaute Accro

• 5 Juin 2017

• #16

Re, le forum, DoubleZero,

Merci, DoubleZero pour tout le boulot que tu m'as fait.

Dis-moi, dans l'ancien calendrier, il y avait une case positionnée sur 1, mais ou j'avais la possibilité de taper le nombre de fois ou il fallait dupliquer la date choisie, afin de ne pas avoir à refaire x fois la manoeuvre...peut-tu me dire si c'est faisable sur ton calendrier...

Bien à toi.
Encore merci,
Christian

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 5 Juin 2017

• #17

Re-bonjour,

Le calendrier est remplacé car je n'ai pas su comment adapter l'initial. Je vais tenter, à nouveau...

A bientôt

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 5 Juin 2017

• #18

Re-bonjour,

Dans l'onglet "Saisies", remplacer le code par celui-ci :

VB:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    If c.Column = 8 And c.Row > 1 And c = "" And IsDate(c.Offset(, -3)) Then c.Name = "ici": Sheets("Base").Activate
    If c.Column = 5 Then Set Cel = c: Calendrier1.Show
    Cancel = True
End Sub

Est-ce correct ?

A bientôt

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 5 Juin 2017

• #19

Re, le forum, DoubleZero,

J'ai placé ton nouveau code, mais ça plante sur : Cel

If c.Column = 5 Then Set Cel = c: Calendrier1.Show

message "Variable non définie"...

Merci pour ton aide, bien à toi.
Christian

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 5 Juin 2017

• #20

Re-bonjour,

Christian0258 à dit:

... ça plante sur : Cel...

Cliquez pour agrandir...

C'est curieux ! Cf. le fichier joint.

A bientôt

 

Pièces jointes

• 00 - Christian0258 - Valeurs importer v3.xlsm

  47.2 KB · Affichages: 33

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 5 Juin 2017

• #21

Re, le forum, DoubleZero,

Ok, DoubleZero, c'est bon...

Merci infiniment pour ton aide.

Bien à toi.
Christian

 

Vote positif 0 Vote négatif