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 :
l'erreur se situe à la ligne
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
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 lignel'erreur se situe à la ligne
Code:
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetweenet 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
Dernière édition: