macro : figer un code de facture sous condition

[max 35]

bonjours,

je souhaiterai figer le code dans la colonne C uniquement quand il est écrit "soldé" dans la colonne A
le but est de garder un n° de facture devant les ligne concernées car le code est une variable (B1).

ex:

figer la cellule C5 car A5 = soldé

en espérant avoir était clair.
merci d'avance pour votre aide

max

 

[DoubleZero]

Re : macro : figer un code de facture sous condition

Bonjour, max 35, le Forum,

Peut-être avec ce code, placé dans le module de l'onglet :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a3:a" & Range("a65536").End(xlUp).Row)) Is Nothing Then
If Target = "soldé" Then Target.Offset(, 2).Value = Target.Offset(, 2).Value
End If
End Sub

A bientôt

 

[max 35]

Re : macro : figer un code de facture sous condition

bonjour doublezero,

je suis un débutant en macro...
je ne comprend pas le "placé dans le module de l'onglet"
peut tu m'expliquer STP?

merci d'avance
max

 

[DoubleZero]

Re : macro : figer un code de facture sous condition

Re-bonjour,

Pour copier la macro sur le fichier de travail, il suffit de procéder ainsi :

Bon courage et à bientôt

 

[DoubleZero]

Re : macro : figer un code de facture sous condition

Re-bonjour,

Voici le fichier contenant la macro qu'il faut activer.

A bientôt

 

[max 35]

Re : macro : figer un code de facture sous condition

merci doublezero!!!

c'est bien ça!
par contre j'ai besoin d'adapter ce code à un fichier plus gros et je ne comprend pas à quoi correspond le 2
dans "Target.Offset(, 2).Value = Target.Offset(, 2).Value"

si se n'est pas trop demandé peux tu m'expliquer STP?

 

[DoubleZero]

Re : macro : figer un code de facture sous condition

Re-bonjour,

...si se n'est pas trop demandé peux tu m'expliquer STP?

Très volontiers ! Voici la macro commentée...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'début de condition
'à partir de a3, si la cellule n'est pas vide
If Not Intersect(Target, Range("a3:a" & Range("a65536").End(xlUp).Row)) Is Nothing Then
'si la valeur est "soldé", alors la cellule décalée de deux vers la droite,
'pour atteindre la colonne c, voit sa formule transformée en valeur
If Target = "soldé" Then Target.Offset(, 2).Value = Target.Offset(, 2).Value
'fin de condition
End If
'fin de la macro
End Sub

... et ne pas hésiter à revenir en cas de difficulté(s).

A bientôt

 

[max 35]

Re : macro : figer un code de facture sous condition

bonjour,

merci beaucoup doublezero!
je vais pouvoir réutiliser ça maintenant!
le problème est résolu!
mais je ne vois pas ou l'indiquer...

 

[DoubleZero]

Re : macro : figer un code de facture sous condition

Bonjour, max 35, le Forum,

... le problème est résolu! mais je ne vois pas ou l'indiquer...

Cela peut être fait en modifiant le titre du #1 et ce n'est pas une obligation.

A bientôt