macro d'incrémentation à l'enregistrement

[Dam]

Salut à tous

Je souhaite créer une macro destinée à incrémenter la valeur d'une cellule lorsque je lance une impression de la feuille active, comment puis-je procéder.
Par ailleurs, je me demandais aussi s'il était possible de lancer une macro depuis la fonction Si (si telle condition est vraie, lancer telle macro)
Merci d'avance

Damien

 

[@+Thierry]

Bonjour Dam....

Pour La Question compter l'évènement Impression :
Colle ce code dans le private module "ThisWorkbook" d'un classeur Vierge

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Compteur As Integer
If ActiveSheet.Name <> "Feuil1" Then Exit Sub
Compteur = Sheets(2).Range("A1")
Compteur = Compteur + 1
Sheets(2).Range("A1") = Compteur
End Sub
(Ecris un truc en Feuil1 puis imprime cette feuille... En Feuil2 tu auras le compteur qui va démarrer...)


Pour La Question Lancer un macro Si tel condition :
Tu as l'exemple concrêt dans le code ci-dessus
If ActiveSheet.Name <> "Sheet1" Then Exit Sub
"Si la feuille Active n'est pas la Feuil1 quitter la macro"

Maintenant ceci peut être à propo de n'importe quoi ... exemple :
Copie le code ci dessous dans un module standard... écris "toto" en A1 et fait tourner ...
Option Compare Text
Sub Toto()
If Range("A1").Value = "Toto" Then
Range("A2").Value = "Zaza à coté de Toto 🙂"
Else
Range("A2").Value = "Zaza a perdu Toto :-("
End If
End Sub
Il y a une multitude de possibilités... Le IF est une notion fondamentale de programmation.

Pour la petite histoire[:b] "Option Compare Text" en haut de module permet de définir que TOTO ou toto ou Toto sont équivalent.... Sinon il faudarit taper exactement "Toto en A1 pour que la condition soit Vraie...

Bon ben je pense que tu vas pouvoir avancer...

Ah oui j'oubliais, c'est mieux en général de poster une seule question par fil de discussion car c'est bcp plus facile à suivre pour tout le monde.

Welcome to XLD

@+Thierry

 

[@+Thierry]

oups un [ / b ] oublié !!! Sorry 🙂)
(on se fait facilement avoir !)

 

[Dam]

Salut,
Merci pour tout pour la réponse, ça marche au poil.
A+