erreur execution 1004 erreur definie par l'application ou par l'objet Résolu

Question

qui peut m'aider svp 


For Each Item In Sheets("commande").Range("B5:B28")
        If Item.Value = "" Then
            'ne rien faire
        Else
    
             Y = Sheets("HistoriqueCommande").Cells(Rows.Count, 3).End(xlUp).Row + 1
             Z = Item.Row
              
  ' code art-->B5 / qte ->c5 / longeur->D5 /Largeur->E5 /  prix m->F5 / typ sab ->G5 /Prix unitaire->H5

  Sheets("HistoriqueCommande").Range("C" & Y).Value = Sheets("commande").Range("B & Z").Value
  Sheets("HistoriqueCommande").Range("D" & Y).Value = Sheets("commande").Range("C & Z").Value
  Sheets("HistoriqueCommande").Range("E" & Y).Value = Sheets("commande").Range("D & Z").Value
  Sheets("HistoriqueCommande").Range("F" & Y).Value = Sheets("commande").Range("E & Z").Value
  Sheets("HistoriqueCommande").Range("G" & Y).Value = Sheets("commande").Range("F & Z").Value
  Sheets("HistoriqueCommande").Range("H" & Y).Value = Sheets("commande").Range("G & Z").Value
  Sheets("HistoriqueCommande").Range("I" & Y).Value = Sheets("commande").Range("H & ").Value

  
            
    End If
Next Item

michel_m · Answer

Bonjour

Et quel est le problème ?
sur quelle ligne as tu l'erreur (ligne surlignée en jaune ) ?

et donc que veux tu faire ?

rahmach · Answer

je veux faire une historique des commandes avec tt les détails  
la ligne jaune sur 
(Sheets("HistoriqueCommande").Range("C" & Y).Value = Sheets("commande").Range("B & Z").Value)
 et il m'affiche 
Erreur execution 1004 erreur definie par l'application ou par l'objet

michel_m · Answer

Range("B & Z").Value)

 écrire Range("B" & Z)

Erreur execution 1004 erreur definie par l'application ou par l'objet

3 réponses

Discussions similaires

Newsletters