Excel10 Ligne vierge de saisie haut tableau
Résolu
Marine63
-
Marine63 -
Marine63 -
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,
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,
A voir également:
- Excel10 Ligne vierge de saisie haut tableau
- Tableau word - Guide
- Comment supprimer une page vierge sur word - Guide
- Partage de photos en ligne - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
25 réponses
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.
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.
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 !
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 !
Re,
aujourd'hui, je n'ai pas touché terre, reviens demain sur la discussion je te prépare un autre fichier plus perfectionné
aujourd'hui, je n'ai pas touché terre, reviens demain sur la discussion je te prépare un autre fichier plus perfectionné
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question