alerte + validation message (post it )

arnaoke · 20 Juillet 2011

Bonjour le forum,

lorsque j'essaie de mettre un message du type données/validation, j'obtiens une erreur de type 1004, c'est une opération que j'ai déja réaliser nombre de fois sans soucis ...

aussi je tente ma chance avec vous, voici le code :

Code:

For ligne = 9 To ActiveSheet.Range("C8").End(xlDown).Row
    '@@@@@@ Janvier @@@@@@
    'date réception facture/avoir definitive producteur
    If ActiveSheet.Range("AB" & ligne).Value = "" Then
        dateCalcul = DateSerial(Year("3/01/2011"), Month("3/01/2011") + 1, 0) + 90 'dateCalcul reçoit dernier jour du mois en paramèters + 90j
        'msgbox dateCalcul
        If dateCalcul < Date Then
            ActiveSheet.Range("AB" & ligne).Interior.ColorIndex = 3 'coloration warning
            With Cells(ligne, 28).Validation
                .Delete
                .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
                :=xlBetween
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = "Attention"
                .ErrorTitle = ""
                .InputMessage = "Relance ?"
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
            End With
        Else
        End If
    End If
Next ligne

l'erreur se situe à la ligne

Code:

.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
                :=xlBetween

et je ne vois absolument pas la raison ... les cellules de la colonnes AB sont intactes (aucun formatages, rien de particulier) ...

Aussi je réclame votre aide !!

merci de m'avoir lut,

Arnaoke

Victor21 · 20 Juillet 2011

Re : alerte + validation message (post it )

Bonjour, arnaoke.

Peux-tu expliciter cette ligne :

For ligne = 9 To ActiveSheet.Range("C8").End(xlDown).Row

arnaoke · 20 Juillet 2011

Re : alerte + validation message (post it )

c'est une boucle de parcours du tableau, celle-ci va me permettre de commencer à la ligne 9, jusqu'a la dernière ligne non vide de la colonne C

Victor21 · 20 Juillet 2011

Re : alerte + validation message (post it )

Re,

De ce que je comprends, il semblerait d'après l'aide que les arguments Formula1 et formula2 ne soient pas facultatifs en cas de xlBetween.

VB:

With Selection.Validation
        .Delete
        .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="1/1/2011", Formula2:="12/31/2011"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Attention"
        .ErrorTitle = ""
        .InputMessage = "Relance ?"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

arnaoke · 20 Juillet 2011

Re : alerte + validation message (post it )

hhmmmm

vraiment étrange, c'est une formule que je copie/colle systématiquement et qui ne m'a jamais posé aucun pb ... je trifouille ça, mais je ne pense pas que le problème soit de ce coté là !

[Edit] : je confirme, je viens de mettre les "formulaX" et même erreur :/

Victor21 · 20 Juillet 2011

Re : alerte + validation message (post it )

Re,

Un bout de fichier, purgé de toute donnée confidentielle, mais conservant sa structure, et reproduisant l'erreur ne serait pas superflu : Toi, tu connais ton fichier. Nous, non...

arnaoke · 20 Juillet 2011

Re : alerte + validation message (post it )

j'essai de voir ça, mais le fichier purgé fait 600 ko (limité a moins de 300ko) donc ça va etre tendax .

alerte + validation message (post it )

arnaoke

XLDnaute Occasionnel

Victor21

XLDnaute Barbatruc

arnaoke

XLDnaute Occasionnel

Victor21

XLDnaute Barbatruc

arnaoke

XLDnaute Occasionnel

Victor21

XLDnaute Barbatruc

arnaoke

XLDnaute Occasionnel

Discussions similaires