Excel10 Ligne vierge de saisie haut tableau Résolu/Fermé

Question

Bonjour, 

Je suis en train de créer un tableau de saisie de chantiers d'entretien.
Le but est de venir le compléter régulièrement avec de nouveaux chantiers  par l'utilisateur.
Je souhaitais savoir s'il était possible d'avoir une ligne blanche en première ligne de tableau qui permet la saisie d'un nouveau chantier. Et qu'après cette saisie, le chantier vient se mettre à la suite du tableau en bas.
Cela éviterai à l'utlisateur de descendre tout en bas du tableau à chaque nouveau chantier...

Merci beaucoup pour les réponses que vous pourrez m'apporter !

Cordialement,

Mike-31 · Answer

Salut,

Oui bien sur mais en VBA si tu as quelques notions

Marine63 · Answer

C'est là qu'est l'os hélas..

Un petit exemple à me donner s'il vous plait Mike-31 !!

Mike-31 · Answer

Re,

Pour faire simple, si tu veux déplacer les données de la plage A2 à K2 sur la première ligne vide de ton tableau

il faut ouvir le visual clic en même temps les toches Alt et la F11, insérer un module et coller ce code à associer à un bouton

Sub Déplace()
     Range("A2:K2").Cut
     Range("A65536").End(xlUp)(2, 1).Select
     ActiveSheet.Paste
    [A2].Select
End Sub

Marine63 · Answer

hum hum... lol
Bon je crois que c'est un peu compliqué pour moi...
Mais merci quand même!!!

Je vais tenter comme cela, sinon pas grave, nous resterons sur une ancienne méthode !!

Bonne fin de journée !

Mike-31 · Answer

Re,

ne baisse pas les bras comme cela,

on va essayer de faire encore plus simple,
 (si tu me donne ta version excel je te donnerai point par point le cheminement
pour créer sur ta feuille un bouton activeX )

Private Sub CommandButton1_Click()
Range("A2:K2").Cut
Range("A65536").End(xlUp)(2, 1).Select
ActiveSheet.Paste
[A2].Select
End Sub

regarde le fichier joint, sur la ligne2 de A2 à K2 tu saisis des données et tu clic sur le bouton

https://www.cjoint.com/?BCflVdQ8cq6

Mike-31 · Answer

Re,

on va avancer doucement

As tu l'onglet Développeur visible au dessus de ton Ruban, il est juste à droite de l'onglet Révision et Affichage

Marine63 · Answer

Oui je l'ai

Mike-31 · Answer

Re,  

Alors clic sur l'onglet Dévelppeur puis dans le module Contrôles sur Insérer, dans la partie basse de la boite à outils tu verras Activex clic sur le premier (Bouton de commande)  

va sur ta feuille et déssine ton bouton puis reviens je t'expliquerai le code  
A+  
Mike-31  

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Marine63 · Answer

Ok,

je l'ai créé, je vais manger en 3 min et je reviens faire ce que tu m'auras écrit !
Merci !!!

Mike-31 · Answer

Clic droit sur le bouton et Visualiser le code
sur la feuille Visual tu verras

Private Sub CommandButton1_Click()

End Sub

entre les deux lignes tu colles ce code que tu pourras modifier plus tard

Range("A2:K2").CutRange("A65536").End(xlUp)(2, 1).SelectActiveSheet.Paste[A2].Select

ce qui donnera

Private Sub CommandButton1_Click()
Range("A2:K2").CutRange("A65536").End(xlUp)(2, 1).SelectActiveSheet.Paste[A2].Select
End Sub

une fois terminé fais signe

Marine63 · Answer

ok !

Jusque là je te suis. J'en suis au même résultat.

Mike-31 · Answer

Dans le dernier post le code s'est mis sur la même ligne, je sais pas pourquoi,

contrôle le il doit être comme cela et si une ligne est en rouge signale le moi 

Private Sub CommandButton1_Click()
Range("A2:K2").Cut
Range("A65536").End(xlUp)(2, 1).Select
ActiveSheet.Paste
[A2].Select
 End Sub

Tu peux changer le texte du bouton qui actuellement est

CommandButton1
pour cela clic droit sur le bouton et Propriétés
dans la boite de dialogue qui s'ouvre cherche Caption 
tu verras en face CommandButton1 efface le et met un titre à ton bouton comme Cliquez pour déplacer

Pour adapter le code, cette ligne 
Range("A2:K2").Cut
veut dire cellule de A2 à K2.Couper (il est facile de modifier la plage)

cette ligne
Range("A65536").End(xlUp)(2, 1).Select
sélectionne la cellule A65536.remonte jusqu'à la première cellule non vide
 (2,1) redescend d'une ligne pour se positionner sur la cellule vide

cette ligne
ActiveSheet.Paste correspond à coller

et [A2].Select revient sur la cellule A2

Le système s'est automatiquement mis en mode création à la création du bouton, pour le libérer et tester ton travail, Onglet Développeur/module Contrôle désactive le mode création en un clic.

Tu peux fermer les fenêtres qui seraient restées ouvertes

Marine63 · Answer

Ok donc j'ai tout fait. et le code était bien sur une ligne à part, pas comme sur ton poste (bizarre)...

Alors J'ai 2 petits problèmes :

1/ serait-il possible de conserver la mise en page de la ligne une fois que la confirmation de l'enregistrement a été faite? Je m'explique, quand j'appuie sur le boutton, ca me transfert bien la ligne en dessous, malheureusement dans ma ligne de "saisie" j'ai des listes déroulantes que ça me coupe aussi !

2/On ne peut pas revenir en arrière après avoir validé l'enregistrement?

Et ça m'a mis un débogage sur la ligne code "ActiveSheet.Paste".

Voilà, je suis désolée de t'embêter avec cela !!! Mais je trouve cette fonction super alors j'aimerais bien que cela marche !!

Mike-31 · Answer

Ce n'est pas un problème, je vais t'écrire un autre code qui copiera et collera simplement les valeurs afin de ne pas toucher aux mise en forme de la ligne cible mais là je suis pris par le temps je reviens dans l'après midi

Marine63 · Answer

Pas de soucis, je comprends. Je le garde de côté.
Merci beaucoup

Mike-31 · Answer

Re,

maintenant que tu commences à te familiariser, entre ces deux lignes

Private Sub CommandButton1_Click()


End Sub

remplace les lignes de code par ces lignes 


Range("A2:K2").Copy
Range("A65536").End(xlUp)(2, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A2:K2").ClearContents
[A2].Select

pour avoir

Private Sub CommandButton1_Click()
Range("A2:K2").Copy
Range("A65536").End(xlUp)(2, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A2:K2").ClearContents
[A2].Select
End Sub

et dis moi ce qui se passe

Marine63 · Answer

Yeahhhhh ça marche !!!

Par contre (tu vas finir par me haïr...prochaine question je change de pseudo !!) dans cette ligne de"saisie" j'ai aussi une formule de calcul.... qui s'en va quand la ligne se "copy"...

Mike-31 · Answer

Si ton fichier ce contient pas de notes confidentielles, peux tu le mettre à notre disposition, si oui clic sur ce lien, puis sur parcourir pour sélectionner ton fichier, puis sur créer le lien.
Un lien sera géné, il suffira de le copier dans un post

https://www.cjoint.com/

Marine63 · Answer

http://cjoint.com/?BCfqahcOyrz

Voilà !!
Je termine à 16h30 (j'attaque à 7h le matin...) donc je ne réponds plus après cet horaire. Mais j'en prendrais connaissance demain matin !
Merci encore

Mike-31 · Answer

Re,

En G3 la cellule est en erreur, que veux tu afficher !

dans les lignes au dessous de la ligne 9, tu n'as pas besoin de conserver les formules qui seront effacé par le collage de la ligne 9,

si toutes les cellules de la ligne 9 sont renseignées avant le déplacement de la ligne, il est possible de bloquer le déclenchement du code pour obliger l'utilisateur de mettre une donnée dans chaque cellule

https://www.cjoint.com/?BCft2BMCogT

Marine63 · Answer

Bonjour Mike-31,

en fait en G3 c'est le résultat du nombre d'heure de présence engendré par d'autres feuilles du classeur que tu n'as pas sur le fichier excel que je t'ai envoyé.

C'est tout à fait ce que je souhaite, comme tu l'as fait sur le fichier.
Quelle manipulation je dois faire en particulier pour arriver à conserver les formules?
Il faut que je recopie le code VBA que tu as inscrit?

Merci encore pour ton aide.

Marine63 · Answer

Re,

j'ai copié le code, ca marche nikel,. 
Je te remercie beaucoup, tu m'as tiré une belle épine du pied !

Bonne continuation et à bientôt !

Mike-31 · Answer

Re,

aujourd'hui, je n'ai pas touché terre, reviens demain sur la discussion je te prépare un autre fichier plus perfectionné

Mike-31 · Answer

Re,

Dans le cas ou toutes les cellules de la ligne de saisie numéro 9 doivent être renseignées pour transférer la ligne à la suite dans ton tableau, il est possible de bloquer ce transfert tant que toutes ces cellules ne sont pas renseignées ce qui évitera de déplacer des lignes incomplètes.
j'ai ajouté des boites de dialogues pour guider l'utilisateur.
Comme il s'agit d'archivage et pour éviter les effacements intempestifs il est souhaitable de travailler sous protection, seule les cellules de saisies de la ligne 9 sont accessibles le reste de ta feuille est protégé donc impossible de supprimer involontairement des données. 
Teste le fichier joint, s'il te convient, je te conseillerais même de mettre un mot de passe pour la protection de la feuille qu'il faudra ajouter au code

https://www.cjoint.com/?BChkOh4OsQm 

le code dans les propriétés de la feuille est

Option Explicit

Private Sub CommandButton1_Click()
    On Error Resume Next
    If Application.WorksheetFunction.CountA(Range("A9:L9")) = 12 Then
    ActiveSheet.Unprotect
    Range("A9:L9").Copy
    Range("A65536").End(xlUp)(2, 1).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Données archivées à la ligne " & Range("A65536").End(xlUp).Row
    Range("A9:E9,G9:H9,J9,L9").ClearContents
    ActiveSheet.Protect
    Else
    MsgBox "Vous devez renseigner toutes les cellules de la ligne 9"
    End If
    [A9].Select
End Sub

Marine63 · Answer

Bonjour,

c'est absolument génial ce truc...
Le document complet fonctionne super bien.
Je te remercie beaucoup ! Je m'étonne même à prendre goût à tous ces codes...

Mon chef va être ravi, son document est tel qu'il l'avait imaginé !!! 

Merci beaucoup beaucoup !!!
A bientôt !!

Excel10 Ligne vierge de saisie haut tableau

25 réponses

Discussions similaires