Discussion :

[goldfinger13]

bonsoir à tous
je travaillais jusqu’à présent avec excel 2003 et je viens de passer sur 2010 et je rencontre quelques difficultés sur 2010.
Ce bout de code fonctionnait jusqu’à présent et là sous 2010 j'ai une erreur d’exécution type 1004 erreur définie par l'action ou par l'objet.
quelqu'un peut-il m'aider à résoudre le problème?
merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub acces_prives()
Dim mini As String
Dim maxi As String
Dim dernligne As Long
mini = UserForm1.ComboBox1.Value
maxi = UserForm1.ComboBox2.Value
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
dernligne = Range("A65536").End(xlUp).Offset(1, 0)

Sheets("PDI").Range("AS1").Value = "analyse longueur voie privée"

With Sheets("PDI").Range("AS2:AS" & dernligne)  'erreur sur cette ligne
   .FormulaR1C1 = _
        "=IF(AND(RC[-9]>=" & mini & ",RC[-9]<= " & maxi & "),""A vérifier en priorité"",""  "")"
.Value = .Value
End With
............

[kiki29]

Salut, que contient dernligne = Range("A65536").End(xlUp).Offset(1, 0)

Rajouter un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print dernligne = Range("A65536").End(xlUp).Offset(1, 0)

et voir dans la fenêtre Exécution ( Ctrl G ) la valeur renvoyée