Discussion :

[Invité]

Dans le UserForm Modif la propriété name du control (regarde) et modifie en fonction du N° de colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.TextBox7 = ActiveWorkbook.Worksheets("Feuil1").Cells(L, 2)

En ce qui concerne Le 1er : quand je met une croix dans chauffeur dans le formulaire Ajout , le mot chauffeur ne s'inscrit pas en feuil1.
Il faut tester( If Me.Chauffeur.Value = True Then)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
End With
TextBox = ""
ActiveWorkbook.Worksheets("Feuil1").Cells(derligne, Val(Me.Chauffeur.Tag)) = ""
If Me.Chauffeur.Value = True Then ActiveWorkbook.Worksheets("Feuil1").Cells(derligne, Val(Me.Chauffeur.Tag)) = "Chauffeurs"
 
End
End Sub

[graphikris]

Ok je teste tout çà sinon dernière requête :
Je viens de créer un formulaire (supp_identité) avec une listbox comme dans le formulaire MODIF et un bouton de commande (validation).
Lorsque je clique sur ce bouton je voudrais supprimer non pas la ligne concernant le nom mais uniquement les infos contenus sur toute la ligne allant de A:IV
Comment faire ?

Encore merci

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim MyRange As Range
Dim L As Long
Set MyRange = ActiveWorkbook.Worksheets("Feuil1").Range("A:A")
L = MyRange.Find(Me.ListBox1_Noms).Row
Me.Tag = L
ActiveWorkbook.Worksheets("Feuil1").Range("j" & L & ":z" & L).clear
AND

[graphikris]

Y'a 1 hic, je suppose qu'a l'instruction 7 au lieu de AND c'est End, mais çà ne fonctionne pas, le code ne bug pas mais çà n'efface pas les infos dans Feuil1

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Worksheets("Feuil1").Range("PremiereCell" & L & ":DerrièreCell" & L).clear

[graphikris]

Donc comme je ne connais pas les cellules remplies , j'ai mis "A" en 1ere cellule et "IV" pour la dernière. Par contre çà m'efface les bordures de la ligne concernée.

Quelqu'un m'a donné une solution concernant le format de cellule lorsque je rempli le formulaire Ajout ou Modif afin que le format saisi soit identique a celui de ma feuil1. mais je suis sans réponse. Aurais tu une soluce ?

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Worksheets("Feuil1").Range("PremiereCell" & L & ":DerrièreCell" & L)=""

[graphikris]

Merci Nickel çà marche et si je veux effacer uniquement les cellules où il n'y a pas de formule car dans certaines colonnes (ex K et R), j'ai des formules se rattachant à d'autres feuilles ?

Sinon pas de soluce pour les formats de cellules ?

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim MyRange As Range
Dim L As Long
Dim C As Long
Set MyRange = ActiveWorkbook.Worksheets("Feuil1").Range("A:A")
L = MyRange.Find(Me.ListBox1_Noms).Row
Set MyRange = ActiveWorkbook.Worksheets("Feuil1").Range("A" & L & ":IV" & L)
For C = 1 To MyRange.Count
    If Left(MyRange(C).FormulaR1C1 & " ", 1) <> "=" Then MyRange(C) = ""
Next

[graphikris]

Je ne sais pas si çà fonctionne car celà prend + de 15 mn et ensuite Excel est bloqué.
Celà est il dû au recalcul ?
J'ai essayé de mettre dans le code la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()

Call Supp_Recalcul
Dim MyRange As Range
Dim L As Long
Dim C As Long
Set MyRange = ActiveWorkbook.Worksheets("Feuil1").Range("A:A")
L = MyRange.Find(Me.ListBox1_Noms).Row
Set MyRange = ActiveWorkbook.Worksheets("Feuil1").Range("A" & L & ":IV" & L)
For C = 1 To MyRange.Count
    If Left(MyRange(C).FormulaR1C1 & " ", 1) <> "=" Then MyRange(C) = ""
Next

Call Remet_Recalcul

End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Supp_Recalcul()
 
 
' supprime le recalcul des cellules
 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
End Sub
 
Private Sub Remet_Recalcul()
 
End Sub
 
' remet le recalcul des cellules
    Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
 
' Opération terminée
Sheets("Accueil").Select
CreateObject("Wscript.shell").Popup "Opération effectuée. " & Chr$(13) & Chr$(13) & Environ("username") & ", vous pouvez travailler en toute tranquilité.", 8, "Application 2013_TM.", vbExclamation
End Sub

mais çà refuse le code CALL dès le début

[Invité]

Bonjour,
UserForm FrmAjout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub CmdAnnuler_Click()
 
'code non trouvé a ce jour afin annuler la saisie et fermer le formulaire
End
End Sub
 
Private Sub CmdValider_Click()
Dim ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Long
 
With Worksheets("Feuil1")
derligne = .Range("a65536").End(xlUp).Row + 1
MiseEnForme .Cells(derligne, 1).Address
MyFormule derligne
For Each ctrl In FrmAjout.Controls
If TypeName(ctrl) = "TextBox" And Val(ctrl.Tag) > 0 Then
Sheets("Feuil1").Cells(derligne, Val(ctrl.Tag)) = ctrl
End If
Next
 
End With
TextBox = ""
End
ActiveWorkbook.Worksheets("Feuil1").Cells(derligne, Val(Me.Chauffeur.Tag)) = ""
If Me.Chauffeur.Value = True Then ActiveWorkbook.Worksheets("Feuil1").Cells(derligne, Val(Me.Chauffeur.Tag)) = "Chauffeurs"
 
End Sub
Sub MiseEnForme(MyCel As String)
 
    ActiveWorkbook.Worksheets("Feuil1").Range("A2:Q2").Copy
    Range(MyCel).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
Sub MyFormule(L As Long)
Dim C As Integer
For C = 1 To 17
 If Left(ActiveWorkbook.Worksheets("Feuil1").Cells(L - 1, C).FormulaR1C1 & " ", 1) <> "=" Then ActiveWorkbook.Worksheets("Feuil1").Cells(L, C).FormulaR1C1 = ActiveWorkbook.Worksheets("Feuil1").Cells(L - 1, C).FormulaR1C1
 
Next
End Sub

Supprimer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim MyRange As Range
Dim L As Long
Set MyRange = ActiveWorkbook.Worksheets("Feuil1").Range("A:A")
L = MyRange.Find(Me.ListBox1_Noms).Row
 ActiveWorkbook.Worksheets("Feuil1").Cells(L, 1).EntireRow.Delete
End Sub

Je te suggèrerai de créer un onglet Modèle Tableau dans le quel tu métrais que les titre en première ligne et les formule en deuxième, ça permettrait de recréer la mise en forme et les formule dans le cas où tu supprimerais toutes les lignes du tableau.

[patricktoulon]

bonjour a tous

vu que je suis partisans de me simplifier la vie
je me suis permis de te faire un exemple tres tres simple

comment ca marche :
tout d'abords j'ai renommé tes textboxs avec la lettre de la colonne correspondante dans le sheets("feuil1")

ensuite pour ajouter c'est le nom du contrôle et la dernière ligne utilisée
avec (.end(xlup).row+1)

ensuite pour modifier pareil les textbox ont comme nom la colonne correspondante dans le sheet

ensuite pour déterminer la ligne j'utilise le (nomdelalistbox.listindex +2)
pourquoi plus 2
parce que une listebox commence par l'indice 0 pour le premier item
et ton sheets commence sa liste en a2 donc le premier de la liste correspond a a la ligne 2 du sheets

voila recupere le vite j'ai besoins de place pour des contributions

si tu ne comprend pas demande n'hésite pas
voila au plaisir

[graphikris]

Bonjour Patrick de Toulon

Merci pour ton fichier, tu peux le supprimer mais ya 1 truc bizarre dans MODIF
pourquoi le n° 5 par exemple apparait lorsqu'on clique sur validation ?

Je vois bien que 5 correspond au 5ème nom mais pourquoi çà apparait ?

Je teste demain au boulot ton code et te dis au courant.

Sinon la question qui reste sans reponse : comment forcer les mises en formes car lorsqu'une donnée et saisie dans Ajout ou Modif et qu'elle vient se mettre dans Feuil1, la mise en forme des cellules de la feuil1 n'est pas conservée ? Ex dans colonne Validite V.A normalement si on saisi directement dans Feuil1 , en tapant 19/3/13 on obtient Mardi 19 Mars 2013 mais si je saisi dans le formulaire Ajout ou Modif çà reste 19/3/13 ? Idem pour le reste

Autre bug dans Modif sur Validité SA : si je saisi dans Feuil1 3/5/9 soit le 3 mai 2009, excel va inscrire DIMANCHE 3 mai 2009 par contre si je saisi 3/5/9 dans MODIF alors excel va inscrire : Jeudi 5 Mars 2009 ????????

Cordialement,

Bonjour,
En fait je me suis mal exprimer. En effet j'ai créé un FormSupp qui supprime toutes les données concernant une personne (grace à une listbox), mais je ne dois pas effacer certaines cellules qui contiennent des formules et non des données saisies directement grace aux FormAjout ou FormModif.
Ces cellules font des recalculs car formules du style (Index et Equiv) faisant references a d'autres feuilles.
Donc dois je mettre ce code dans FormSupp ?

Merci

[patricktoulon]

bonsoir

en fait j'avais mis un msgbox pour indiquer le numero de ligne
tu peut le supprimer


au plaisir

[graphikris]

OK D'accord mais au sujet des autres bugs ?????

[patricktoulon]

bonsoir

alors voyant que tu n'y arrive pas je me suis amusé a t'en faire un autre complètement différent en terme de code

je t'explique :
finalement que tu prenne l'un ou l'autre (userform) ca te fait pratiquement la meme action

inscrire ou modifier des données dans les texboxs et retranscription sur la première ligne libre pour le userform "frmajout" ou la ligne correspondant a l'item de la listebox

et bien je t'ai fait carrément une classe qui gère les deux userforms ainsi que leur contrôles

je me suis bien amusé
Ps: j'ai mis toutes les colonnes utilisées au format texte pour éviter d'avoir des surprise(celles qui te perturbaient visiblement )

n'hésite pas si tu ne comprend pas

essaie le comme ca directement avant de faire une éventuelle modification

recupere le vite merci
au plaisir

re
j'oubliais :
j'ai aussi fait en sorte que les textbox pour des date ou n° de telephone
sont formâtes directement
tu n'a pas besoins de taper les slashs pour les dates ou les espaces pour les numéros de telephones

au plaisir

[graphikris]

Bonjour et tout d'abord un grand merci.

En testant les formulaires, j'ai constaté quelques bugs que je ne saurais bien entendu incapable de resoudre. C'est pourquoi je te sollicite de nouveau.

Formulaire Ajout :
Le Nom prénom qui se trouve en colonne A doit avoir la casse suivante :
ex : DURAND-LE-GOC Pierre ( le nom doit etre entiérement en majuscules et le prénom en minuscule sauf la premiere lettre, càd dès qu'il y a un espace on passe obligatoirement au prénom).

Le N° APPEL est composé de lettres et de chiffres mais les lettres doivent etre en majuscules.

TEL Service est un N° de telephone à 5 chiffres uniquement : ex 26198

@ IntraNET est une adresse de messagerie dont le lien hypertexte est rattaché à l'adresse saisi : ex alain.affreuloup@orange.fr pour que lorsqu'on clique sur l'adresse celà puisse ouvrir le logiciel de messagerie associé en l'occurence OUTLOOK 2003.

@ Fonctionnel idem que précédemment

Concernant les différentes dates, elles ne pourront jamais être inférieures ou égales à la date de naissance.

Toujours pour les dates, elles doivent avoir le format suivant : jj/mm/aaaa
donc si je saisi 26/02/13 je dois avoir 26/02/2013.

Si je saisi une date incohérente du style : 26/20/13, je dois avoir un message d'incohérence lorsque je valide le formulaire.

La date de validité S.A (saisie) ne doit jamais etre inférieure a la date du jour [ aujourdhui() ]

Lorsque je clique (FORMAJOUT) dans la case chauffeur, le mot "Chauffeur" doit s'inscrire dans la colonne Rôles et si j'ouvre le (FORMMODIF) la croix dans chauffeur doit être présente si dans la colonne Rôles le mot "Chauffeur" apparaît et inversement.

Pour les 2 FORM, il doivent disparaître dès que je clique sur VALIDER OU ANNULER

Sinon pour un Formulaire supplémentaire intitulé par exemple : Suppression
avec 1 listbox du personnel et 2 boutons (1 suppresion & 1 annulation)
qui me permettrait de supprimer non pas la ligne correspondant à la personne selectionnée mais uniquement toutes les cellules de la ligne où se trouve la personne sélectionnée sans pour autant supprimer les cellules qui contiennent des formules.

En effet dans ma vraie base de données, j'ai pas mal de cellules avec des formules de recherche vers d'autres feuilles du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

{=SI(ESTERREUR(INDEX(Stages!$L$2:$L$999;EQUIV(1;(Stages!$A$2:$A$999=$A57)*(Stages!$I$2:$I$999=BN$1);0)));"";INDEX(Stages!$L$2:$L$999;EQUIV(1;(Stages!$A$2:$A$999=$A57)*(Stages!$I$2:$I$999=BN$1);0)))}

Je sais que j'en demande beaucoup mais je sais que je peux compter sur des personnes calées comme toi.

Merci sinon tu peux supprimer ton fichier : exemplepatricktoulon2.xls

[patricktoulon]

Bonjour graphikris

voila je l'ai un peu remanié afin de respecter les conditions que tu souhaitais

1-Pour les Noms Prénoms: la 1ère partie sera en majuscule et pour la 2 ème partie seule la première lettre le sera

2- pour le numéro d'appel :les caractères (lettre) seules seront en majuscule


3-pour le tel service :Tu ne peux pas taper plus de 5 chiffres et bien sur tu ne peut pas non plus taper un autre caractère que les chiffre de 0 a 9


4- pour les dates : elles sont for matées dynamiquement,tu ne peut pas taper une date incohérente et si tu ne respecte pas le format(jj/mm/yyyy) le textbox deviens rouge pour t'avertir que ca n'est pas bon


5- pour le téléphone la aussi c'est for maté automatiquement ex04 94 56 45 78)tu n'a qu'a taper les chiffres c'est tout


pour les chauffeurs c'est automatique aussi lors de la validation

il y a encore certainement moyen de l'améliorer je continu
au plaisir
enfin voila récupère ce nouvel exemple

[graphikris]

Patrick.

Très bien pour ces 2 formulaires que je viens de tester.
Néanmoins quelques bugs subsistent et si tu peux apporter quelques améliorations, je t'en re d'avance.

Formulaire AJOUT

Lorsqu'on saisi une date dans un format autre que jj/mm/aaaa, un msg apparait disant qu'il y a incohérence. Pour moi ce n'est pas un incohérence mais plutôt une erreur de saisie, le msgbox devrait indiquer : Veuillez saisir votre date au format suivant : jj/mm/aaaa

La Date d'arrivée ne peut pas être inférieure à la date de naissance

Grade comporte soit 3 caractères en Majuscules ou le mot Civil avec le C en Majuscule ou mieux Avoir une ListBox avec ceci dedans : CDT;CNE;LTT;MAJ;ADC;ADJ;SGC;SGT;CLC;CAL;AV1;AVT;Civil

@IntraNet ne fonctionne que si je supprime la lettre " r " après par exemple : toto@free.fr et que je la resaisie ensuite sinon le mailto ne fonctionne pas.

Mail fonctionnel ne fonctionne pas du tout.
Normalement çà devrait marcher comme @IntraNet

N° Identification doit être composé soit de 10 chiffres (pas + et surtout pas -) ou de : DEFA0000000000012345 (avec DEFA en majuscule suivi de 16 chiffres).

Indice : Maxi 5 chiffres ( pas + et pas - )

N° Appel : Ok pour la mise en forme mais Maxi 8 caractères

Validité V.A : Bug voir les comm de Date d'arrivée

Division : 1ère lettre en Majuscule et le reste en minuscules par contre si après la 1ère lettre il y a 1 point, 1 tiret ou 1 espace la lettre suivante devra être en majuscule : ex ( Management ) ou ( Opérations-Technique ) ou ( P.R.T.Y) ou ( Reception Métropole)

Service : 1ère lettre en Majuscule

Sinon le plus important si le NOM Prénom n'est pas saisi : Msgbox " Veuillez saisir une Identité ". Et impossibilité de Valider le formulaire

Le texte du Bouton Annulation peut il être en blanc car on le voit mal en noir.

Dernière requête : Voir Msg précédent concernant la possibilité de créer un Formulaire ' Supprimer une Identité ' .

Cordialement Graphikris.

[patricktoulon]

Bonjour

je t'ai donné un exemple que tu peux modifier pour paramétrer les contrôles
nous somme sur un forum d'entraide pas sur un site qui fait les devoirs a ta place
sachant que tu est administrateur de données tu est surement payé pour ca,pas moi!!
la moindre des choses se serait que tu essaye de comprendre ce que l'on te donne et par la suite essayer de poursuivre afin d'en faire un minimum
et non pas d'attendre un travail tout fait
je te remercie de ta compréhention

Au plaisir