erreur dexécution 380

[chilo]

bonsoir le forum

j'ai trouvé ce que je cherchais mais il y a un message d'erreur
il ya t'il un chirurgien pour extraire cette épine du pied

merci par avance le forum
bonne soirée

 

[Cousinhub]

Re : erreur dexécution 380

Bonsoir,

euh, à quel moment, le message d'erreur?

J'ai essayé (rajouter, supprimer, modifier), cela semble fonctionner...

A te relire...

 

[Cousinhub]

Re : erreur dexécution 380

Re-,

vu...

quand tu rajoutes un usager, tu définis mal la façon d'écrire dans l'onglet Database...

Remplace par :

        .Cells(i, 2).Value = Usagers.ComboBoxTitre
        .Cells(i, 3).Value = Usagers.TextBoxNom
        .Cells(i, 4).Value = Usagers.TextBoxjeunefille
        .Cells(i, 5).Value = Usagers.TextBoxPrenom
        .Cells(i, 6).Value = Usagers.TextBoxDN
        .Cells(i, 7).Value = TextBoxnumerovoie
        .Cells(i, 8).Value = TextBox1
        .Cells(i, 9).Value = TextBoxtypedevoie

 

[Cousinhub]

Re : erreur dexécution 380

Re-,

et de plus, lors du tri, tu définis mal la zone à trier...

remplace par :

    Set rng = Worksheets("DATABASE").Range("B3:S" & Worksheets("DATABASE").Range("c" & Cells.Rows.Count).End(xlUp).Row)

 

[chilo]

Re : erreur dexécution 380

bonjour le forum

encore une fois merci à toi bhbh sans oublié hulk qui m'avez mis la voie

je vais essayé

peut on envoyé un mail depuis un répertoire ?
bonne journée à tous

 

[chilo]

Re : erreur dexécution 380

bonsoir le forum

bhbh j'ai essayé mais les données d'effacent une fois affichée
peut regarder pour moi
merci


a bientot

 

[Cousinhub]

Re : erreur dexécution 380

Bonjour,

pour ton épine, j'avais joué au devin...

Mais là, il va falloir en dire un peu plus...

A quel moment, pour quelle action, bref explique un peu mieux...

 

[chilo]

Re : erreur dexécution 380

bonjour le forum
bonjour bhbh

j'ai aujouté ta proposition et enregistrer
et fermer
j'ai rappellé le rep et la dans la listebox plus rien

 

[Cousinhub]

Re : erreur dexécution 380

Bonjour,

la modif que je t'ai donné n'est pas à placer dans l'évènement :

Private Sub lstbPersonnes_Click()

mais dans l'évènement du bouton de commande :

Private Sub cmdValider_Click()

regarde le fichier joint

 

[chilo]

Re : erreur dexécution 380

reboujour le forum

merci bhbh
effectivement cela fonctionne désolé de ne pas l'avoir compris
cependant jee ne vais te lacher aussi facilement
peux tu regarder le fichier joint
un petit soucis d'incompatibilité
'myscp=.combobox1.?