Problème d'incrémentation

Fermé
mipsa29600 Messages postés 23 Date d'inscription mercredi 18 novembre 2015 Statut Membre Dernière intervention 19 août 2019 - 23 déc. 2015 à 14:33
mipsa29600 Messages postés 23 Date d'inscription mercredi 18 novembre 2015 Statut Membre Dernière intervention 19 août 2019 - 30 déc. 2015 à 12:00
Bonjour,
j'ai créer mon fichier a partir d'une base, j'ai une feuille avec une validation de données saisie manuellement et en cliquant sur un bouton de commande.
Quand je ckick sur le enregistrer, la validation des données se fait dans ma base de données, par contre le problème est que la donnée antérieur est effacée alors que j'ai besoin de celle-ci.
pouvez vous me dire pourquoi n'est elle pas à la suite de l'autre.
Merci d'avance

1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
24 déc. 2015 à 09:05
Bonjour,

Nous n'avons pas de boule de cristal,
sans le code et / ou sans le fichier,
les réponses seraient hypothétiques !
0
mipsa29600 Messages postés 23 Date d'inscription mercredi 18 novembre 2015 Statut Membre Dernière intervention 19 août 2019
29 déc. 2015 à 14:32
bonjour,
je joins mon fichier
pour un peu d'aide
merci
https://www.cjoint.com/c/ELDnFDEYat5
0
mipsa29600 Messages postés 23 Date d'inscription mercredi 18 novembre 2015 Statut Membre Dernière intervention 19 août 2019
29 déc. 2015 à 14:34
je suis novice et je n'ai fait que reprendre un fichier que l'on m'à créer et je ne sais pas pourquoi je n'arrive plus à alimenter le fichier de recap
merci à tous
et si quelqu'un peut m'expliquer comment le fichier à été créer je l'en remercie d'avance
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
29 déc. 2015 à 19:26
Bonjour,

Il manque la 3ème ligne de code dans Private Sub btEnregistrer1_Click() :
  With Sheets(nomFR)
    .Cells(liFR, 1).Value = Range(nom1).Value
    .Cells(liFR, 2).FormulaLocal = "=GAUCHE(A" & liFR & ";6)"
    .Cells(liFR, 3).Value = Range(ndp1).Value
Ajoutes la !

Cordialement
Patrice
0
mipsa29600 Messages postés 23 Date d'inscription mercredi 18 novembre 2015 Statut Membre Dernière intervention 19 août 2019 > Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023
30 déc. 2015 à 12:00
Merci
Super ca marche c'est surtout la ligne 2 qui faisait défaut car j'avais une formule que le VB ne prenait pas.
Merci encore
0