Ajout a la fin de ma BD

[Manu62]

Bonjour à tous,

Je voudrais via un bouton, ajouter une liste de données (qui se trouve dans une feuille a part)
dans ma base de donnée. Apres la derniere valeure si possible.
Avant d'alimenter la base, si je peux avoir un message.

Je pense avoir plusieurs feuille de saisie qui vons alimenter la BD.

Merci à tous,

je vous poste mon fichier avec commentaires.

Manu

 

[skoobi]

Re : Ajout a la fin de ma BD

Bonjour,

voici un exemple de code à associer au bouton:

Sub ajout_bd()
Dim suite As Range
With Sheets("bd")
   Set suite = .[A1].End(xlDown).Offset(1, 0)
End With
rep = MsgBox("êtes vous sur d'ajouter les données?", vbExclamation + vbYesNo)
If rep = vbNo Then Exit Sub
Range([A2], [D2].End(xlDown)).Copy suite
End Sub

 

[Gruick]

Re : Ajout a la fin de ma BD

Bonjour Manu62

une petite macro

Sub Macro1()
If MsgBox("On y va ?", vbYesNo) = vbNo Then Exit Sub
For i = 2 To Sheets("saisie").Cells(2 ^ 16, 1).End(xlUp).Row
For j = 1 To Sheets("saisie").Cells(i, 256).End(xlToLeft).Column
Sheets("bd").Cells(2 ^ 16, j).End(xlUp)(2) = Sheets("saisie").Cells(i, j)
Next j
Next i
Msgbox "FINI"
End Sub

A plus,
Gruick

edit :

Oink !!! Le papillon alsacien est plus rapide que le cochon de parisien... Salut Skooby

 

[Manu62]

Re : Ajout a la fin de ma BD

gruick, skoobi

Merci pour vos 2 codes fonctionne pas mal.

Cependant, j'ai une petite anomalie.

En fait ma plage de copie de trouve au dessus d'un formulaire.
Lorsque je lance la macro de gruick, je veux qu'il va chercher les valeurs a copier de la ligne 2 à 16 seulement. Tandis que la, il va plus loin dans la feuille.
Deplus, dans ma zone de valeurs, il ya des formules qui vont chercher les valeurs si "";"" par exemple

merci de votre aide

Manu

 

[Gruick]

Re : Ajout a la fin de ma BD

re,
Faut changer les "bornes" du bas donc.
Si la selection est continue tu remplaces

For i = 2 To Sheets("saisie").Cells(2 ^ 16, 1).End(xlUp).Row

par

For i = 2 To Sheets("saisie").Cells(2, 1).End(xlDown).Row

,
et tu ajoutes le mot .value à la ligne de recopie, qui devient

Sheets("bd").Cells(2 ^ 16, j).End(xlUp)(2) = Sheets("saisie").Cells(i, j).Value

,

en ayant pris soin de laisser quelques lignes vides entre tes données et ton formulaire.

Ca devrait aller.
Tiens moi au courant (aucune allusion à un chanteur disparu voici 30 ans)

Gruick

Edit : Dans ton exemple, pas de trace de formules, donc j'avais fait cette macro en en tenant compte.
Celle de Skooby aussi et avec les couleurs. Il faut donc faire un collage spécial valeurs.

 

[Manu62]

Re : Ajout a la fin de ma BD

re

j'ai mis mon exemple

Merci

manu

 

[Manu62]

Re : Ajout a la fin de ma BD

Gruick,

Ton dernier code fonctionne a merveille.

Peux tu me dire comment je peux ajouter a la suite le formatage d'une zone
a1 à f1 par exemple de la feuille saisie

Merci bcp

Manu

 

[Gruick]

Re : Ajout a la fin de ma BD

re,
Je ne comprends pas ta question sur le formatage. Peux tu préciser.
D'autre part, pourquoi y a-t-il un "masque de saisie", puisqu'il est recopié en haut, autant saisir directement en haut.

PS : N'attends pas de réponse de ma part avant demain, j'ai aussi une vie hors XLD....

A demain donc

Gruick

 

[skoobi]

Re : Ajout a la fin de ma BD

Bonjour Manu62

edit :

Oink !!! Le papillon alsacien est plus rapide que le cochon de parisien... Salut Skooby

Re,

Salut Gruick,

J'ai du me rabattre sur le papillon car JNP à la cigogne .
A Paris c'est plutôt la baguette non?
Joyeuses Pâques.

 

[Manu62]

Re : Ajout a la fin de ma BD

Bonjour à tous,

Comment peux t'on filtrer des éléments en fonction de :

Cf mon fichier se sera plus parlant dans le cadre jaune.

Merci de votre aide à tous.

Manu

 

[Gruick]

Re : Ajout a la fin de ma BD

Bonjour,

Ci-joint le fichier.
Il faut faire quelques manipulations :
- d'abord remettre en calcul automatique.
- ensuite nommer les zones concernées bdd, critères et extraction. tu verras sur le fichier.
- et puis une petite macro évenementielle attachée à la feuille "bd", qui est un filtre élaboré et qui se chargera d'extraire selon ton critère à chaque fois qu'il changera. (ton 5). Je verrai bien une petite liste de validation dabs cette cellule K38

Ceci dit, je ne sais pas où tu veux aller, car le simple filtre automatique fait la même chose, visualise directement sans changer les données. (au boulot, j'avais des tableaux de 40.000 lignes).

Le mieux serait de nous exposer ton cas en entier, qu'on puisse voir les tenants et les aboutissants, parce que là, en avançant en étapes, on peut faire des choses certes belles mais qui pourraient s'avérer inutiles ensuite.

A plus,
Gruick

 

[Manu62]

Re : Ajout a la fin de ma BD

Gruick,

Je voudrais bien, mais comment passer un fichier avec 3 000 Ko ?

Je voudrais effectivement faire profité tous le monde...

Je regarde ce que tu ma faits, merci

Manu

 

[Manu62]

Re : Ajout a la fin de ma BD

Gruick,

Ou se trouve la macro ?

A mon avis, sur ce coup j'suis hors jeu.



MAnu

 

[Manu62]

Re : Ajout a la fin de ma BD

Ben

j'essaie de refaire le filtre, mais sa beug !

La premiere colonne doit être = a mon champs de recherche ?

Manu

 

[Gruick]

Re : Ajout a la fin de ma BD

j'essaie de refaire le filtre, mais sa beug !
La premiere colonne doit être = a mon champs de recherche ?

Manu

ça bogue, ou ça ne fait rien ?
As-tu bien mis en calcul automatique ?

Normalement, tu n'as qu'un chiffre ou une référence en K38 à mettre, le reste se fait automatiquement.

Ta Base de données est constituée de tes colonnes de A à E,
ta zone de critères est composée de l'en-tête de tes colonnes, suivi d'une ligne ou s'inscrit le critère, ici par la formule =k38
et ta zone d'extraction tout ce qui suit ta zone de critères de G47 à K65536.

Courage, on y est presque,

Gruick