erreur d'exécution '1004' erreur définie par l'application o Fermé

Question

Bonjour,

J'ai cette erreur qui apparait quand je remplie mon userform et appuie sur mon bouton valider. Si vous voulez les donnees inscrite dans le userform sont censé s'écrire sur la premiere ligne vide de ma feuilpropriétaires ( il y a la ligne 1 qui est l'en tete) Je vais vous donner le code du userform et du module

Voici le code du module :

Public LigneAModifier As Long 'Recupere l'indice de la ligne a modifier ou a supprimer d'un fichier de données'

Public AjouterouModif As Boolean 'True si Ajout et False si modification'

'Fonction DerLigne pour determiner la ligne d'ajout d'une nouvelle information, ou la derniere ligne de notre tableau de donnees

Function DerLigne(Nomfeuille As String, Col As String) As Long

DerLigne = 1

Do

DerLigne = DerLigne + 1

Loop Until Sheets(Nomfeuille).Range(Col & DerLigne).Value = ""

End Function

'Fonction de recherche de doublons

Function RechercheDoublons(Nomfeuille As String, ColRech As String, ValeurRecher As String, i As Long) As Boolean

RechercheDoublons = False

Dim j As Long

j = 1

Do

j = j + 1

If Not Sheets(Nomfeuille).Range(ColRech & j).Value = "" Then

If (Sheets(Nomfeuille).Range(ColRech & j).Value = ValeurRecher) And (i <> j) Then

RechercheDoublons = True

End If

Loop Until Sheets(Nomfeuille).Range("A" & j).Value = ""

End Function

Voici le code du userform:

Private Sub CmdValider_Click()

Dim i, j As Long

If AjoutouModif = True Then

i = DerLigne(FeuilPropriétaires.Name, "A")

j = 1

Else

i = LigneAModifier

j = i

End If

'Controle de saisie'

If Me.TextBox1.Value = "" Then 'zone de saisie du nom ne doit pas être vide'

MsgBox "Veuillez saisir le nom avant de continuer !", vbCritical Me.TextBox1.SetFocus

ElseIf Me.TextBox2.Value = "" Then 'zone de saisie du contact ,ne doit pas être vide'

MsgBox "Veuillez saisir le contact avant de continuer !", vbCritical

Me.TextBox2.SetFocus

ElseIf RechercheDoublons(FeuilPropriétaires.Name, "A", Me.TextBox1.Value, j) = True

Then 'Si doublons deetecté'

MsgBox "Ce nom de propiétaire existe déja dans notre base de données, veuillez ajouter un indice de différentiation si il s'agit de deux personnes différentes.", vbCritical

Else

For j = 1 To 4

FeuilPropriétaires.Cells(i, j).Value = Me.Controls("TextBox" & j).Value

Next j

Unload Me

End If

End Sub

f894009 · Answer

Bonjour,

Votre fichier serait plus interessant que du code

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : http://cjoint.com
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

Alexandre123456789 · Answer

Voici le lien cjoin : https://www.cjoint.com/c/MJfuubNi8eJ

Pour mieux expliquer, en faites je suis entrain de créer un Excel de gestion.

Il est pas terminé vu que je bloque sur le userform utilisé pour encoder les informations dans la feuille intitulé (propriétaires). Pour avoir accès à ce userform il faut être sur la feuille accueil, appuyé sur le bouton propriétaires puis dans la fenêtre qui s’ouvrira il faudra appuyé sur ajoute et là il y a erreur 1004.

En essayant plusieurs code pour pouvoir déterminer le bug, j’ai remarqué dans la console que la variable i est égale à 0 alors que ça ne devrait pas être le cas. J’ai donc du mal de comprendre voilà tout. 
‘merci d’avance

f894009 · Answer

Bonjour,

Ok, je regarde la chose

Suite:

Pour info

DerLig = Range("A" & Rows.Count).End(xlUp).Row

C'est quand meme plus rapide que faire une boucle sur  une colonne

Alexandre123456789 · Answer

Bonjour,

vous n’avez donc pas d’erreur quand vous remplissez la fenêtre fmsaisie_propietaires et que vous appuyez sur le bouton valide. Et pour répondre à votre question normalement si on remplie directement le tableau dans la feuille propriétaires, on voit que la listbox se remplie. Si j’avais bien compris mon problème c’est qu’il ne trouve pas les cellules ou il doit remplir. Mais si vous me dites que vous avez pas d’errer pouvez vous me renvoyer le programme si vous avez changé.

f894009 · Answer

Re,

En effet, il y a bien une erreur, mais pas que

1/ vous avez ecrit

For j = 1 To 4
        FeuilPropriétaires.Cells(i, j).Value = Me.Controls("TextBox" & j).Value
    Next j

Alors que cela doit etre

For j = 1 To 4
        Worksheets(FeuilPropriétaires.Name).Cells(i, j).Value = Me.Controls("TextBox" & j).Value
    Next j

J'avais corrige sans penser que c'etait l'erreur recherchee et ensuite j'ai fais des modifs pour les boucle de recherche ligne et doublon. Je viens de modifie votre fichier d'origine restait le probleme du boolean AjoutouModif = True qui s'appelle en realite

Public AjouterouModif As Boolean   'True si Ajout et False si modification'

Par contre, j'ai un probleme au bout de 3 ou 4 ajouts, les suivants ne sont pas dans le tableau Table_proprietaire mais en dessous donc plus affiches dans la listbox

https://www.cjoint.com/c/MJgqbU2RhRg

Testez et dites si chez vous c'est de meme. De plus ca plante Excel!

Avec "mon" fichier, en dehors code du boolean qu'il faut que je rajoute, en utilisant un code un peu modifie y a pas ce probleme et pas de plantage. Mais le mieux serait d'utiliser les instructions de gestion de tableau structure

Alexandre123456789 · Answer

Moi je n’ai pas votre problème en utilisant votre fichier car en faites je suis toujours bloqué avec l’erreur 1004. Voici les captures d’écrans: https://www.cjoint.com/c/MJgxN5Sd8EJ

f894009 · Answer

Bonjour,

Je regarde la chose

f894009 · Answer

Bonjour,

Pas fait, verrai aujourd'hui.

Les Tableaux structures sont indispensable ou pas?

En dernier recours, c'est la solution possible

Erreur d'exécution '1004' erreur définie par l'application o

8 réponses

Discussions similaires