Bouton - Envoyer plusieurs valeurs en bas d'un tableau

Bonjour à vous,

Et merci par avance de prendre le temps de lire mon prôbleme.

Je débute en VBA et je n'arrive toujours pas à faire ce qui suit:

J'ai un tableau avec plusieurs colonnes et je souhaite envoyer (puis effacer) les valeurs que je saisierai au dessus de ce même tableau en appuyant sur un bouton (Le ajouter vert).

Ca vous sera plus parlant avec le fichier que je vous met en pièce jointe.

Merci par avance.

Cordialement.

Olivier

Bonjour,

Il faut que tu sélectionnes les cellules B3 à H3 et tu définis le nom "Nouv_Ligne" ( tu peux aller dans l'onglet "Formules" et "gestionnaires des noms").

Tu crées un nouveau module depuis VBA et tu colles la macro ci-dessous :

Sub Ajout_info()

    Derlig = Range("B6").End(xlDown).Row + 1
    Range("Nouv_Ligne").Copy 'Qui représente les cellules ou tu renseignes les nouvelles infos
    Range("B" & Derlig).PasteSpecial xlPasteValues

End Sub

Puis tu sélectionnes ton bouton et tu lui affectes la macro. Et normalement tout fonctionne.

A plus !

Bonjour,

Sub AjoutLigne()
    Dim Lgn, n%
    Lgn = ActiveSheet.Range("B3:H3").Value
    With [Tableau18]
        n = .Rows.Count + 1
        .Cells(n, 1).Resize(, 7).Value = Lgn
    End With
End Sub

attachée à ton bouton Ajouter.

Préalablement : Supprimer TOUTES les lignes vides de ton Tableau18

Excel intégrera automatiquement dans le tableau toute ligne ajoutée en dessous !

Et étendra automatiquement les formules...

Cordialement.

J'ai oublié l'effacement ! Ajouter après End With (et avant End Sub :

    ActiveSheet.Range("B3:H3").ClearContents

Je vous remercie.

Le résultat est TOP et ça m'encourage à percéverer.

Bonne continuation à tous.

Cordialement.

Olivier