Discussion :

[MamaB]

Bonjour,
J'ai un petit problème avec un range.select

Code :

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

1
2
3
4
                        'Worksheets("Matrice").Range("S" & therow).Select
                        ActiveWorkbook.Sheets("Matrice").Cells(therow, 19).Select
                        ActiveCell.FormulaR1C1 = _
                        "=IF(AND((RC[-3]*RC[-2]*RC[-1])>=1,(RC[-3]*RC[-2]*RC[-1])<=19),""Low"",IF(AND((RC[-3]*RC[-2]*RC[-1])>=20,(RC[-3]*RC[-2]*RC[-1])<=34),""Medium"",IF(AND((RC[-3]*RC[-2]*RC[-1])>=35,(RC[-3]*RC[-2]*RC[-1])<=49),""High"",IF(AND((RC[-3]*RC[-2]*RC[-1])>=50,(RC[-3]*RC[-2]*RC[-1])<=64),""High"",""""))))"

Si j'utilise

Code :

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

Worksheets("Matrice").Range("S" & therow).Select ou ActiveWorkbook.Sheets("Matrice").Cells(therow, 19).Select

il m'affiche le message suivant:

La méthode select de la classe Range a échoué.

Quelqu'un peut me donner une solution pour résoudre mon problème.
je vous remercie d'avance pour votre collaboration.
Bien cordialement.
MamaB

[Menhir]

Déjà, le Select ne sert à rien. Donc :

Code :

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

1
2
Worksheets("Matrice").Cells(therow, 19).FormulaR1C1 = _
"=IF(AND((RC[-3]*RC[-2]*RC[-1])>=1,(RC[-3]*RC[-2]*RC[-1])<=19),""Low"",IF(AND((RC[-3]*RC[-2]*RC[-1])>=20,(RC[-3]*RC[-2]*RC[-1])<=34),""Medium"",IF(AND((RC[-3]*RC[-2]*RC[-1])>=35,(RC[-3]*RC[-2]*RC[-1])<=49),""High"",IF(AND((RC[-3]*RC[-2]*RC[-1])>=50,(RC[-3]*RC[-2]*RC[-1])<=64),""High"",""""))))"

Si ça ne fonctionne toujours pas, regarde le contenu de la variable therow au moment d'exécuter cette ligne.

[Patrice740]

Bonjour,

Il n'y a pas besoin de Select pour mettre en place une formule, il suffit de :

Code :

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

1
2
  Worksheets("Matrice").Range("S" & therow).FormulaR1C1 = _
     "=IF(AND((RC[-3]*RC[-2]*RC[-1])>=1,(RC[-3]*RC[-2]*RC[-1])<=19),""Low"",IF(AND((RC[-3]*RC[-2]*RC[-1])>=20,(RC[-3]*RC[-2]*RC[-1])<=34),""Medium"",IF(AND((RC[-3]*RC[-2]*RC[-1])>=35,(RC[-3]*RC[-2]*RC[-1])<=49),""High"",IF(AND((RC[-3]*RC[-2]*RC[-1])>=50,(RC[-3]*RC[-2]*RC[-1])<=64),""High"",""""))))"

Pour trouver d'où vient ton problème, découpes le :

Code :

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

1
2
  Worksheets("Matrice").Activate
  Worksheets("Matrice").Range ("S" & therow)

Ligne 1 : le nom de la feuille n'existe pas dans le classeur actif
Ligne 2 : la valeur de therow est incorrecte