Discussion :

[barbarian9]

Bonjour à tous
Ma méthode paste échoue lamentablement chaque fois que je la tente dans une instruction for each..

je copie des valeurs, je change de feuille, j'isole une cellule vide dans une plage puis je colle. mon test couleur fonctionne mais j'ai tjrs un msg error sur le paste.. pourquoi histoire de contexte??

Merci d'avance

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
22
23
24
25
Sub recap()
 
Dim test As String
 
    ActiveSheet.Range("A61:M61").Select
    Selection.Copy
 
    Sheets("RECAP").Select
 
Set zonetest = Range("a4:a100")
    For Each cell In zonetest
        If IsEmpty(cell) = True Then
             cell.Interior.ColorIndex = 3
            cell.Select
            cell.Paste Link:=True
        Exit Sub
        Else
        cell.Interior.ColorIndex = 4
 
        End If
    Next
 
 
 
End Sub

[John81]

Salut barbarian9,

essaie avec le code suivant:

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 recap()
 
Dim FeuilleCopiee As Worksheet
 
Set FeuilleCopiee = ActiveSheet
 
Sheets("RECAP").Select
 
Set zonetest = Range("a4:a100")
For Each cell In zonetest
    If IsEmpty(cell) Then
        FeuilleCopiee.Range("A61:M61").Copy cell
        cell.Interior.ColorIndex = 3
        cell.Select
        Exit Sub
    Else
        cell.Interior.ColorIndex = 4
    End If
Next
 
End Sub

[barbarian9]

Merci john81

J'ai changé de méthode car la feuillecopiée n'étant la feuille active, le code ne passait pas...

j'ai trouvé çà qui marche

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
Sub recap()
 
Dim test As String
 
    ActiveSheet.Range("A61:M61").Select
    Selection.Copy
 
    Sheets("RECAP").Select
    Range("a5").Select
    premlivide = Columns(1).Find("", [A65536], , , xlByRows, xlNext).Row
 
    Range("a" & premlivide).Select
    ActiveSheet.Paste Link:=Tru
 
 
 
End Sub

encore merci

[John81]

Bonjour barbarian9,

As-tu essayé mon code? Il marche aussi non?
Et il te permet de coller ce que tu veux même si le presse papier est vide.

Dans ta nouvelle macro, tu n'utilises pas les couleurs comme dans ta première.

Essaie de ne pas utiliser les "Select" qui sont inutiles et qui compliquent ton code.