XL 2016 Bouton VBA pour alimenter une base de donnée

Dudu2

XLDnaute Barbatruc

• 26 Octobre 2020

• #2

Bonjour,
Quid si on appuie 5 fois de suite sur le bouton ? La même ligne est copiée 5 fois ?
Ou bien la copie vide la cellule du nombre d'heures ?

 

Vote positif 0 Vote négatif

!xmusaton

XLDnaute Nouveau

• 26 Octobre 2020

• #3

Bonjour Dudu2, merci de votre réactivité.
Idéalement on appuie sur le bouton une seule fois quand on aura fini de taper les heures, et là ça crée une ou plusieurs lignes dans le tableau BD selon le nombre de cellules contenant l'heure indiquée.
Autrement dit, il check la colonne C, si la cellule est NON VIDE il crée une ligne dans la BD en copiant l'heure indiquée dans cette cellule, l'ID du projet correspondant et le NOM+SERVICE+SEMAINE+DATE D'encodage.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Octobre 2020

• #4

Ok, et je répète ma question car tu ne l'as pas vraiment lue...
Quid si on appuie 5 fois de suite sur le bouton ? Les lignes contenant des heures sont copiées 5 fois ?

En d'autres termes, pour éviter de copier plusieurs fois la même chose, faut-il effacer les heures de la colonne Heures une fois la copie terminée ?

 

Vote positif 0 Vote négatif

!xmusaton

XLDnaute Nouveau

• 26 Octobre 2020

• #5

AH d'accord désolée.. Bien vu, OUI quand on appuie sur le bouton et que c'est copié dans la BD il serait mieux d'effacer les heures de la colonne Heures une fois la copie terminée

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Octobre 2020

• #6

Ok je te fais le code.
Il eut mieux valu utiliser des tableaux structurés pour éviter du paramétrage dans le code du genre:

VB:

Public Const NomFeuilleFormulaire = "Formulaire"
Public Const FeuilleFormulaire_CelluleDateDencodage = "B1"
Public Const FeuilleFormulaire_CelluleSemaine = "B3"
Public Const FeuilleFormulaire_CelluleNom = "B4"
Public Const FeuilleFormulaire_CelluleService = "B5"
Public Const FeuilleFormulaire_NoColonneIdProjet = 1
Public Const FeuilleFormulaire_NoColonneNomProjet = 1
Public Const FeuilleFormulaire_NoColonneHeures = 3
Public Const FeuilleFormulaire_NoPremièreLigneDonnées = 8

Public Const NomFeuilleBD = "BD"
Public Const FeuilleBD_NoColonneNom = 1
Public Const FeuilleBD_NoColonneService = 2
Public Const FeuilleBD_NoColonneSemaine = 3
Public Const FeuilleBD_NoColonneIdProjet = 4
Public Const FeuilleBD_NoColonneNomProjet = 5
Public Const FeuilleBD_NoColonneHeures = 6
Public Const FeuilleBD_NoColonneDateDencodage = 7
Public Const FeuilleBD_NoPremièreLigneDonnées = 2

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Octobre 2020

• #7

Un fichier...

 

Pièces jointes

• testR.xlsm

  26 KB · Affichages: 16

Vote positif 0 Vote négatif

!xmusaton

XLDnaute Nouveau

• 26 Octobre 2020

• #8

C'est super Merci! sauf que quand je copie le code dans mon fichier de base là ou il y a dejà une base de données pré-encodée, j'obtient toujours les lignes ajoutées en premier et non pas à la fin du tableau..

Que dois-je changer au niveau du code dans ce cas? (dsl si la question parait débile mais je viens de débuter sur VB)

Merci à toi encore xx

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Octobre 2020

• #9

Je ne sais pas. Ça marche avec le fichier de test que tu as envoyé.
Ton tableau BD dans ton fichier réel n'est sûrement pas positionné de la même façon, et il faut donc adapter les paramètres (constantes). Mais je ne peux pas deviner.
Envoie un screenshot du haut de ce tableau avec les entêtes de colonnes (A, B, C, ...) et de lignes (1, 2, 3, ...)
En utilisant un tableau structuré, ce problème ne se poserait pas.

 

Vote positif 0 Vote négatif

!xmusaton

XLDnaute Nouveau

• 26 Octobre 2020

• #10

Tu as raison, tout fonctionne nickel!
Milles mercis )))

 

Vote positif 0 Vote négatif

!xmusaton

XLDnaute Nouveau

• 23 Novembre 2020

• #11

Bonjour Dudu2,

Je reviens vers toi avec le même fichier.
En fait au niveau de la cellule "Nom" dans la feuille "Formulaire", j'ai ajouté un menu déroulant avec les noms déjà encodés dans la BD, je voudrais qu'on choisissant le nom, les heures encodées auparavant pour le nom choisi s'affichent également, et qu'on peut faire une modif si l'on souhaite.. et en cliquant sur ajouter ça alimente la base de données de nouveau (en copiant la totalité ce qui a été modifé ou pas modifié)

Voici le fichier,
Merci beaucoup par avance

 

Pièces jointes

• testR (1).xlsm

  35.2 KB · Affichages: 8

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Novembre 2020

• #12

Bonjour,
Voilà le fichier du tout frais matin et modifié pour tenir compte des posts suivants.

 

Pièces jointes

• testR (1).xlsm

  32.5 KB · Affichages: 17

Dernière édition: 25 Novembre 2020

Vote positif 0 Vote négatif

!xmusaton

XLDnaute Nouveau

• 25 Novembre 2020

• #13

Salut Dudu2
C'est déjà TOP merci beaucoup.
Sauf que les valeurs du choix du Nom précédent reste affichées quand je change de nom.
Exemple, quand je sélectionne Nom-XXX , j'ai deux valeurs 8 et 5 ok nickel , Puis quand je change le Nom en ZZZ j'ai les valeurs du XXX qui restent affichées aussi... je souhaite que ça m'affiche juste les valeurs du nouveau choix (ZZZ)

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Novembre 2020

• #14

Ah parce qu'il faut effacer avant ?
Je croyais que tu voulais les rappeler pour les modifier éventuellement puis les ajouter dans la BD avant de passer à un autre nom.
J'ai modifié le fichier ci-dessus à reprendre.

 

Vote positif 0 Vote négatif

!xmusaton

XLDnaute Nouveau

• 2 Décembre 2020

• #15

Excellentissime
Merci Dudu2

 

Vote positif 0 Vote négatif