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
Partager