Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Erreur 1004 dans une macro

  • Initiateur de la discussion Initiateur de la discussion Hellowa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

H

Hellowa

Guest
Bonjour à toutes et à tous
J'ai un bug dans une de mes macros,
Elle me renvoi l'image suivante:

Voici mon code

Code:
Sub calcul_matiere()
Dim ilig As Integer, i As Integer, icol As Integer
Dim poids As Long
'On recherche le matériau, sa densité et son prix
'Qu'on affiche en dessous
For icol = 2 To 6
    For ilig = 7 To Sheets("Configurations").Range("F65536").End(xlUp).Row
        If Sheets("Matiere").Cells(11, icol).Value = Sheets("Configurations").Cells(i, 5).Value Then
            poids = Sheets("Configurations").Cells(i, 6).Value
            Sheets("Matiere").Cells(15, icol).Value = Cells(12, icol) * Cells(13, icol) * Cells(14, icol) * poids
      End If
    Next ilig
Next icol
    
        
End Sub

Merci d'avance,
Cordialement,
Eloi
 

Pièces jointes

Re : Erreur 1004 dans une macro

bonjour,

l'erreur vient de ces lignes :
Code:
If Sheets("Matiere").Cells(11, icol).Value = Sheets("Configurations").Cells([B][COLOR=Red]i[/COLOR][/B], 5).Value Then
poids = Sheets("Configurations").Cells([B][COLOR=Red]i[/COLOR][/B], 6).Value

i n'est pas initialisé.
si on le remplace par ilig, la macro tourne.

a+
 
Re : Erreur 1004 dans une macro

bonjour Hellowa

Le probleme vient de i qui n'est pas defini dans ces 2 lignes

Code:
If Sheets("Matiere").Cells(11, icol).Value = Sheets("Configurations").Cells(i, 5).Value Then
            poids = Sheets("Configurations").Cells(i, 6).Value

je te suggere de le remplacer par ilig

a la bourre moi
Salut mromain
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
931
Réponses
4
Affichages
743
Réponses
4
Affichages
286
Réponses
15
Affichages
827
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…