• Initiateur de la discussion Initiateur de la discussion mcay
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

mcay

Guest
Bonjour,

Je voudrais savoir quel lexique doit-on utiliser à part "range ().select Selection.copy"), je vous donne un exemple :

Public Sub copie_formule_2()

Dim Formule As Single
Dim Libelle As String
Dim Rubrique As String
Dim I As Integer


For I = 7 To 221
Libelle = Workbooks("TBBBM.xls").Worksheets("BILAN VAR MOIS").Cells(I, 2).Value
Rubrique = Workbooks("TBBBM.xls").Worksheets("BILAN VAR MOIS").Cells(I, 4).Value

If Libelle <> "" Or Rubrique <> "" Then
Formule = Workbooks("TBBBM.xls").Worksheets("BILAN VAR MOIS").Cells(I, 30).Value

End If
Next

End Sub

Je voudrais pouvoir copier"Formule" et le coller dans une autre cellule.

Je vous en remercie d'avance.
 
Bonjour,

Tu désires donc copier la valeur de la cellule (cells(I, 30)) dans une autre cellule.

Deux possibilités d'écriture me viennent directement.

1. Tu inverses ton code

Workbooks("TBBBM.xls").Worksheets("BILAN VAR MOIS").Cells(I, 31).Value = Formule

Dans ce cas-ci, la valeur dans la variable "Formule" sera copier dans la cellule (cells(I,31)) soit la colonne à côté.

2 possibilité avec copy

Sheet1.Range("B5").Copy Sheet2.Range("B5")

Ici on copie la valeur en B5 de la sheet1 vers la cellule b5 en sheet2.

Voilà, j'espere que c'est ce que tu désires

A bientot

Xavier
 
Je vous remerci, mais je peux pas les utiliser car la première idée que vous m'avez proposé me copie que la valeur alors que je veux copier que la formule. Pour votre 2 ème idée, ben le problème c'est qu'il faut que je copie les formules d'une colonne à une autre.

Je vous en remercie quand même. Bonne journée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
45
  • Question Question
Microsoft 365 Excel VBA
Réponses
5
Affichages
339
Retour