Automatiser un code VBA

Version imprimable

Bonjour,

Novice sous VBA. J'ai créer un code sur quelques lignes pour imprimer rapidement plusieurs centaines de courriers sous Excel.

Voici le code de ma macro :

Code:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Sub pp()
'
' pp Macro
'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

    Range("K11").Select
    ActiveCell.FormulaR1C1 = "=+R[-4]C[5]"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        
    Range("K11").Select
    ActiveCell.FormulaR1C1 = "=+R[-3]C[5]"
    Range("K11").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        
    ActiveCell.FormulaR1C1 = "=+R[-2]C[5]"
    Range("K11").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        
    ActiveCell.FormulaR1C1 = "=+R[-1]C[5]"
    Range("K11").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        
    ActiveCell.FormulaR1C1 = "=+R[0]C[5]"
    Range("K11").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        
    ActiveCell.FormulaR1C1 = "=+R[1]C[5]"
    Range("K11").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    
    ActiveCell.FormulaR1C1 = "=+R[2]C[5]"
    Range("K11").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    
    ActiveCell.FormulaR1C1 = "=+R[3]C[5]"
    Range("K11").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    
    ActiveCell.FormulaR1C1 = "=+R[4]C[5]"
    Range("K11").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    
    ActiveCell.FormulaR1C1 = "=+R[5]C[5]"
    Range("K11").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    
    ActiveCell.FormulaR1C1 = "=+R[6]C[5]"
    Range("K11").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    
    ActiveCell.FormulaR1C1 = "=+R[7]C[5]"
    Range("K11").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    
    ActiveCell.FormulaR1C1 = "=+R[8]C[5]"
    Range("K11").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    
    
End Sub

Comme vous pouvez le voir c'est toujours le même code qui se répète avec ce qui est en gras qui se décale à chaque fois.
Je pense qu'il est possible d'automatiser ce code dans un code simple mais je ne te trouve pas ...
Merci beaucoup pour votre aide.

Bonjour,

Quand tu mets du code utilise les # pour le plaisir des yeux.

Essaies

Code:

1
2
3
4
5
6
7
8
9
10
11
 
 
For i=-4 to 5
 
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
 
Range("K11").Select
ActiveCell.FormulaR1C1 = "=+R[-i]C[5]"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

20/08/2014, 10h07
biket91

Merci.

En revanche cela ne fonctionne pas.
Il ne comprend pas For i= -4 to 5. Il met met une erreur.
Lorsque j'enlève "For i=-4 to 5", l'impression se fait bien et à partir de la ligne "ActiveCell.FormulaR1C1 = "=+R[-i]C[5]"", il y a une erreur (logique car le code "For i= -4 to n'est plus indiqué).

Comment puis-je faire ?
20/08/2014, 10h37
Philippe Tulliez
Bonjour,
Les commandes Selection et Select sont à proscrire et il faut concaténer le texte de la formule et la variable I et le + qui précède la référence n'a pas lieu d'être présent. C'est une erreur régulière dû au fait que lorsque l'on tape sur la touche caractère = et que l'on est en minuscule c'est le + qui s'affiche et en validant la formule c'est excel qui ajoute automatiquement le caractère =.
Exemple
Code:

1 2 3 For i = -4 To 5 Range("K11").FormulaR1C1 = "=R[" & i & "]C[5]" Next
[EDIT]
Une autre option est d'utiliser le référencement habituel d'excel en utilisant la propriété Formula au lieu de FormulaR1C1

Code:

Range("K11").formula = "=P" & i
20/08/2014, 11h02
biket91

Bonjour Philippe,

Merci cela a l'air de fonctionner. En revanche, la macro s'arrête à 11 personnes.

Comment puis-je faire pour que cela s'arrête au bout des cellules remplies (environ 800) ?
20/08/2014, 11h20
had4789

Tu modifies ton i =-4 (je suppsoe que c'est le premier) to =796 (je suppose que c'est le dernier).

Tu peux faire un test avec i =4 to 50.

Tu peux aussi faire un End(xlUp) ou End(xlDown)si le nombre de lignes varie pour avoir toutes les lignes jusqu'à la dernière.
20/08/2014, 11h22
Philippe Tulliez

Bonjour,
En clair, tu souhaites que la boucle commence à P7 jusqu'à la dernière cellule remplie de la colonne P ?
20/08/2014, 12h02
biket91

Oui c'est exactement cela.
20/08/2014, 12h09
Philippe Tulliez
Bonjour,
Exemple de boucle depuis la cellule P7 de la feuille nommée [Feuil3] du classeur (ThisWorkbook) où est écrite la procédure VBA
Code:

1 2 3 4 5 6 7 8 Sub test() Dim r As Long With ThisWorkbook.Worksheets("Feuil3") For r = 7 To .Range("P7").End(xlDown).Row .Range("K11").Value = "=P" & r Next r End With End Sub
Petite remarque, pourquoi as-tu mis le statut de la discussion sur 'Résolu' alors qu'elle ne l'est pas encore ?