Problème pour gérer l'ajout de clients

Bonjour bonjour!

Voilà j'ai un petit soucis:

J'ai créé un UserForm pour ajouter des clients à un listing mais je n'arrive pas à faire en sorte que chaque nouvelle entrée se fasse sur la dernière ligne non écrite.

Je joint le fichier, j'ai mis un commentaire à l'endroit qu'il faut manipuler.

Sinon je met ici la partie en question

Private Sub CommandButton_VALIDER_Click()

''''''''''''''''''''''''''''''

'''MON PROBLE CE TROUVE ICI'''

''''''''''''''''''''''''''''''

Range("A3") = TextBox_num_dossier.Value

Range("B3") = TextBox_date.Value

Range("E3") = TextBox_nom.Value

Range("F3") = TextBox_prenom.Value

Range("C3") = TextBox_lieu.Value

Range("D3") = TextBox_departement.Value

Range("G3") = TextBox_voie.Value

Range("H3") = TextBox_bp.Value

Range("I3") = TextBox_cp.Value

Range("J3") = TextBox_ville.Value

Range("K3") = TextBox_tel.Value

Range("L3") = TextBox_metier.Value

Range("O3") = TextBox_prix.Value

Range("P3") = TextBox_deplacement.Value

End Sub

Merci d'avance pour vos réponses.

Bonsoir,

rajoute cette ligne:

derligne = Range("A1").End(xlDown).Row + 1

qui te donnera la dernière ligne vide puis modofieRange("A3") = TextBox_num_dossier.Value

par Range("A" & derligne)= TextBox_num_dossier.Value etc, etc....

Oula oula

Attends j'essais et je donne mes impression ^^

Merci beaucoup!

EDIT:

Bon, il me dégage une erreur:

Erreur d'exécution '1004':

La méthode 'Range' de l'objet '_Global' a échoué

De quoi cela peut-il venir?

(en surlignage le retour debogage)

Private Sub CommandButton_VALIDER_Click()

derligne = Range("A3").End(xlDown).Row + 1

Range("A" & derligne) = TextBox_num_dossier.Value

Range("B" & derligne) = TextBox_date.Value

Range("E" & derligne) = TextBox_nom.Value

Range("F" & derligne) = TextBox_prenom.Value

Range("C" & derligne) = TextBox_lieu.Value

Range("D" & derligne) = TextBox_departement.Value

Range("G" & derligne) = TextBox_voie.Value

Range("H" & derligne) = TextBox_bp.Value

Range("I" & derligne) = TextBox_cp.Value

Range("J" & derligne) = TextBox_ville.Value

Range("K" & derligne) = TextBox_tel.Value

Range("L" & derligne) = TextBox_metier.Value

Range("O" & derligne) = TextBox_prix.Value

Range("P" & derligne) = TextBox_deplacement.Value

End Sub

Salut le Forum

Essaye ceci

Private Sub CommandButton_VALIDER_Click()
    With Sheets("Base_client")
        derligne = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        If derligne = 2 Then derligne = 3 'A cause de la fusion des lignes 1 et 2
        .Range("A" & derligne) = TextBox_num_dossier.Value
        .Range("B" & derligne) = TextBox_date.Value
        .Range("E" & derligne) = TextBox_nom.Value
        .Range("F" & derligne) = TextBox_prenom.Value
        .Range("C" & derligne) = TextBox_lieu.Value
        .Range("D" & derligne) = TextBox_departement.Value
        .Range("G" & derligne) = TextBox_voie.Value
        .Range("H" & derligne) = TextBox_bp.Value
        .Range("I" & derligne) = TextBox_cp.Value
        .Range("J" & derligne) = TextBox_ville.Value
        .Range("K" & derligne) = TextBox_tel.Value
        .Range("L" & derligne) = TextBox_metier.Value
        .Range("O" & derligne) = TextBox_prix.Value
        .Range("P" & derligne) = TextBox_deplacement.Value
    End With
End Sub

Mytå

Bonjour,

essaie avec :

derligne = cells(rows.count,"A").end(xlup).row+1

eric

Ça fonctionne, merci d'avoir répondu aussi rapidement!

J'en profite que vous êtes chaud pour pousser un peu le principe...

Est-il possible que, selon la date entrée dans le UserForm, les données s'ajoutent dans une feuille en particulier (pour gérer une feuille par mois)?

J'ai penser à une condition mais comment tester une date au format jj/mm/aaaa et analyser uniquement l'année?

Ça m'a l'air plutôt compliqué

Je joint la MAJ avec ce message.

125listing-michael.xlsm (31.37 Ko)

Bonsoir,

Dans un textbox ta date est une chaine.

Tu aurais dû utiliser dateTimePicker qui permet de s'assurer une date valide.

Dans ton cas :

année = split(TextBox_date,"/")(2)

eric

Merci Eric,

En outre, je ne vois pas où utiliser votre astuce désolée ^^'

Des précisions sur comment l'utiliser et quels sont les éléments qui la compose?

De quelle 'astuce' parles-tu ?

eric

De votre ligne de commande:

année = split(TextBox_date,"/")(2)

Je répondais tout simplement à ta question :

comment tester une date au format jj/mm/aaaa et analyser uniquement l'année?

Si ta date est saisie dans TextBox_date sous la forme jj/mm/aaaa comme je l'ai supposé car tu ne fournissais aucun détail, split(TextBox_date,"/")(2) te retournera l'année (sous forme de chaine, utiliser clng() pour convertir en entier).

Mais je ne vais pas développer toutes mes réponses comme ça, il va falloir faire un effort.

eric

C'est juste que j'aime bien comprendre le fonctionnement des choses et pas seulement utiliser des CTRL+C/V ^^

Du coup, existe-t-il un site ou il sera expliqué ce que veut dire "split", "/" et "(2)"? Ou il serai détaillé comment utilisé telle ou telle fonction. Lequel utilisez-vous?

En tout cas merci beaucoup! Cela fonctionne!

Sert toi de l'aide dans excel elle est très bien faite. Curseur sur la fonction et : F1

Sinon il y a google aussi qui est très bien pour les recherches avant de poser une question.

eric

Oui du coup c'est ce que j'ai fait

Mais tu sais parfois, même avec ça c'est pas évident.

Rechercher des sujets similaires à "probleme gerer ajout clients"