Discussion :

[tico06]

Bonjour a tous,

Débutant en programmation VBA j'essaye de créer une base de donnée excel permettant de tenir a jour les membres d'une association sportive (voir fichier joins)
Ce fichier comporte deux boutons.
-1 permettant de remplir mon tableau via les éléments rentré dans une boite de dialogue
-un 2eme permettant de trier les membres.

Le code écrit (surement très maladroitement) pour la saisie des membres ne fonctionne pas.
Ce code a été inspiré de macro vba enregistré et que j'ai essayé de reproduire.

Si une âme charitable peu m'aider
merci d'avance

[halaster08]

Bonjour,

Pas de code, pas de réponses: http://www.developpez.net/forums/d84...s-discussions/

Le code écrit (surement très maladroitement) pour la saisie des membres ne fonctionne pas.

Un message d'erreur?si oui lequel et a quelle ligne?
Si non quel résultat obtiens tu?

[tico06]

Bonjour,

Le problème est que le temps pour copier les données rentrées dans ma boite de dialogue dans mon tableau prend énormément de temps et excel ne répond plus. Je dois donc fermer le programme.
Je n'ai malheureusement pas de code erreur particulier.

Merci d'avance pour votre aide

[Menhir]

Au lieu de te lancer dans la construction d'une usine à gaz, je te conseille de voir s'il n'existe pas des outils qui répondent déjà à ton besoin.
Pour le monde associatif, il existe déjà beaucoup de choses, y compris en français et gratuits. Regarde ça :
http://galette.eu
http://faiteslescomptes.fr/
http://framakey.org/Pack/Framakey-Asso
http://guide.libreassociation.info/

Si tu persistes dans ta voie, demande-toi si le formulaire que tu as créé apporte une réelle plus-value à la saisie des informations adhérent.
J'ai participé à la gestion de plusieurs association et JAMAIS je n'ai ressenti de besoin d'avoir plus qu'un simple tableau pour gérer la saisie des adhérents.
Il faut parfois prendre un peu de recul et se demander si on ne fait pas plus compliqué que nécessaire.

[tico06]

Merci pour tes liens
J'avoue ce fichier a aussi (je devrais dire principalement ) un but ludique
n'ayant jamais fait de programmation j'ai découvert le VBA avec quelques macro et j'ai voulu essayer de pousser un peu

[halaster08]

Je suis trop jeune pour radoter mais ...

Pas de code, pas de réponses

Si tu ne nous montre pas ton code (avec la balise code de préférence), on ne peut rien pour t'aider.

[halaster08]

Le problème est que le temps pour copier les données rentrées dans ma boite de dialogue dans mon tableau prend énormément de temps et excel ne répond plus. Je dois donc fermer le programme.
Je n'ai malheureusement pas de code erreur particulier.

As tu essayé de lancé la macro en mode pas à pas ( touche F8) pour voir a quel moment survient le problème?

[tico06]

Halaster08 après avoir lancée mes macro en mode pas a pas le problème se situerais a ce niveau :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'bouton Ajouter boite de dialogue'

Private Sub CommandButton1_Click()
Dim L As Integer 'définition de la variable'

If MsgBox("confirmer l'insertion du contact", vbYesNo, "demande de confirmation d'ajout") = vbYes Then 'affichage message de confirmation"

L = Sheets("feuil1").Range("a500").End(xlUp).Row + 1 'place a la ligne 500 et remonte jusqu'a la premiére ligne vide du tableau'
Range("A" & L - 1 & ":S" & L - 1).Copy 'copie la mise enforme de la ligne du dessus'
Range("A" & L & ":S" & L).PasteSpecial Paste:=xlPasteAll 'mise en forme'
Range("A" & L & ":S" & L).PasteSpecial Paste:=xlPasteFormulas 'recopie les formules de la ligne du dessus'
Range("A" & L & ":S" & L).PasteSpecial Paste:=xlPasteAllMergingConditionalFormats 'recopie forme conditionelle de la ligne du dessus'
Application.CutCopyMode = False 'efface le mode copy dans la feuiile excel'

Merci pour votre aide

[Menhir]

Code :

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

1
2
3
4
Range("A" & L - 1 & ":S" & L - 1).Copy 'copie la mise enforme de la ligne du dessus'
Range("A" & L & ":S" & L).PasteSpecial Paste:=xlPasteAll 'mise en forme'
Range("A" & L & ":S" & L).PasteSpecial Paste:=xlPasteFormulas 'recopie les formules de la ligne du dessus'
Range("A" & L & ":S" & L).PasteSpecial Paste:=xlPasteAllMergingConditionalFormats 'recopie forme conditionelle de la ligne du dessus'

Pourquoi avoir fait un PasteFormulas et xlPasteAllMergingConditionalFormats après un PasteAll ???
C'est redondant.

Ne serait-il pas plus simple de remplacer ces quatre lignes par un simple :

Code :

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

Rows(L - 1).Copy Rows(L)