Erreur 400 Macro Excel 2003 incrémentation suivant 2 conditions

Résolu
sid25 Messages postés 2 Date d'inscription mercredi 22 juillet 2009 Statut Membre Dernière intervention 22 juillet 2009 - 22 juil. 2009 à 11:14
sid25 Messages postés 2 Date d'inscription mercredi 22 juillet 2009 Statut Membre Dernière intervention 22 juillet 2009 - 22 juil. 2009 à 13:10
Bonjour,

J'ai créé une macro pour incrémenter dans les lignes de la colonne A des entier suivant deux conditions.

Pb quand j'excecute ma macro depuis (outils/macro/macro.../excecuter) il me trouve une erreur 400

Merci

Ci joint mon code :

Sub NumFiche()
 
Dim i As Integer
Dim NbLignesTab As Integer
Dim NumFiche As Integer
 
NumFiche = 1
NbLignesTab = ActiveSheet.UsedRange.Rows.Count
Cells(2, A) = NumFiche
 
For i = 3 To NbLignesTab
 If Cells(i, F) Cells(i - 1, F) And Cells(i, P) Cells(i - 1, P) Then
     Cells(i, A) = NumFiche
 Else
    NumFiche = NumFiche + 1
 End If
 
Next i
 
End Sub

2 réponses

linasteph Messages postés 153 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 22 juillet 2009 1
22 juil. 2009 à 12:35
Salut,

vérifie le format de Cells dans l'aide excel
par ex Cells(2, A) plante --> facile de déterminer pq.
Remplace Cells(2,1) est normalement cela doit fonctionner

Cells(RowIndex, ColumnIndex) --> Index est un nombre

@+
Steph
3
sid25 Messages postés 2 Date d'inscription mercredi 22 juillet 2009 Statut Membre Dernière intervention 22 juillet 2009
22 juil. 2009 à 13:10
Merci ca marche!!

J'ai aussi changé le mon de ma procédure qui était le même qu'une de mes variables!
0
Rejoignez-nous