Affectation de la valeur d'une cellule

Bonjour,

je ne comprends pas pourquoi j'ai une incimpatibilité de type (erreur 13) quand je lance cette macro :

For i = 1 To 8920
j = Range("I" & i).Value 'il s'agit d'un nombre entier
Rows(i).Columns(j).Select
ActiveCell.FormulaR1C1 = "1"
Next

quelqu'un peut il m'aider?

Merci
Configuration: Windows XP Internet Explorer 6.0

1 réponse

  • Votes
  • Date
  • Date décroissante
  1. Bonjour,

    Quel est le type de la variable J ?

    On peut faire comme ça : Rows(i).Columns(CInt(j)).Select