Incrementer (resolu)

[jpaul625]

Bonjour
Es que c'est possible d'incrémenter la cellule i2 de la feuille princ
au début dans ce macro

Sub Macro1()
'
' Macro1 Macro
'

'
Application.ActivePrinter = "Brother HL-2240 series sur Ne05:"
ExecuteExcel4Macro _
"PRINT(1,,,2,,,,,,,,2,""Brother HL-2240 series sur Ne05:"",,TRUE,,FALSE)"
End Sub

merci

 

[Lone-wolf]

Re : Incrementer

Bonsoir jpaul625

Je doute très très fort que quelqu'un aie compris ce que tu veux.

Qu'est-ce que tu veux obtenir au juste ? Explique-toi mieux.


A+

 

[Modeste geedee]

Re : Incrementer



[I2]=[I2]+1

Non ... ???

 

[Lone-wolf]

Re : Incrementer

Bonsoir Modeste geedee

Ou peut-être comme ceci :

Sub Macro1()
With Sheets("Entrée")
.Cells(2, 9) = .Cells(2, 9) + 1
Application.ActivePrinter = "Brother HL-2240 series sur Ne05:"
ExecuteExcel4Macro _
"PRINT(1,,,2,,,,,,,,2,""Brother HL-2240 series sur Ne05:"",,TRUE,,FALSE)"
MsgBox "Nombre d'impression " & .Cells(2, 9).Value
End With
End Sub

Good Night

 

[jpaul625]

Re : Incrementer

Bonsoir
Merci de répondre
Je me suis mal expliquer
Voici: lorsque j'imprime une feuille qui est une autre que Entrée j'ai environ 10 feuilles
Je voudrais incrémenté + 1 la cellule i2 de la feuille entrée avant l'impression
Merci

 

[jpaul625]

Re : Incrementer

Salut Lone-Wolf
La macro fonctionne parfaitement
merci
Incroyable

 

[Lone-wolf]

Re : Incrementer

Bonjour jpaul625,

ravi de t'avoir aidé.

Si tu passe par ici, met dans l'entête du premier message [Résolu] Incrementer. Come ça on sait que le sujet est résolu.


A+