Coller une cellule

Bonjour,

Mon code me permet de selectionner une cellule dans un tableau et de la comparer a une colonne dans un autre tableau et des qu'il la trouve il doit recopier la cellule de droite du 2eme tableau dans le 1er.

Le probleme c'est que le copy marche mais pas le coller.

Voila mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub CreationTabGraf()   Dim i As Integer, j As Integer, nommag As Variant Let i = 4 Let j = 3 Application.CutCopyMode = False   For i = 4 To shtGrafAnnee.Range("E" & Rows.Count).End(xlUp).Row Step 1 Set nommag = shtGrafAnnee.Cells(i, 5) Do Let j = j + 1 If j = 10 And shtGrafSem.Cells(j, 1) <> nommag Then Exit Do End If Loop Until shtGrafSem.Cells(j, 1) = nommag shtGrafSem.Cells(j, 2).Copy shtGrafAnnee.Cells(i, 8).Paste Let j = 3 Next i Application.CutCopyMode = True End Sub

---

Merci de votre aide.

Bonjour,

Et si tu passes pas par un copier/coller comme suivant :

Code:

---

shtGrafAnnee.Cells(i, 8) = shtGrafSem.Cells(j, 2).

---

Salut semas et le forum

Code:

---

1 2	shtGrafSem.Cells(j, 2).Copy shtGrafAnnee.Cells(i, 8).Paste

---

Paste ne concerne pas une plage, mais une feuille. si tu tiens absolument à l'utiliser, il faut passer par des select/activate:

Code:

---

1 2 3 4

shtGrafSem.Cells(j, 2).Copy shtGrafAnnee.activate selection.Cells(i, 8).activate shtGrafAnnee.Paste

---

Moi je préfère

Code:

---

shtGrafSem.Cells(j, 2).Copy shtGrafAnnee.Cells(i, 8)

---

directement

Application.CutCopyMode =True/ False
Ta manière de l'utiliser me semble inadéquate. C'est juste pour encadrer avec des tirets clignotants les cellules copiées/coupées => juste un false en sortie pour les faire disparaître suffit.
Mais si tu expliquais ce que tu veux en faire, on pourrait vraisemblablement t'aider.
A+

Ca marche. Merci de votre aide.

Pour le cutcopymode je pensais qu'il fallait faire comme pour le applicationdisplayalert.

Mais j'ai supprimer le true et mis false et ca marche aussi.