Erreur d'éxécution 1004
Résolu/Fermé
Rjp62
Messages postés
27
Date d'inscription
jeudi 20 décembre 2018
Statut
Membre
Dernière intervention
25 février 2023
-
21 févr. 2019 à 11:15
Rjp62 Messages postés 27 Date d'inscription jeudi 20 décembre 2018 Statut Membre Dernière intervention 25 février 2023 - 22 févr. 2019 à 17:17
Rjp62 Messages postés 27 Date d'inscription jeudi 20 décembre 2018 Statut Membre Dernière intervention 25 février 2023 - 22 févr. 2019 à 17:17
A voir également:
- Erreur d'éxécution 1004
- Erreur 1004 vba ✓ - Forum VB / VBA
- Erreur d'execution 1004 - Forum Programmation
- Erreur d'exécution 1004 erreur définie par l'application ou par l'objet ✓ - Forum VB / VBA
- MACRO : Problème " Erreur d'exécution '1004' " ✓ - Forum Excel
- Erreur d'execution 13 ✓ - Forum Programmation
3 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
21 févr. 2019 à 12:16
21 févr. 2019 à 12:16
au lieu de x1Up mettre xlUp
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
21 févr. 2019 à 14:10
21 févr. 2019 à 14:10
rE?
Ceci fonctionne :
Ceci fonctionne :
Private Sub CommandButton1_Click()
'click bouton ajouter
Dim ligne As Long
If ComboBox1.Value = "" Then
MsgBox "veuillez renseigner le champs 'Société'"
Else
If MsgBox("confirmez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbYes Then
With Worksheets("Fichier des articles")
ligne = .Range("A3000").End(xlUp).Row + 1
.Cells(ligne, 1) = ComboBox1.Value
.Cells(ligne, 2) = TextBox2.Value
.Cells(ligne, 3) = TextBox3.Value
.Cells(ligne, 4) = ComboBox4.Value
.Cells(ligne, 5) = TextBox5.Value
.Cells(ligne, 6) = ComboBox2.Value
.Cells(ligne, 7) = TextBox7.Value
.Cells(ligne, 8) = TextBox8.Value
.Cells(ligne, 9) = TextBox9.Value
.Cells(ligne, 10) = TextBox10.Value
End With
Else
End If
End If
End Sub
Rjp62
Messages postés
27
Date d'inscription
jeudi 20 décembre 2018
Statut
Membre
Dernière intervention
25 février 2023
22 févr. 2019 à 05:28
22 févr. 2019 à 05:28
bjr, Patrice,
non ça reste en erreur a la ligne :
ligne = .range("A3000").end(x1up).row + 1
non ça reste en erreur a la ligne :
ligne = .range("A3000").end(x1up).row + 1
Rjp62
Messages postés
27
Date d'inscription
jeudi 20 décembre 2018
Statut
Membre
Dernière intervention
25 février 2023
22 févr. 2019 à 13:40
22 févr. 2019 à 13:40
sorry, oui pas fait attention avec l mini ça marche.
merci aie, aie, aie
merci aie, aie, aie
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
22 févr. 2019 à 17:13
22 févr. 2019 à 17:13
Surtout qu'au lieu de saisir le texte, il suffit d'un copier coller depuis ce site vers VBA !
Rjp62
Messages postés
27
Date d'inscription
jeudi 20 décembre 2018
Statut
Membre
Dernière intervention
25 février 2023
22 févr. 2019 à 17:17
22 févr. 2019 à 17:17
Oui c'est ce que j'ai fait.
Encore toute mes excuses.
Merci.
Encore toute mes excuses.
Merci.