Userform VBA - rappel de ligne et gestion BDD

Résolu
TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention   -  
TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un gros probleme sur Excel,

J'ai 2 Userform, le 1er "formulaire" qui marche très bien, et le 2eme "Budget" qui ne fonctionne pas...
Pourtant les 2 Userform ont la meme logique...
Le 1er a été fait par un membre du forum, j'ai essayé de reprendre son code en l'adaptant mais rien n'y fait...

Quelqu'un serait me dire ou est le probleme...

En vous remerciant :)

Voila le doc:
https://www.cjoint.com/c/FDeow5YRWHC
A voir également:

3 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Vous avez deux fois

Private Sub UserForm_Initialize()


!!!!!!!!!!!!!!!!!!!!!!
0
TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
Je dois tout mettre dans le meme code pour mes 2 userform??
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Teddyygalère ne tolère pas que je ne lui réponde pas tout de suite

donc,

Teddygalère----> blacklist
0
TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
Non non pas du tout Michel...

Je demandai juste autre part pour avoir plus de visibilité...

Puis tu as peut être autre chose à faire

Comme j'avais marqué le sujet en résolu, je ne savais pas si tu allais recevoir la réponse!
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Par UF vous ne devez avoir qu'un seul evenement
Private Sub UserForm_Initialize()


dans votre code UF Budget y en a deux
0
TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
Ah oui exact...
Merci beaucoup :)
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

on m'affiche "incompatibilité de données" Vos textboxs sont renseignees ou vides ??
0
TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
En effet c'est quand elles sont vide...
Mais le but est justement de pouvoir remplir l'userform en plusieurs fois...
Comment faire pour que le message d'erreur n'apparaisse pas lorsque les textbox sont vide?
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Vous devez tester si ces textboxs ne sont pas vide pour faire ces operations, parce que un vide + un vide ok ca passe mais un vide * par un vide: non

je n'arrive pas a faire marcher le code de michel... Vous pouvez me raffraichir la memoire, ou est ce code ??
0
TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
ce code est dans l'userform "Budget".

Donc en gros je devrai faire un truc du genre:
If TextBox_nbp =""And TextBox_nbp="" Then
Sheets("Saisie budgétaire").Cells(36, 3) =""
Else Sheets("Saisie budgétaire").Cells(36, 3) = TextBox_nbp * TextBox_nbj
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

je devrai faire un truc du genre: Oui

ce code est dans l'userform "Budget". Tout a fait Thierry, mais plus precisement !!!!!!!!!!!!!!!!!!!!!!
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Prendre la premiere ligne libre d'un onglet pour ecrire dans un autre, n'est-ce pas la le probleme ???????????????????????

With Sheets("suivi budgétaire")
n_ligne = Sheets("Recap").Range("a50000").End(xlUp).Row + 1
.Cells(n_ligne, 1) = ComboBox_nom
0
TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
et du coup quand j'appuie sur valider, il faudrait également que je puisse faire un copier-coller valeur de ma cellule
Sheets("Saisie budgétaire").Cells(40, 4)
dans la cellule
Sheets("suivi budgétaire").Cells(n_ligne,4)
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Vous pouvez me la refaire, car actuellement votre code ne fait pas ca du tout !!!!!!
onglet Suivi budgétaire
Qu'est-ce que ce tableau A3:AF3 qui fout la zone ???
0
TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
Normal que le code ne le fasse pas du tout pour le moment...
Je ne l'ai pas encore codé :)

le tableau A3:AF3, a pour vocation a etre caché...
cette ligne me permet juste de copié la mise en formue et les calculs à toutes les lignes qui viendront se greffer en dessous...

Je ne sais pas par quel miracle mais finalement tout a l'air de marché après quelques modifs....
Il ne me reste reste plus que la formule pour faire du copier-coller valeur et tout devrait être parfait...
Jusqu' a ce qu'on me réclame une nouvelle mise a jour et de nouvelles fonctionnalités
(Vive l’absence de cahier des charges fixes)
0