scusi, encore un souci. Commen t accéder à la valeur d'une cellule.
Actuellement j'ai le code suivant
Code :
- Sub MiseAZero()
- Dim iDerniereLigne, iDernièreColonne, iLigne, iColonne As Integer
- iDerniereLigne = ActiveSheet.UsedRange.Rows.Count
- iDernièreColonne = ActiveSheet.UsedRange.Columns.Count
- iLigne = 2
- For iColonne = 3 To iDernièreColonne Step 1
- If (Cells(iLigne, iColonne).Value <> 0) Then
- Cells(iLigne, iColonne).Value = 0
- End If
- Next
- End Sub
|
Mais j'ai une erreur d'exécution 13 Type incompatible. sur la ligne
Code :
- If (Cells(iLigne, iColonne).Value <> 0) Then
|
.
Peut-être faut-il préciser quelque chose avant "Cell"...Je rappelle que la cellule visée appartient à un classeur différent de celui d'où le code est exécuté.
Si vous avez besoin que je sois plus clair, n'hésitez pas.
Merci.
Message édité par Skarn le 30-05-2006 à 15:29:23