Création d'un bloc note client dans base données!

[tompouss9]

Bonjour,

Vous trouverez ci-joint ma base de donnée que j'essaye de développer grâce à vos services!

Je dois créer un bloc note en feuille consulting (voir PJ zone texte en jaune).

L’intérêt de ce bloc et de pouvoir y écrire des notes au fur et a mesure des rencontres clients. Ces notes serait alors enregistrées dans la base de donnée (Database).

Seulement, j'ai pas trouvé de solutions pour réaliser cet outil qui serait très utile à ma société.

J’espère que je fichier vous permettra de comprendre mon souhait!

Have a good day !

Thomas

 

[Compte Supprimé 979]

Re : Création d'un bloc note client dans base données!

Bonjour Tompouss9

ATTENTION !
Lors de l'ouverture du fichier, l'interface d'Excel est complètement changée sans retour à la normale à la fermeture du fichier
MERCI du CADEAU 😡

Quand souhaites-tu enregistrer cette information de bloc note !?

A+

 

[tompouss9]

Re : Création d'un bloc note client dans base données!

Bonjour Bruno 45 ,

Nous sommes 3 commerciaux et je pense que la majeur partie du temps se passera en page "consulting".
Je vais remplir cette base de donnée, puis la mettre sur le réseau et chaque commerciaux rajouterons leurs historiques clients!
De ce faite je pense qu'il faut pouvoir enregistrer depuis la page "consulting " qui reste la page principale.
Normalement cette manœuvre sera mensuelle.

Merci pour ton aide,

Thomas

 

[Compte Supprimé 979]

Re : Création d'un bloc note client dans base données!

Re,

Voici ton fichier avec le code modifié

Le bloc note est enregistré en commentaire dans la cellule "AG" du client sélectionné
Il est enregistré et mis à jour à chaque changement de fiche ou en cliquant sur "Confirm the change"

J'ai également ajouté, ce code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.DisplayFullScreen = False
End Sub

Qui évite le problème du plein écran qui reste à la fermeture du fichier 😉


Teste et tiens nous au courant

A+

 

[tompouss9]

Re : Création d'un bloc note client dans base données!

Bonsoir Bruneau M45,

Je viens de voir ton mail et c'est exactement ce que je souhaitais !
Malheureuse je ne peux pas voir ton travail car, lorsque je lance le fichier et essaye un test, ca bug !

Je clic sur debugage et j'ai ca!

Sub lancer_userform()
UserFormRegion.Show
End Sub

Sub AfficherBlocNote()
UsF_BlocNote.Show
End Sub

Je ne sais pas si c'est mon ordinateur ou s'il manque qlq chose!

bonne soirée à toi !

Thomas

 

[Compte Supprimé 979]

Re : Création d'un bloc note client dans base données!

Salut Thomas,

Lorsque tu ouvre le fichier, va voir dans l'éditeur VBA, dans le menu
Outils -> Références
Si tu n'as pas une référence marquée [MANQUANTE] auquel cas, décoche là

Le blocage que tu as, est comme si tu n'avais pas l'userform que j'ai créé et qui s'appelle "UsF_BlocNote"

A+

 

[tompouss9]

Re : Création d'un bloc note client dans base données!

Bonjour BrunoM45

Je viens d'essayé de faire ta manœuvre mais je trouve pas le 'manquant'!

Je t'ai mis un imprimé écran de mmon résultat!

C'est pas facile de comprendre pour quoi ca ne fonctionne pas sur mon ordinateur!🙂

Merci
Thomas

 

[Compte Supprimé 979]

Re : Création d'un bloc note client dans base données!

Re,

Tu as bien l'userform : UsF_BlocNote ?

Au moment du bug, tu entre en phase de débogage,
une ligne est surlignée pour t'indiquer à partir de quel endroit il y a un problème.

Ce qu'il faut faire à ce moment là, c'est appuyer sur la touche [F8] mode pas à pas
Comme ça chaque ligne de code va s'exécuter, jusqu'à celle qui ne peut vraiment pas

A+

 

[tompouss9]

Re : Création d'un bloc note client dans base données!

OK! j'ai fais la procédure F8 "pas à pas"!

Ca me souligne cette ligne dans le code!

Option Explicit

Private Sub Cb_Valider_Click()
With Sheets("Consulting").Shapes("TextBox 11")
With .TextFrame2.TextRange
.Characters.Text = Me.TextBox1
.Characters.Font.Size = 11
End With
End With
Unload Me
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Me.TextBox1.Value = Me.TextBox1.Value & vbCrLf
End If
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1.Value = Sheets("Consulting").Shapes("TextBox 11").TextFrame2.TextRange.Text
End Sub

Je te joins aussi un impr écran du code bug !

 

[Compte Supprimé 979]

Re : Création d'un bloc note client dans base données!

Re

Ok, 2 possibilités :
1) Dans l'USF Bloc note, tu as renommé le Textbox
2) dans ta feuille "Consulting" ton shape ne se nomme plus "TextBox 11"

Dans les 2 cas il faut change le nom dans le code

A+

 

[tompouss9]

Re : Création d'un bloc note client dans base données!

Re

Pour tout te dire j'ai absolument pas touché à ton travail! je te joins mon fichier, car j'aimerais savoir si le problème vient tu fichier ou du paramétrage de mon ordinateur!

Merci

Thomas

 

[Compte Supprimé 979]

Re : Création d'un bloc note client dans base données!

Re,

Le fichier fonctionne bien de mon côté, soucis, c'est que je travaille sur Excel 2010
et tu es sur 2007, je pense qu'il y a une différence

Il faudrait que tu lances l'enregistreur de macro et que tu créées un nouveau textbox dans ta feuille
en modifiant le texte à l'intérieur
Ensuite tu arrêtes l'enregistreur et tu nous mets le code

A+

 

[tompouss9]

Re : Création d'un bloc note client dans base données!

Salut BrunoM45

J'ai compris que je dois créer un userform avec un textbox mais après je sais pas comment tu veux que je modifie le texte?

J'aimerais vous envoyer le code mais je crois qu'il va falloir me détailler encore plus la procédure à suivre.

Encore merci,

 

[Compte Supprimé 979]

Re : Création d'un bloc note client dans base données!

Salut Thomas,

J'ai compris que je dois créer un userform avec un textbox

Non tu as mal compris 😉

Après avoir lancé l'enregistreur de macro tu crées un autre bloc note sur ta feuille
de la même manière que le premier 😉

A+

 

[tompouss9]

Re : Création d'un bloc note client dans base données!

OK en effet j'avais as compris!

Je viens d'enregistrer ce que j'avais fait la première fois et à ma grande surprise ca donne presque rien comme code!

VSub blocnote()
'
' blocnote Macro
'

'
Range("I36").Select
End Sub

La première fois j'avais juste inséré une zone de texte ne sachant pas quoi faire! Mais ca te donne pas grand chose

Tu aurais fait comment toi?

C'est horrible à dire mais je suis encore plus perdu 🙂!

Merci, t'as du courage de m'aider BM45

A+