Discussion :

[ayms75]

Bonjour à tous, je voudrais copier-coller les cellules d'un onglet sur un autre onglet au sein d'un meme classeur mais sur l'onglet sur lequel on colle les cellules, il y a parfois des coordonnées différentes. j'ai commencé un code pour copier une cellule mais je rencontre un problème sur les feuilles actives :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Validation()
 
Sheet(1).Activate = sh1
Sheet(2).Activate = sh2
 
sh1.Cells("a3").Value = sh2.Cells("a3").Value
 
 
End Sub

Pouvez vous m'aider svp

[Kimy_Ire]

Bonjour ayms75,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Validation()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
 
Set sh1 = Worksheets(1)
'ou plus aisément set sh1 = Worksheets("Nom de la première feuille")
Set sh2 = Worksheets(2)
'ou plus aisément set sh2 = Worksheets("Nom de la seconde feuille")
 
sh2.Range("A3") = sh1.Range("A3")
 
End Sub

Sans d'avantage d'explications, il me sera difficile de t'aider d'avantage.

Cordialement,
Kimy

[Thautheme]

Bonjour Ayms, bonjour le forum,

Pour définir les onglets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim sh1 As Object
Dim sh2 As Objet
 
Set sh1 = Sheets(1)
Set sh2 = Sheets(2)

[Édition]
Bonjour Kimy on s'est croisé...

[ayms75]

Merci pour vos réponse mais pour toi Kimy_Ire, j'ai erreur d’exécution 91 sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sh2.Range("A3") = sh1.Range("A3")

et toi Thautheme j'ai erreur d’exécution 1004 sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sh1.Cells("a3").Value = sh2.Cells("a3").Value

[Thautheme]

Bonjour le fil, bonjour le forum,

toi Thautheme j'ai erreur d’exécution 1004 sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sh1.Cells("a3").Value = sh2.Cells("a3").Value

Il ne me semble pas t'avoir proposé cette ligne !... D'ailleurs j'aurais plutôt écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sh1.Range("A3").Value = sh2.Range("A3").Value

[Kimy_Ire]

Mauvais copier-coller.

Je suis sur que tu aurais pu le voir tout seul !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set sh2 = Worksheets(2)

Prends du recul par rapport à ce qu'on te propose et n'essaye pas de copier bêtement !

(Modifié dans mon msg d'origine)

Cordialement,
Kimy

[ayms75]

Désolé mais ça ne marche pas, j'ai essayé plusieurs truc mais rien n'y fait, vous pouvez tester sur un fichier excel, vous mettez une valeur en a3 sur la feuille 1 et regarder si ça colle en a3 sur la feuille 2, en tout cas merci de m'aider

[Kimy_Ire]

Fonctionne chez moi !

As-tu essayé de mettre le nom des feuilles comme dans mon exemple au lieu des (1) et (2) ?

Cordialement,
Kimy