Copier/coller valeur dans un autre onglet automatiquement

Bonjour,

Je voudrais Copier la valeur des formules se trouvant dans l'Onglet "FORMULE" et coller leurs valeurs en lieu et place dans l'onglet "SYNTHESE".

Aujourd'hui je le fais en sélectionnant les cellules dans "FORMULE" et clic droit Valeur dans "SYNTHESE"

Si ça peut être automatique ça serait parfait

Merci beaucoup

Bonjour,

à tester,

Sub test()
Dim sh1, sh2, LastRw As Long, LastCl As Integer, addr As String
Set sh1 = Sheets("FORMULE")
Set sh2 = Sheets("SYNTHESE")
LastRw = sh1.Cells(Rows.Count, 1).End(xlUp).Row
LastCl = sh1.Cells(1, Columns.Count).End(xlToLeft).Column
addr = Range(Cells(2, 1), Cells(LastRw, LastCl)).Address
sh2.Range(addr).Value = sh1.Range(addr).Value
End Sub

édit: ajout des déclarations

Bonsoir et merci

oui ça marche.

C'est possible de laisser les cellules vides s'il n'y a pas de résultats

Nota : dans les différentes cellules ça peut être des noms, des montants, des commentaires etc

C'est possible de laisser les cellules vides s'il n'y a pas de résultats

cela dépend de la formule ? retourne "" ou 0 ?

ou bien désactiver le zéro,

excel 2010 afficher zero

Il y a un peut de tout dans les formules je pense.

Je peux vous envoyer le fichier complété mais il ya des numéros de tel je ne voudrais pas trop les envoyer sur le forum

Si non toutes les formules sont dans l'onglets "Formules"

et le résultat sont des noms, des dates, des montants etc.. et des fois dans certaines cellules dans l'onglet "GMAO BRUT" il n'y a aucune valeur. Du coup le résultat de la formule donne par défaut (#N/A ; 12:00:00 AM ; 0 ou 0,00 €)


Parfait pour les Zéro c'est beaucoup mieux

Il reste juste du coup les "#N/A"

Et autre point ça ne se fait pas en direct. il faut aller dans développeur et cliquer sur lecture "Exécuter Sub/UserForm"

vous pourriez modifier les formules,

'en A2 
=SIERREUR(INDEX(Feuil1!$A$3:$CZ$3;EQUIV(FORMULE!H2;Feuil1!$A$2:$CZ$2;0));"")
'en B2 
=SIERREUR(INDEX(Feuil1!$A$4:$CZ$4;EQUIV(FORMULE!H2;Feuil1!$A$2:$CZ$2;0));"")

Parfait Merci pour ma formule

Si je peux 2 autres petites choses

- Garder le même format dans l'onglet SYNTHESE que dans l'onglet FORMULE. (Si non il faut que je clic 2 fois sur "Renvoyer à la ligne automatiquement pour je voie le début du texte dans une des cellules)

- Et d'éviter d'aller dans développeur pour lancer la macro afin que ça le fasse en direct

Encore Merci

tu pourrais pré-formater les colonnes de l'onglet SYNTHESE,

la macro transfert uniquement les valeurs, alors ceux-ci se mettront automatiquement au format de la cellule de destination.

lancer la macro afin que ça le fasse en direct

la macro pourrait s'exécuter lors de la sélection de l'onglet SYNTHESE,

sur la page code de l'onglet SYNTHESE,

Private Sub Worksheet_Activate()
Call test
End Sub

J'ai la colonne K (et Uniquement K dans l'onglet SYNTHESE) qui se met par défaut sur "Renvoyer à la ligne automatiquement")

Et pourtant j'ai mis la même mise en forme que l'onglet Formule

c'est peut à cause des 4 sauts de ligne en début du commentaire avec un espace tout au début !?

"

Commentaire demandeur : vigneux rdc repartiteur vers infraURGENTmerci de controler les grooms qui permettent de tenir fermer les portes au solURGENTCDT

Commentaire PEL : vigneux rdc repartiteur vers infraURGENTmerci de controler les grooms qui permettent de tenir fermer les portes au solURGENTCDT

Service : groom (réglage)

NOBAT Bâtiment : 91657701

localisation Complement : rdc repartiteur/infra

Demandeur de l'intervention :

Prénom : Nathalie

Nom : xxxx

Entité : FT/OF/DO/DOIDF/UAT IDF/PROD RASPAIL/SU SAUF HNO 2B

Mail : xxxxx

Mobile : xxxxx

Téléphone : xxxxxx

Bénéficiaire de l'intervention :

Prénom : Nathalie

Nom : xxxxxx

Entité : FT/OF/DO/DOIDF/UAT IDF/PROD RASPAIL/SU SAUF HNO 2B

Mail : xxxxxx

Mobile : xxxxxx

Téléphone : xxxxxx

Code de la criticité : 3

Nom du groupe : DO IDF - CMT - LOT 12 - VINCI "

Bonjour,

dans le fichier fourni il n'y a que des formules qui retourne 0

Rechercher des sujets similaires à "copier coller valeur onglet automatiquement"