Erreur execution 1004 erreur definie par l'application ou par l'objet
Résolu
rahmach
-
rahmach -
rahmach -
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
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
A voir également:
- Erreur execution 1004 erreur definie par l'application ou par l'objet
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Comment recuperer whatsapp supprimé par erreur - Guide
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Desinstaller application windows - Guide
3 réponses
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 ?
Et quel est le problème ?
sur quelle ligne as tu l'erreur (ligne surlignée en jaune ) ?
et donc que veux tu faire ?
