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

C

Compte Supprimé 979

Guest

• 10 Septembre 2012

• #2

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+

 

Dernière modification par un modérateur: 10 Septembre 2012

Vote positif 0 Vote négatif

T

tompouss9

Guest

• 10 Septembre 2012

• #3

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 10 Septembre 2012

• #4

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

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+

 

Pièces jointes

• Tompouss9_database.xlsm

  98.9 KB · Affichages: 100
• Tompouss9_database.xlsm

  98.9 KB · Affichages: 105
• Tompouss9_database.xlsm

  98.9 KB · Affichages: 102

Vote positif 0 Vote négatif

T

tompouss9

Guest

• 10 Septembre 2012

• #5

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Septembre 2012

• #6

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+

 

Vote positif 0 Vote négatif

T

tompouss9

Guest

• 11 Septembre 2012

• #7

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

 

Pièces jointes

• Sans titre.jpg

  56.6 KB · Affichages: 142
• Sans titre.jpg

  56.6 KB · Affichages: 124
• Sans titre.jpg

  56.6 KB · Affichages: 115

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Septembre 2012

• #8

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+

 

Vote positif 0 Vote négatif

T

tompouss9

Guest

• 11 Septembre 2012

• #9

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 !

 

Pièces jointes

• Sans titre.jpg

  38 KB · Affichages: 156
• Sans titre.jpg

  38 KB · Affichages: 200
• Sans titre.jpg

  38 KB · Affichages: 199

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Septembre 2012

• #10

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+

 

Vote positif 0 Vote négatif

T

tompouss9

Guest

• 11 Septembre 2012

• #11

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

 

Pièces jointes

• Tompouss9_database.xlsm

  92 KB · Affichages: 66
• Tompouss9_database.xlsm

  92 KB · Affichages: 74
• Tompouss9_database.xlsm

  92 KB · Affichages: 78

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Septembre 2012

• #12

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+

 

Vote positif 0 Vote négatif

T

tompouss9

Guest

• 11 Septembre 2012

• #13

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,

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Septembre 2012

• #14

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

T

tompouss9

Guest

• 11 Septembre 2012

• #15

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+

 

Vote positif 0 Vote négatif