Discussion :

[semas]

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 :

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

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.

[David2304]

Bonjour,

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

Code :

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

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

[Gorfael]

Salut semas et le forum

Code :

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

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 :

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

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

Moi je préfère

Code :

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

    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+

[semas]

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.