Discussion :

[Chribusquets]

Bonjour à toutes et tous

je suis nul en vba et je rencontre un problème
Voila

J'ai une petite macro simple que je voudrai faire tourner automatiquement et autant de fois ( de 1 à x) le x étant une valeur dans une cellule
Cette macro , en premier incrément de 1 la valeur d'une cellule, ce qui permet par le biais de recherche V d'importer des données
en deuxième elle commande l'impression d'une zone d'impression
Dans le fichier de base les lignes sont numérotées et dans une cellule j'ai le nombre total de lignes (Formule max de la collone A).
Je voudrais que ma macro tourne autant de fois pour arriver à la quantités de ligne (donnée trouvée dans la cellule N17)
Ma macro est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub impression() 'Sub Incremente()
 
' increment de une unité (N°) de ligne
 
Range("I18").Value = Range("I18").Value + 1
 
' impression Macro
' Macro enregistrée le 27/02/2011 par BUSQUETS-MAYOL-CHRISTIAN
'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Si quelqu'un pouvait m'aider, cela serait genial

Merci d'avance

Christian

[casefayere]

Bonsoir,

Une boucle simple For Next devrait suffire.

Code :

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

1
2
3
4
5
6
7
8
sub cequetuveux()
dim x
for x = 1 to range(N17)
       Range("I18").Value = Range("I18").Value + 1
       ...autres instructions
next x
 
end sub

si j'ai compris....

[casefayere]

Tu me dis en MP que ça fonctionne, j'en suis ravi mais apparemment, tu n'as rien changé.

Tu n'as peut-être pas l'habitude des macros mais enlèves ce qui est inutile

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub impression() 'Sub Incremente() <= en rouge inutile
Dim x

For x = 1 To Range("N17")

Range("I18").Value = Range("I18").Value + 1

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next x

End Sub