XL 2016 Comment entrer des données dans la première ligne vide d'un tableau

LeGarsDesStatsSansFormati · 16 Octobre 2019

Bonjour!

Je travailles à un document pour centraliser les statistiques de l,organisme pour lequel je travaille. Je viens de frapper un mur. J'ai potassé sur ce forum, cart j'y trouve habituellement pleins de trucs géniaux pour excel. N'ayant pas trouvé ce que je cherchais, je viens consulter la sagesse collective du forum.

J'aimerais faire un formulaire dans un onglet excel. Jusque là, ça va. Là où ça ne va pas, c'est que j'aimerais avoir un bouton sur ce formulaire pour qu'Excel inscrive les informations entrées dans la première ligne vide d'un onglet séparé.

J'inclus une version très, très de base de ce que j'ai fait. J'aimerais savoir comment faire un bouton pour que les infos colligées dans l'onglet "entrée de donnée" soient inscrits sur la première ligne vide dans l'onglet base de donnée.

Merci d'avance,

Hugo

job75 · 16 Octobre 2019

Bonsoir LeGarsDesStatsSansFormati (Hugo), bienvenue sur XLD,

S'agissant d'une version très, très de base, inutile de se casser la tête, placez dans le code de la 1ère feuille :

VB:

Private Sub Worksheet_Change(ByVal target As Range)
If [COUNTA(A2:E2)] = 5 Then Feuil2.Range("A" & Rows.Count).End(xlUp)(2).Resize(, 5) = [A2:E2].Value
End Sub

A+

job75 · 17 Octobre 2019

Pas beaucoup de réaction le gars ! Peut-être réagira-t-il avec cette solution plus élaborée :

VB:

Sub Transfert()
Dim F As Worksheet, lig&, x$, i As Variant, rep As Byte
Set F = Feuil1 'Codename de la 1ère feuille, à adapter
If Application.CountA(F.[A2:E2]) < 5 Then MsgBox "Renseignez les 5 cellules...": Exit Sub
With Feuil2 'CodeName de la 2ème feuille, à adapter
    .Visible = xlSheetVisible 'si la feuille est masquée
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    lig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 '1ère ligne vide
    x = F.[A2] & F.[B2]
    i = Evaluate("MATCH(""" & x & """,'" & .Name & "'!A1:A" & lig & "&'" & .Name & "'!B1:B" & lig & ",0)")
    If IsNumeric(i) Then rep = MsgBox("'" & F.[A2] & " " & F.[B2] & "' a déjà été transféré." & vbLf & "Voulez-vous modifier les 3 autres valeurs ?", 3)
    If rep = 2 Then Exit Sub Else If rep = 6 Then lig = i
    .Cells(lig, 1).Resize(, 5) = F.[A2:E2].Value
    Application.Goto .Cells(lig, 1) 'facultatif
End With
End Sub

Modeste geedee · 17 Octobre 2019

Bonsour®

LeGarsDesStatsSansFormati à dit:
J'aimerais faire un formulaire dans un onglet excel. Jusque là, ça va. Là où ça ne va pas, c'est que j'aimerais avoir un bouton sur ce formulaire pour qu'Excel inscrive les informations entrées dans la première ligne vide d'un onglet séparé.

demande formulaire ?
sans VBA, sans formule ...
je vois ceci

voir l'aide en ligne F1

Bouton Ajouter le formulaire au ruban

Au besoin, ajoutez un en-tête de colonne à chaque colonne de la plage ou de la table. Excel utilise ces en-têtes de colonnes pour créer les étiquettes de chaque champ du formulaire.
Important : Assurez-vous que la plage de données ne contient aucune ligne vide.

Cliquez sur une cellule de la plage ou de la table à laquelle vous souhaitez ajouter le formulaire.

Pour ajouter le bouton Formulaire à la barre d’outils Accès rapide, procédez comme suit :

Cliquez sur la flèche en regard de la barre d’outils Accès rapide, puis cliquez sur Autres commandes.

Dans la zone Choisir les commandes dans les catégories suivantes, cliquez sur Toutes les commandes, puis sélectionnez le bouton Formulaire dans la liste.

Cliquez sur Ajouter, puis sur OK.

Dans la barre d’outils Accès rapide, cliquez sur Formulaire .

Important : Si un message « Champs trop nombreux dans le formulaire de données » s’affiche, vous devez réduire le nombre de colonnes car un formulaire de données peut contenir uniquement jusqu’à 32 colonnes. Une solution (en cas d’utilisation d’une plage de colonnes) consiste à insérer une colonne vide, ce qui revient à fractionner une plage en deux. Ensuite, si nécessaire, créez un formulaire de données distinct pour les colonnes situées à droite de la colonne vide.

LeGarsDesStatsSansFormati · 17 Octobre 2019

Super! Un gigantesque merci. C'est vraiment super apprécié.

LeGarsDesStatsSansFormati · 17 Octobre 2019

job75 à dit:
Pas beaucoup de réaction le gars ! Peut-être réagira-t-il avec cette solution plus élaborée :

J'ai gaffé. J'ai appuyé sur le bouton aperçu au lieu de poster une réponse. Va falloir que j'aille aussi chercher de l'aide pour poster sur les forums, à ce que je vois.

XL 2016 Comment entrer des données dans la première ligne vide d'un tableau

LeGarsDesStatsSansFormati

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

LeGarsDesStatsSansFormati

XLDnaute Nouveau

LeGarsDesStatsSansFormati

XLDnaute Nouveau

Discussions similaires