bonjour,
je suis entrain de faire un planning par coloration des cellule en VBA excel. dans mon code ci-dessous il copie la bonne plage mais la plage de destination (Coller) n'est jamais au bon endroit. Le chemin est correct mais la plage ne correspond pas à celui du code.
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
Private Sub CommandButton1_Click()
'Désactive le rafraichissement écran
Application.ScreenUpdating = False
 
'Boucle..................
For i = 1 To Worksheets.Count
 
If Feuil8.Range("A2").Value + Feuil8.Range("B2").Value = Worksheets(i).Name Then
'Copier
Worksheets(i).Select
Selection.Range("A5:AN113").Copy
 
'Coller
Worksheets("ResultatRecherche").Range("A5:AN113").Select
'Worksheets("ResultatRecherche").Range("A5:AN113").Select
ActiveSheet.Paste
 
Exit For
Exit Sub
End If
Next i ' Suite de la bouclue....
'réactive le rafraichissement écran
Application.ScreenUpdating = True
End Sub

Coloration de la cellule et mise à jour de la feuil dont le nom est sélectionné.

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
26
27
28
29
30
31
32
33
34
Sub bleu()
'
' bleu Macro "Disponible"
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
   Selection.Value = "D"
   'Désactive le rafraichissement écran
Application.ScreenUpdating = False
 
'Boucle..................
For i = 1 To Worksheets.Count
 
If Feuil8.Range("A2").Value + Feuil8.Range("B2").Value = Worksheets(i).Name Then
'Copier
Worksheets("ResultatRecherche").Select
Selection.Range("A5:AN113").Copy
 
'Coller
Worksheets(i).Select
Selection.Range("A5:AN113").Select
ActiveSheet.Paste
Exit For
Exit Sub
End If
Next i ' Suite de la bouclue....
'réactive le rafraichissement écran
Application.ScreenUpdating = True
Worksheets("ResultatRecherche").Activate
End Sub