Discussion :

[OLIVIER SA2FISCA]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

à remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

idem pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[OLIVIER SA2FISCA]

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

[BENNASR]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[OLIVIER SA2FISCA]

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?

[BENNASR]

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