Objet requis erreur 424 [Résolu]

[mantus]

Bonsoir,

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

Code :

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 :

1
2
 
Sheets("Scoring").Range("G11") = .Range("B" & 2 + j).Value

. J'ai pourtant mis les value^^
En vous remerciant,

remi

[jfontaine]

Bonjour,

Quand on utilise With c'est pour éviter de répéter une partie préfixe

Dans ton cas, tu mets

Code :

With Sheets("CBM").Activate

L'instruction Activate ne permet pas d'être suivi de Range

Essais comme cela

Code :

With Sheets("CBM")

A noter que ton code démarre la copie a partir de la ligne 3 (2 + j)
Pour boucler de la ligne 2 à 102 on écrirait plutôt comme suit

Code :

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")
 
    For j = 2 To 102
 
        Sheets("Scoring").Range("G11") = .Range("B" & j).Value
        Sheets("Scoring").Range("G13") = .Range("C" & j).Value
        Sheets("Scoring").Range("G15") = .Range("D" & j).Value
        .Range("E" & j) = Sheets("Scoring").Range("G33")
    Next j
End With
End Sub

[mantus]

Bonsoir,

Merci beaucoup, j'aimerai être aussi doué et minutieux.

Bonne continuation,

REMI

Bonjour,

Excusez-moi, mais je retrouve l'erreur 9 "l'indice n'appartient pas à la sélection dans:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub cbm()
 
Dim j As Byte
 
With Sheets("CBM")
 
    For j = 2 To 102
 
        Sheets("Scoring").Range("G11") = .Range("B" & j).Value
        Sheets("Scoring").Range("G13") = .Range("C" & j).Value
        Sheets("Scoring").Range("G15") = .Range("D" & j).Value
        .Range("E" & j) = Sheets("Scoring").Range("G33")
 
    Next j
 
End With
End Sub

L'erreur est à la ligne =

Code :

1
2
 
Sheets("Scoring").Range("G11") = .Range("B" & j).Value

Quelle erreur? J'ai pourtant sélectionner la sheet appropriée...

merci!

[jfontaine]

Cette erreur apparrait si une des feuille n'est pas trouvée

Est ce que ces feuilles existent bien dans le classeur?
La macro est elle lancée sur le bon classeur?

[mantus]

Il n'y a qu'un classeur d'ouvert, donc aucune erreur possible sur ce point.

Et les deux feuilles sont bien nommées et correctement ortographiées, ce sont les noms de deux onglets du workboook.
Une feuille protégée peut-elle gênée? Même si les cellules sélectionnées sont déverrouillées?

merci

[jfontaine]

Essais en déprotégeant l'onglet

[mantus]

En déprotégeant cela ne change rien.

Par contre j'ai renommé une fois l'onglet "Scoring" en "Score" et ça fonctionne; je n'ai pas vraiment d'idées sur la cause.

Merci!

[jfontaine]

Une hypothèse

Nom onglet "scoring " (avec un espace à la fin) provoque une erreur 9

[mantus]

Merci!

C'est sûrement la raison, VBA est parfois trop rigoureux à mon goût^^

A tantôt!

REMI