Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Christian0258

XLDnaute Accro
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

XLDnaute Accro
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

XLDnaute Barbatruc
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)
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…