VBA - Copier le contenu d'une cellule et non sa formule
Résolu
Thinkvantage
-
Thinkvantage -
Thinkvantage -
Bonjour,
Je cherche à copier des informations contenues de la feuille 2 d'un classeur dans la feuille 3 du même classeur.
Mon code marche mais copie la formule des cellules (j'obtiens alors des #REF! partout),je ne voudrais que le contenu des cellules. Connaîtriez-vous une solution?
Merci d'avance !
Je cherche à copier des informations contenues de la feuille 2 d'un classeur dans la feuille 3 du même classeur.
Mon code marche mais copie la formule des cellules (j'obtiens alors des #REF! partout),je ne voudrais que le contenu des cellules. Connaîtriez-vous une solution?
Application.EnableEvents = False
With Worksheets("Feuil2")
'Générique français
.Range("AU3:AU400").Copy Worksheets("Feuil3").Range("F5:F402")
'Générique Anglais
.Range("BU3:BU400").Copy Worksheets("Feuil3").Range("G5:G402")
'Dimensions
.Range("CB3:CB400").Copy Worksheets("Feuil3").Range("S5:S402")
End With
Application.EnableEvents = True
Merci d'avance !
A voir également:
- Formule excel pour copier le texte d'une cellule
- Excel cellule couleur si condition texte - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Formule si et excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Liste déroulante excel - Guide
2 réponses
Bonjour,
Copier vos données de la feuille 1, puis aller sur votre feuille 3, selon votre tableur:
Excel: Collage spécial (à droite dans la bande "Accueil"), cocher valeurs et formats (si vous voulez garder votre format) puis OK.
LibreOffice ou OpenOffice: Edition, Collage spécial, cocher texte, date et heures, nombre, formats puis OK.
Notez que si vous aviez voulu garder que les formules, vous le pouviez aussi.
Si vous tenez au code VBA pour Excel, "Selection.Pastespecial Paste:=xlPasteValues" et pour garder les formats "Selection.Pastespecial Paste:=xlPasteFormats". pour garder les formules cela aurait été "Selection.Pastespecial Paste:=xlPasteFormulas" en ayant bien sûr défini les "range".
Bonne journée
Jeanne
Copier vos données de la feuille 1, puis aller sur votre feuille 3, selon votre tableur:
Excel: Collage spécial (à droite dans la bande "Accueil"), cocher valeurs et formats (si vous voulez garder votre format) puis OK.
LibreOffice ou OpenOffice: Edition, Collage spécial, cocher texte, date et heures, nombre, formats puis OK.
Notez que si vous aviez voulu garder que les formules, vous le pouviez aussi.
Si vous tenez au code VBA pour Excel, "Selection.Pastespecial Paste:=xlPasteValues" et pour garder les formats "Selection.Pastespecial Paste:=xlPasteFormats". pour garder les formules cela aurait été "Selection.Pastespecial Paste:=xlPasteFormulas" en ayant bien sûr défini les "range".
Bonne journée
Jeanne
Bonjour
Michel
tampon=sheets(2).Range("AU3:AU400")
Sheets("Feuil3").Range("F5:F402")=tampon
Michel
Je suis obligée d'utiliser une macro, et j'ai testé ce code :
Range("BU3:BU400").SelectSelection.Copy
Range("G5").Select
Selection.PasteSpecial Paste:=xlPasteValues
Mais ça ne marche pas car je ne sais pas comment lui dire de copier dans feuil2 et de coller dans feuil3.