1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Erreur 400 Macro Excel 2003 incrémentation suivant 2 conditions [Résolu]

Signaler
Messages postés
2
Date d'inscription
mercredi 22 juillet 2009
Statut
Membre
Dernière intervention
22 juillet 2009
 -
Messages postés
2
Date d'inscription
mercredi 22 juillet 2009
Statut
Membre
Dernière intervention
22 juillet 2009
 -
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

Réponse 1 / 2
Messages postés
153
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
22 juillet 2009
 1
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
Réponse 2 / 2
Messages postés
2
Date d'inscription
mercredi 22 juillet 2009
Statut
Membre
Dernière intervention
22 juillet 2009
Merci ca marche!!

J'ai aussi changé le mon de ma procédure qui était le même qu'une de mes variables!
Répondre Posez votre question