Bonsoir,

Je tente de mettre en place une macro selon le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub cbm()
 
Dim j As Byte
 
With Sheets("CBM").Activate
 
    For j = 1 To 100
 
        Sheets("Scoring").Range("G11") = .Range("B" & 2 + j).Value
        Sheets("Scoring").Range("G13") = .Range("C" & 2 + j).Value
        Sheets("Scoring").Range("G15") = .Range("D" & 2 + j).Value
        .Range("E" & 2 + j) = Sheets("Scoring").Range("G33")
    Next j
End With
End Sub
Le but étant de prendre le cellule des colonnes BCD des lignes 2 à 102 de la feuille "CBM" pour les rentrer comme valeurs d'entrées dans trois cases de la feuille "scoring". Par suite un calcul est fait et j'aimerai prendre le résultat en range G33, pour le copier dans la colonne E de la feuille CBM.

L'erreur produits est = "objet requis" sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Sheets("Scoring").Range("G11") = .Range("B" & 2 + j).Value
. J'ai pourtant mis les value^^
En vous remerciant,

remi