Titre de colonne qui se décallent (pour@Thierry)

G

G'Claire

Guest
au forum

@Thierry.

Je m'adresse a toi car tu es le concepteur de ce fichier.

Voilà, j'ai tenter de modifier ce fichier pour pouvoir l'utiliser dans mon application.

Je pense avoir tout modifier, mais il se passe un truque bizard.

Quand je veux supprimer la première ligne de donnée, en-dessous des titres de colonnes, cela me décalle ces titres, et le pire si je décide de la supprimer en premier, deuxième, troisième, les titres ne se déplace pas de la même manière ce qui me donne :

Suppression en premier = Les titres sont en troisième position
Suppression en deuxième = Les titres sont en deuxième position
Suppression en troisième = Les titres sont en première position


Dans le fichier fourni c'est Christina MILAN et c'est dans les cas suivant :

1) Si je sélectionne le nom de l'interprète->Mise a jour-> suppression = Décallage

2) Par recherche diverses

a) Par le nom -> Mise a jour -> suppression = Décallage
b) Par le titre -> Mise a jour -> Suppression = Décallage
c) Par le temps -> Mise a jour -> Suppression = Pas de décallage

3) Par recherche diverses -> fraction de texte = Décallage


J'ai cherché toute l'aprés-midi, mais je ne vois rien.

Le seul point que je pense c'est le code de la partie E-mail, que je ne suis pas sur, si je n'ai pas laissé un bout de code qui ne sert plus, ou le code que j'ai fait pour le format temps (Qui remplace le format E-Mail).


Je joint le fichier, car je tourne en rond.

Je te remerci par avance.


3dcap_203.gif
3dcap_212.gif
3dcap_201.gif
3dcap_209.gif
3dcap_218.gif
3dcap_205.gif
 

Pièces jointes

  • GestionDesTitres_AThierryContact.zip
    49.5 KB · Affichages: 18
Z

ZON

Guest
Bonjour à tous,



Comme certains nous l'avons promis à Thierry, nous devons lui donner un petit coup de main, sinon il va se retrouver submerger de posts, donc je me permets de répondre à sa place en éspérant de ne pas me tromper..


Le décalage vient de la procédure sortnom qui trie par ordre alphabétique la plage en question: remplace B1 par B2 et cela devrait rentrer dans l'ordre.


A+++
 
@

@+Thierry

Guest
Hello G'Claire, Zon et le Forum


Merci beaucoup Zon de ton assistance :)
et je confirme donc que c'est B2 à indiquer.

Par contre celà me fait m'apercevoir que David à zipper dans le Pack Démos 1 la béta version de ce programme mais dans ce Lien supprimé je te conseille de télécharger l'une des versions II (01 ou 02) car bien plus épurées avec l'aide de Ti et de STéphane et donc efficaces...


Merci encore Zon !

Bonne Soirée
@+Thierry


PS la Version III (la mission !!) n'est pas encore sortie !!
 
G

G'Claire

Guest
@Thierry, Zon et le forum, je vous

Merci beaucoup, pourtant je l'avait lu en long, large et en travers ce fichier, mais cela ne m'a pas sauté aux yeux , ne m'en veuillez pas,.

En faite j'avais déstiné ce message a @Thierry, car s'en était le concepteur et je pensait que cela était normal que cela lui sois demandé.

Pour la version II, elle est beaucoup plus différante que la version Béta , Mise a part le mot de pass

Enfin, merci, encore, allez .
 
@

@+Thierry

Guest
Re bonsoir G'claire, Zon et le Forum

Oui oui J'éclaire (avec tous tes projecteurs) !!!

La version 2.01 (Assistance automatique de conception du message dans l'email auto)

(Management des Accès à l'écriture sur la DataBase par PassWord)

C'est deux versions n'ont plus grand chose en commun avec la beta version que tu as utilisée G'claire pour faire ton appli.... Car il faut le savoir, ce petit programme est un aboutissement d'une collaboration dans ce Forum !

Exemple
Beta Version :
CommandButton3.Visible = False
CommandButton4.Visible = False
CommandButton5.Visible = False
CommandButton8.Visible = False
CommandButton9.Visible = False
CommandButton10.Visible = False
CommandButton11.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False

Version 2 (les deux variantes)
For Each CTRL In Controls
If CTRL.Tag = "IniFalse" Then
CTRL.Visible = False
End If
Next 'sur une suggestion de Ti !


Beta Version :
UserForm1.BackColor = RGB(255, 255, 150)
Label1.BackColor = RGB(255, 255, 150)
Label2.BackColor = RGB(255, 255, 150)
Label3.BackColor = RGB(255, 255, 150)
Label4.BackColor = RGB(255, 255, 150)

Version 2 (les deux variantes)
Dim CTRLC As Variant
For Each CTRLC In Array(UserForm1, Label1, Label2, Label3, Label4)
CTRLC.BackColor = RGB(255, 255, 150)
Next CTRLC 'sur une suggestion de STéphane


Et bien bien d'autres choses.......

Enfin tu fais comme tu veux, il est évident que la Béta version sera plus simple à interpréter par contre pour un niveau débutant.

Bonne Nuit
@+Thierry
 
G

G'Claire

Guest
a tous


J'ai modifié le dernier fichier qui m'a été gentillement mis sur un post par @Thierry.

J'ai un message d'erreur qui me dit :

Erreur de compilation
Membre de méthode ou de donnée introuvable

Sur ce bout de code et sur ce qui est en gras :

Private Sub CommandButton1_Click()
If TextBox1.Value = UserForm1.X Then
PassWord = True
Unload Me
Else
MsgBox "Vous n'avez pas accès à la maintenance de la Database", vbCritical, "Thierry's Démo Pas Bon Password! lol"
PassWord = False
Unload Me
End If
End Sub

Je n'arrive pas a savoir, a quoi cela correspond, es-ce que quelqu'un pouvait m'éclairer , se serait , merci.

lettres_anim3e.gif
 
@

@+Thierry

Guest
Salut G'claire, Zon, le Forum

Hum je n'ai pas mis çà en post maintenant, ce n'est que le lien d'un fichier qui a été téléchargé des XXen fois...


Le "X" est un label cacché dans le UserForm1... A mon avis tu l'as supprimé...

Reprends le Fichier d'origine, tu verras mieux...

Bon Aprèm
@+Thierry
 
G

G'Claire

Guest
, @Thierry, ZON et le forum

Alors là je suis, , bien vue l'astuce pour ne pas voir les labels.

Une chtite question, j'ai plusieurs UserForm, dans cette application ;

1 Annaire pour les organisateurs
1 Annaire pour les danseuses
1 Annuaire pour les dirigants
1 Annuaire pour les profs
1 La gestion des interprètes (Qui est a la base un annuaire)
1 Pour la visualisation des feuilles prog et Bal

Es-ce qu'il faut que je mette le code pour le mot de passe ( Que tu as créer dans Contact V2.02s) dans chaque UserForm, ou il serait préférable de l'inclure dans les Command bouton qui servent a ouvrir ces UserForm

Merci,
 
@

@+Thierry

Guest
Re G'claire, le Forum

Impossible de te répondre de manière formelle..., disons que c'est surtout dans la logique de ta programmation que tout va être basé... Si tu peux faire appel au password à n'importe quel moment, le plus simple alors est d'utiliser une cellule dans une feuille VeryHidden...

Bon Courage, car c'est facilement la prise de tête si on est par rigoureusement logique !!!

@+Thierry
 
G

G'Claire

Guest
le forum

Non, pas a tout le temps, en gardant le même principe que pour ton fichier contact mais dans les command bouton.

Quand je clique la première fois sur un des command bouton, cela me demande le mot de passe, au lieu de le faire dans les diverses obtion de l'UserForm de ton annuaire.

J'essaye de le faire et je verrai.

Merci, g'claire
 

Discussions similaires

Réponses
5
Affichages
73

Membres actuellement en ligne

Statistiques des forums

Discussions
313 030
Messages
2 094 571
Membres
106 054
dernier inscrit
Mohajer