Comment faire une feuille récapitulative avec une macro ?

Je voudrai sur une feuille faire une saisie en colonne et après validation recopier d'une manière automatique les montant saisis dans une autre feuille en ligne.

Ci-joint un fichierqui explique mon souhait

https://www.excel-pratique.com/~files/doc2/KVaBwEssai.xls

Merci à tous

Bruno

Bonjour

bonsoir,

Dans cette situation l'enregistreur de macro n'est pas d'un grand secours :

Il faut savoir détecter les premières lignes et dernières lignes utiles dans une feuille et parcourir cette zone à l'aide de variables...

C'est ce que fait ma démo.

Nota : La cellule Total à été nommée avec Insertion/Nom/Définir, mais bien sur il est tout à fait possible de remplacer Range("Total") par Range("G14") dans la macro.

A+

Bonjour,

Ton "total client" n'est pas clair !

Sub EnregistreSaisie()
Dim Lg As Byte
    Lg = Range("c15").End(xlUp).Row
    Range("b4:g" & Lg).Copy
        With Sheets("Récap saisie")
            .Range("A65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
        End With
    Application.CutCopyMode = False
    Range("C4:C13,E4:E13").ClearContents
End Sub

C'est le total par code peut-être ?

Amicalement

Claude.

galopin01 a écrit :

bonsoir,

Dans cette situation l'enregistreur de macro n'est pas d'un grand secours :

Il faut savoir détecter les premières lignes et dernières lignes utiles dans une feuille et parcourir cette zone à l'aide de variables...

C'est ce que fait ma démo.

Nota : La cellule Total à été nommée avec Insertion/Nom/Définir, mais bien sur il est tout à fait possible de remplacer Range("Total") par Range("G14") dans la macro.

A+

Bonjour,

Après quelques jour d"absence je reviens sr le problème.

Merci beaucoup, c'est super et ça fonctionne nickel...

Maintenant je voudrais si ce n'est pas abusé quelle formule il faut mette pour selectionner les cellules non vide d'un colonne pour les verouillées et empécher toutes modification ultérieur

Merci encore