automatisation tableau excel Résolu/Fermé

Question

Bonjour, 

Je voudrais savoir s'il y a un moyen pour automatiser mon projet.
Sur la feuil DIV_1 il y a des comptes que j'ai créé manuellement .Peut on les créer
 automatiquement.
Dés que je rentrerais  un nom de compte dans la feuille DONNEES le compte se créerait à l'identique de ce que j'ai fait manuellement,avec la possibilité d'ajouter une ligne automatique si besoin
	https://www.cjoint.com/?DEjkmBxWzk5
Cordialement


	
Configuration: Windows 7 / Firefox 29.0

jc80 · Answer

Re bonjour

Pas de solution à mon problème?
Cordialement

Le Pingou · Answer

Bonjour,
C'est certainement possible...... par contre fichier inutilisable car la signature numérique, des macros, n'est pas valide.
Désolé.

jc80 · Answer

Bonjour Le Pingou

Merci pour ta réponse.
Tu me dis "inutilisable signature numérique des macros pas valide"
moi j'ouvre sans problème.
Peux tu me dire comment procéder pour que tu puisses avoir accés.
Cordialement

Le Pingou · Answer

Bonjour,
Eh bien c'est la même chose, voir pièce jointe.
Le fichier : https://www.cjoint.com/?DEksAKZbj5y
En tant que propriétaire du classeur, c'est à vous régler le problème de signature numérique.

jc80 · Answer

Nouveau fichier	

https://www.cjoint.com/?DEks6t1FCmQ
Crdlt

Le Pingou · Answer

Bonjour,
Désolé toujours le même problème.
Vous devez supprimer la signature numérique que vous avez crée

jc80 · Answer

Bonjour,

Désolé mais là je commence à être dépassé;
ci-joint fichier et photo écran signature numérique

https://www.cjoint.com/?DEllYjALw92 
https://www.cjoint.com/?DEllY2XVhXd
Merci pour ton aide
Cordialement

Le Pingou · Answer

Bonjour,
Merci pour l'information.
Je vais détourner le problème, la proposition suivra, patience.

Le Pingou · Answer

Bonjour,
Voir sur feuille [Données], libre à vous de déclencher la procédure sur un événement !
Le fichier partiellement reconstitué : https://www.cjoint.com/?3Emk2V0xk9D

jc80 · Answer

Bonjour

Merci pour ta réponse ,c'est exactement ce que je voulais.
Si il n'a pas assez de ligne dans un compte un ajout automatique est-il réalisable?

Petit souci  au niveau du calandar là il y a un  bug?
J'ai fait un essai et j'ai le message suivant:
             erreur d'exécution  "13"   incompatibilité de type
Quand je clique sur  débogage  j'ai cela:
F01.Range("B" & Nlig).Value = DateValue(TxtDate.Text)   qui se met en jaune
Cordialement

Le Pingou · Answer

Bonjour,
Concernant le calendrier, c'est normal car j'ai aussi eu le message d'erreur chez-moi et cela est dû à la référence de projet qui est certainement manquante, Du fait que j'ai reconstitué votre fichier (cause signature numérique non valide) et que je suis sous MSO 2013 il vous faut  voir, dans éditeur  Visual Basic, sous  outils/références et contrôler que vous ayez la bonne bibliothèque cochée, sauf erreur de ma part pour votre version Excel : Microsoft Calendar Control 10.1 !

S'il n'a pas assez de ligne dans un compte un ajout automatique est-il réalisable?
Réponse : cela vous le faite manuellement de cas en cas, par contre il y aura un disfonctionnement de ma procédure car elle est basé sur un bloc de 5 colonnes et 34 lignes y compris les formules.
Je vais corriger la procédure.

jc80 · Answer

Bonjour

Pas trouvé Microsoft Calendar Control 10.1 
Simplement trouvé MSO 12.0  Object library

Par contre pour éviter cette inconvénient de calendrier,est-il possible de mettre
un code VBA exemple en B1=si(c1="";"";date)  une date qui corresponde
au moment de l'entrée d'une opération.
Cordialement

Le Pingou · Answer

Bonjour,
Je vous fais remarquer que l'application utilise le [Calendar] ainsi que les procédures y relatives, par conséquent il est préférable de remettre en place la bonne bibliothèque de référence.
Il faut la chercher dans la liste ..... !
C'est votre application donc ce devrait-être facile de la retrouver... non !
Qu'elle est la version de votre Excel ?

Le Pingou · Answer

Bonjour,
Regarder dans votre fichier original qu'elle est le nom exact de la bibliothèque ... !

jc80 · Answer

re bonjour

version excel 2007

Le Pingou · Answer

Bonjour,
Merci, vous devriez trouver : 
Microsoft Calendar control 2007     ou      Contrôle calendrier 12.0 
C'est votre application donc ce devrait-être facile de la retrouver... non !

jc80 · Answer

Dans le fichier d'origine je trouve bien Microsoft Calendar control 2007

jc80 · Answer

Dans quel document dois-je chercher?
Mon fichier d'origine la case est cochée.
Le fichier que tu as modifié je ne trouve pas Microsoft Calendar control 2007
Je commence à perdre les pédales!!

Le Pingou · Answer

Bonjour,
Est-ce que le document d'origine est de vous ?

Le Pingou · Answer

Bonjour,
Essayer cette manipulation :
Ouvrir le fichier que je vous proposé, ensuite :
- ALT +F11
- Insertion - USERFORM
- Boite à outils puis clic droit sur la partie grise
- Contrôle supplémentaire va apparaitre
- choisir Contrôle calendrier 12.0
- OK
Sous Outils Références vous devriez avoir le [Microsoft Calendar control 2007]

Le Pingou · Answer

Bonjour jc80,
Essayer cette version sans le formulaire [U_Calandat] et dans le  [frmSaisie] le remplacement de la zone de texte date par le contrôle [DTPiker2].
Le fichier modifié : https://www.cjoint.com/?3Eok6bqQMcW
 
 
Salutations.
Le Pingou

jc80 · Answer

Bonjour Le Pingou

Merci pour toutes tes réponses et pour ta patience.
Pour le calandar  le problème est résolu,cela fonctionne correctement.
Je viens de m'apercevoir qu'un autre problème existe :
Dans la feuille saisie tu as les colonnes  ENTRÉE et SORTIE,si l'on rentre une saisie dans la colonne ENTRÉE pas de problème elle figure bien dans le tableau concerné.
En ce qui concerne la colonne SORTIE le montant ne figure pas dans le tableau
il y a simplement un 0 au lieu du montant.

Le Pingou · Answer

Bonjour,
Sur la dernière version il me semble que c'est correct, j'ai réalisé 2 essais, voir les 2 dernières lignes ........ !
Ou y-a-t-il un autre problème ou sur l'autre version .... ?

jc80 · Answer

Bonsoir Le Pingou

Tout fonctionne pour le mieux.
J'ai apporté une modification  dans la feuille DIV 1,j'ai ajouté une colonne dans le tableau (Dépénses).
Donc en colonne A   date  en B libéllé en C mode de paiement en D  recettes en 
E  Dépenses  et F colonnes de couleur pour séparer les tableaux.

Ci-dessous ton code VBA peux tu me dire ce que je dois modifier pour que le 
tableau  se copie quand je rentre un nouveau compte;
Cela ne fonctionne plus puisqu'il y a 6 colonnes au lieu de 5

Option Explicit
Sub crernvcompte()
Dim pas As Integer, decol As Integer, deli As Integer
Dim cpt As Variant
pas = 5
For Each cpt In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If WorksheetFunction.CountIf(Sheets("Div-1").Rows(1), cpt) = 0 Then
'        MsgBox "Nouveau compte " & cpt
        With Sheets("Div-1")
            decol = .Cells(1, Columns.Count).End(xlToLeft).Column
            deli = .Cells(Rows.Count, decol).End(xlUp).Row
            .Range(.Cells(1, decol), .Cells(deli, (decol + pas - 1))).Copy
            .Range(.Cells(1, (decol + pas)), .Cells(1, (decol + pas))).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                , SkipBlanks:=False, Transpose:=False
            .Range(.Cells(1, (decol + pas)), .Cells(1, (decol + pas))).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
            .Range(.Cells(1, (decol + pas)), .Cells(1, (decol + pas))).Value = cpt.Value
        End With
    End If
Next cpt
End Sub
Sub testaddresse()
Dim pas As Integer, decol As Integer, deli As Integer
Dim adr1, adr2
pas = 5
decol = Cells(1, Columns.Count).End(xlToLeft).Column
deli = Cells(Rows.Count, decol).End(xlUp).Row

adr1 = Range(Cells(1, decol), Cells(deli, (decol + pas - 1))).Address
adr2 = Range(Cells(1, decol), Cells(deli, (decol + pas - 1))).Offset(0, 5).Address

End Sub

Nous sommes près du résultat escompté,
Merci encore
Cordialement

Le Pingou · Answer

Bonjour,
Eh bien, dans la procédure [crernvcompte] vous modifier la valeur de la variable [pas =5] en [pas=6].

jc80 · Answer

Bonjour

C'est ce que j'ai fait cela ne fonctionne pas dans le code la phrase suivante
apparait en jaune:
.Range(.Cells(1, (decol + pas)), .Cells(1, (decol + pas))).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                , SkipBlanks:=False, Transpose:=False
Cordialement

Le Pingou · Answer

Bonjour,
Eh bien il y a des cellules fusionnées en ligne 34 dès la colonne [AQ] ce qui est la source du problème.
Vous supprimez la fusion de ces cellule, dès colonne [[AQ34 :IV34] et tout rentrera dans l'ordre.
 
 
Salutations.
Le Pingou

jc80 · Answer

Re bonjour

merci  encore
le problème des cellules fusionnées est résolu
Tout semble maintenant fonctionner à merveilles 
Bonne continuation
Cordialement

ps: je passe en résolu

jc80 · Answer

Bonsoir Le Pingou

	https://www.cjoint.com/?DEsvZh7NhZ9 

Dans le dernier fichier que vous m'avez renvoyé aprés modification pour consulter
les comptes,il y a un problème lors de la création d'un nouveau compte,il n'y a que la dernière colonne qui s'installe au lieu de la totalité.
La totalité des comptes a installer est d'environ 200
Cordialement

Le Pingou · Answer

Bonjour,
Concernant :
La totalité des comptes à installer est d'environ 200
Une feuille Excel en version xls (1996-2003) comporte 256 colonnes donc au maximum 42 comptes.
Pour l'autre problème je vais regarder plus tard.

jc80 · Answer

Bonsoir

ok merci pour votre réponse

Pour excel je suis en version 2007
Cordialement

Le Pingou · Answer

Bonjour,
Eh bien c'est normale que cela ne fonctionne plus car vous avez modifié la structure de vos comptes en supprimant le total en bas de plage du compte (anciennement ligne 34) et vous l'avez insérée dans la ligne des titre de compte ce qui fausse la recherche de la procédure.

jc80 · Answer

Bonjour

Merci pour votre réponse cela fonctionne à nouveau.
Cordialement

Le Pingou · Answer

Bonjour,
Merci pour l'information.
J'ai une petite remarque, au lieu d'avoir une multitude de formule dans la feuille des comptes (ligne 3 à 180) probablement utilisez pour 10 lignes par année en moyenne, vous avez réalisé un formulaire de saisie et il serait judicieux dans profiter pour renseigner directement le compte concernée  en même temps que vous renseignez la feuille de saisie ....Oui / Non!

jc80 · Answer

re bonjour
C'est possible ,mais là je ne sais pas faire.
j'ai 67 ans et mes connaissances en informatique sont assez limitées.
Me suis mis a l'informatique il n'y a que 5 ans depuis ma retraite.

Cordialement

Le Pingou · Answer

Bonjour,
Merci de la réponse.
De mon côté j'ai un peu plus que vous et l'informatique est à l'inverse de mon domaine.
Mais bon tout s'apprend avec un peu de temps et de la curiosité.
L'essentielle est que votre application vous apporte les résultats que vous souhaité avoir.
Petit conseil, enregistrer votre classeur en version [xlsm] (version de MSO 2007) est les limites de ligne  et colonne passeront de  (256/65'538  à 16'384  / 1'048'576)  ce qui permettra d'avoir les 200 comptes sur la même feuille.

jc80 · Answer

Re bonjour

Comment procéder pour limiter les formules trop importantes comme vous l'expliquer un peu plus au-dessus?
Cordialement

Le Pingou · Answer

Bonjour,
Eh bien lorsque vous réalisez une nouvelle saisie et que vous la valider (cmde [AJOUTER]) la procédure [CmdAjouter_Click] insère les données dans la feuille de saisie, on profite de l'occasion en ajoutant  une instruction qui va mettre les valeurs adéquate dans le bon compte.
Je vous fais cela pour demain avec explication des lignes de code.

Le Pingou · Answer

Bonjour,
La proposition, sans les formules en feuille [Div-1, directement depuis le formulaire de saisie.
Votre fichier, en version 2007 (xlsm) : https://www.cjoint.com/?3EuouWUarh2

jc80 · Answer

Bonjour Le Pingou,

Un souci quand j'effectue une opération (feuille saisie colonne entrée) j'ai un bug:
erreur d'execution 13  incompatibilité de type
voir ci-dessous copie d'écran
	https://www.cjoint.com/c/DEupKOtQvGh 
et pour une écriture  en colonne sortie 
c'est cette ligne qui se met en jaune
.Cells(delis, 5).Value = CDbl(Me.TxtEntrée)
Cordialement

Le Pingou · Answer

Bonjour,
Eh oui il y a un petit manque dans le formulaire de saisie lors de l'utilisation des nombres, je vais corrigé. 
Note : en attendant essayer de mettre au minimum [0] dans recettes/dépense.
 
Salutations.
Le Pingou

Le Pingou · Answer

Bonsoir jc80,
Voici votre fichier adapter pour prendre en compte que recette/dépense sont des nombres : https://www.cjoint.com/?3EuweduvoA6
Note : par modification de l'initialisation du formulaire voir : [Private Sub UserForm_Activate()]

jc80 · Answer

Bonjour

Merci pour votre aide 
Toujours un bug voir copie écran ci-dessous
 https://www.cjoint.com/?DEvoQs1Wabt 
Cordialement

PS:Je viens de m'apercevoir qu'il faut taper la virgule du clavier au lieu le point du
pavé numérique

Le Pingou · Answer

Bonjour jc80,
Je suppose que votre système utilise la virgule comme séparateur décimal.
Est-ce que lorsque vous entrer un nombre avec une virgule dans le formulaire c'est bon ou avez-vous la faute ?

Note: si vous préférez le point comme séparateur décimal il faut modifier le paramètre dans les options!

jc80 · Answer

Re Bonjour

Quand je rentre un nombre dans le formulaire avec une virgule pas de problème.
J'ai l'erreur quand je met le point du pavé numérique,depuis toujours j'ai pratiqué de cette façon.
J'ai essayé de modifier les paramètres mais rien n'a changé, il y a toujours le bug 
sur les lignes cités auparavant (passage en jaune).
Cordialement

PS j'ai réussi à modifier en passant par panneau de configuration>>région et langue

Le Pingou · Answer

Bonjour jc80,
Avez-vous les mêmes paramètres que sur le document : https://www.cjoint.com/?3EvvrMFr52e

jc80 · Answer

Bonjour Le Pingou

Je viens de vérifier exactement les mêmes paramètres que vous.
Cordialement

Le Pingou · Answer

Bonjour jc80,
Merci.
Est-ce que cela fonctionne correctement en utilisant le point ...... ?

jc80 · Answer

Tout fonctionne bien .
Encore merci pour votre aide.
Cordialement

Automatisation tableau excel

49 réponses