Run time error '-21474117848 (80010108)': Method 'Range' of object' _worksheet' failed

Bonjour, Bonsoir. J'ai un problème pour exécuter ce code correctement, à chaque fois le programme me donne l'erreur :

Citation:

---

Run time error '-21474117848 (80010108)': Method 'Range' of object' _worksheet' failed

---

et la ligne 11 est mise en jaune pour signaler le point d'erreur. Merci d'aider

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sheets("FAMILY ARTICLES").Activate 'activer la feuille consernée 'Verifier si toutes les informations sont reseigné If TextBox1 = "" Or TextBox2 = "" Then MsgBox ("Missing Information! / Des informations obligatoire sont manquantes!") Else 'rechercher la ligne ou seront saisie les données et entrer la première information If ActiveSheet.Range("B10") = "" Then dlt = ActiveSheet.Range("B1000000").End(xlUp).Row ActiveSheet.Range("B10") = Sheets("FAMILY ARTICLES").Range("A1") Else dlt = ActiveSheet.Range("B1000000").End(xlUp).Row + 1 ActiveSheet.Range("B" & dlt) = Sheets("FAMILY ARTICLES").Range("A1") End If With ActiveSheet .Range("C" & dlt) = TextBox1.Value .Range("D" & dlt) = TextBox2.Value .Range("E" & dlt) = TextBox3.Value .Range("F" & dlt) = Now .Range("G" & dlt) = Sheets("USERS").Range("P1")   End With

---

bonjour
pour déterminer la dernière ligne non vide enlever le 100000

Code:

---

dlt = ActiveSheet.Range("B1000000").End(xlUp).Row

---

à remplacer par

Code:

---

dlt = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row

---

aussi la ligne 10
ajouter .value après chaque range

Code:

---

ActiveSheet.Range("B10").value = Sheets("FAMILY ARTICLES").Range("A1").value

---

idem pour

Code:

---

) .Range("C" & dlt).value = TextBox1.Value

---

tester et dire si ça résoudre le problème

Bonjour Mr BENNASR j'ai applique votre solution proposer mais le probleme n'est pas resolu, pour un premier temps même message d'erreur de feuille echuer et par la suite un message d'erreur disant l'objet invoke à été decconecter de son client

bonjour
j'ai essayer de reproduire ton fichier selon le bout de code que tu as fourni
normalement tu cherches simplement à faire un interface de saisie
essayer d'éviter .activate et . select, il suffit de définir ton onglet au début de ton code
pensez à travailler avec un tableau structuré
je sais pas si le colonne A et B sont vides et ton tableau commence depuis la colonne C ??
si non essayer avec ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub CommandButton1_Click() Dim F As Worksheet Dim dlt As Long Set F = Sheets("FAMILY ARTICLES")   'Verifier si toutes les informations sont reseigné If TextBox1 = "" Or TextBox2 = "" Then MsgBox ("Missing Information! / Des informations obligatoire sont manquantes!") Else 'rechercher la ligne ou seront saisie les données et entrer la première information With F dlt = .Range("C" & Rows.Count).End(xlUp).Row + 1 .Range("C" & dlt) = TextBox1.Value .Range("D" & dlt) = TextBox2.Value .Range("E" & dlt) = TextBox3.Value .Range("F" & dlt) = Now .Range("G" & dlt) = Sheets("USERS").Range("P1") End With End If TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = ""   Unload UserForm1 UserForm1.Show End Sub

---

La colonne A de ma feuille est vide,la colonne B je l'utulise pour remplir le numero d'ordre des lignes entrée dans ma feuille à parti du formule count +1 . J'ai executer votre code dans le workbook avec la quelle elle s'est ouvert dans mon excel, elle fonctionne parfairtement, mais quand je transpose le code dans mon application je recois toujours l'erreeur l'objet invoke à été decconecter de son client. Est il possible que mon fichier excel est corrumpu?

sans doute le problème ne déclenche pas suite à cette partie de code
pour éviter une casse tete, remplace ton fichier par une nouvelle et tu aura la paix :D

Je suis sur un nouveau fichier le code crack toujours. Method value of range failed