Autres Macro trouve la dernière ligne et copier/coller valeurs en écrasant les formules...

[Christian0258]

Bonjour à tout le forum,

Pourriez-vous me dire, pourquoi cette macro ne fonctionne pas ?

Ce que je souhaite :

j'ai un tableau AB:AW qui contient données issues de formules.

Je voudrais que la macro trouve la dernière ligne renseignée, quelle la copie, quelle l'éfface et quelle colle les valeurs sur cette même ligne…

Merci pour votre aide.

Bien amicalement,

Christian

la macro:

Sub CopierDernièreLigne()

Copie la dernière ligne du tableau AB:AW

ActiveCell.Offset(1, 0).Rows("28:49").EntireRow.Copy

effacement des données de la ligne copiée

Selection.ClearContents

Collage des VALEURS de la ligne copiée

Range("AB65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

End Sub

 

[Christian0258]

Re, le forum, JM

OK, OK, j'ai compris, mais si je tape expl 28 dans l'USF, je dis ok aux deux messages box, puis je ferme USF, en A28 rien ne s'inscrit et les formules sur la ligne 28 sont toujours présentes…?

A te lire,
Merci
Christian

 

[Staple1600]

Re

Refais l'essai avec le premier code du CommandButton
(le second code était purement illustratif)

Sinon, pour faire simple, joins une copie de ton propre fichier Excel
(agencée comme ton fichier original mais expurgée de toute donnée confidentielle)

NB: Pour résumer, le code initial que je proposais fait seulement ceci:
1) insérer la valeur du textbox dans la première cellule non vide en colonne A
2) transformer en valeurs les formules présentes sur la ligne de cette 1ère cellule non vide (et ce des colonnes B à Z)

 

[Christian0258]

Re, le forum, JM

C'est OK, ça fonctionne parfaitement.
Merci beaucoup JM, pour le temps que tu as bien voulu me consacrer et pour ton aide si précieuse.

Bien à toi,
Christian