Incrementer (resolu)

Lone-wolf

XLDnaute Barbatruc

• 30 Mai 2013

• #2

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+

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 30 Mai 2013

• #3

Re : Incrementer



[I2]=[I2]+1

Non ... ???

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 30 Mai 2013

• #4

Re : Incrementer

Bonsoir Modeste geedee

Ou peut-être comme ceci :

Code:

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

 

Dernière édition: 30 Mai 2013

Vote positif 0 Vote négatif

J

jpaul625

XLDnaute Junior

• 31 Mai 2013

• #5

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

 

Vote positif 0 Vote négatif

J

jpaul625

XLDnaute Junior

• 31 Mai 2013

• #6

Re : Incrementer

Salut Lone-Wolf
La macro fonctionne parfaitement
merci
Incroyable

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 31 Mai 2013

• #7

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+

 

Vote positif 0 Vote négatif