Discussion :

[guy59960]

Bonjour à tous,

Quelles lignes de codes faut-il que je mette dans une macro pour que la dernière ligne de saisie dans un fichier excel soit figée mais encore modifiable. Je m'explique : dans un tableau excel certaines cellules sont la résultante de calculs. Une fois la ligne saisie il faut que seules les valeurs obtenues demeurent et ne soient plus modifiées et ce même si l'une des cellules desquelles elles pouvaient dépendre venaient à être modifies.

Vous remerciant pour l'aide que vous pourriez m'apporter

Cordialement

Guy

[casefayere]

Bonjour,
fais un essai avec l'enregistreur de macro et regardes le résultat :

tu fais => nouvelle macro
tu selectionnes la cellule concernée, en restant dessus; tu fais copie et ensuite collage spécial => valeur,
il ne te restera plus qu'a optimiser ta procédure en supprimant les codes inutiles comme les "select", ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
range("a1").select
selection.value =.....

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activecell = .....

bonne journée

[guy59960]

Bonjour,

Je vous remercie de votre réponse, mais en fait je désire obtenir la copie sur elle même de la dernière ligne saisie et de non de la dernière cellule active.

En fait, pour avoir écrit la procédure suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Figer_Ligne_Active()
 
 Sheets("a").[d5].End(xlUp).Select
 
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("A3").Select
End Sub

il n'y a que la colonne "D" dont la dernière valeur est "recopiée" sur elle même.

Je voulais que ce soit la totalité de la ligne qui soit "recopiée" sur elle même.
De façon complémentaire et sans vouloir abuser quel code spécifique faudrait-il mettre pour qu'une des colonnes soit exclue de cette action.

Vous remerciant de votre précieux concours

Cordialement

Guy

[casefayere]

Bonjour à tou(te)s, guy59960

meme principe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Figer_Ligne_Active()
Dim dl As Integer 'ou long
dl = Sheets("a").UsedRange.Rows.Count
Sheets("a").Range("a" & dl).EntireRow.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Range("A3").Select
End Sub

bonne journée