Copier texte brut d'une cellule sur une autre feuille

Résolu

Stitchus1 Messages postés 3 Date d'inscription vendredi 6 janvier 2023 Statut Membre Dernière intervention 10 janvier 2023 - Modifié le 6 janv. 2023 à 10:17
dysorthographie Messages postés 92 Date d'inscription jeudi 27 janvier 2022 Statut Membre Dernière intervention 3 avril 2024 - 9 janv. 2023 à 13:38

Bonjour à tous et bonne annee.

J'ai pu récupérer une petite vba sur un autre sujet qui me permet de copier une cellule sur une autre feuille. Cependant je souhaiterai copier le texte brut de cette cellule car pour le moment il me copie la formule qu'elle contient.

voici le petit bout de vba que j'utilise.

Sub Graphique2_Cliquer()
Dim toto As Long
 toto = Sheets("SKYRA").Cells.SpecialCells(xlCellTypeLastCell).Row + 1
 Sheets("Feuil1").Range("H9").Copy Destination:=Sheets("SKYRA").Range("A" & toto + 1)
End Sub

pas de jugement, je ne m'y connais pas du tout en codage ;D

A voir également:

Vba copier valeur cellule dans une autre feuille
Vba récupérer valeur cellule d'une autre feuille - Forum Visual Basic
Vba copier coller dans une autre feuille ✓ - Forum Visual Basic 6
Copier automatiquement une cellule excel dans une autre feuille (vba) - Forum Visual Basic
Vba supprimer une feuille ✓ - Forum VBA Office (Excel, Word ...)
Vba mettre une valeur dans une cellule - Forum Visual Basic

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 137
6 janv. 2023 à 16:49

Bonjour,

essaie ceci:

Option Explicit
Sub Graphique2_Cliquer()
Dim toto As Long
toto = Sheets("SKYRA").Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne utilisée
Sheets("Feuil1").Range("H9").Copy
Sheets("SKYRA").Range("A" & toto + 1).PasteSpecial Paste:=xlPasteValues
End Sub

Réponse 2 / 3

Stitchus1 Messages postés 3 Date d'inscription vendredi 6 janvier 2023 Statut Membre Dernière intervention 10 janvier 2023
9 janv. 2023 à 09:40

Superbe, je vous remercie beaucoup !!

j'étais tombé sur cette commande "pastespecial" pendant mes recherche sur google mais a priori je n'ai pas réussi à la placer avec une bonne syntaxe.

Merci encore, bonne journée

Réponse 3 / 3

dysorthographie Messages postés 92 Date d'inscription jeudi 27 janvier 2022 Statut Membre Dernière intervention 3 avril 2024 5
9 janv. 2023 à 13:38

Bonjour,

au plus simple!

Sheets("SKYRA").Range("A" & toto + 1).value=Sheets("Feuil1").Range("H9").value

Discussions similaires

[vba] recopier la valeur d'une cellule dans une autre feuille.

Vba coller valeur cellule sur une autre cellule avec variable

copier le contenu d'une feuille excel dans une autre

Comment appeler une cellule d'une autre feuille

[vba] aller chercher des données dans une feuille excel

Votre réponse

Discussions similaires