macro : figer un code de facture sous condition

DoubleZero

XLDnaute Barbatruc

• 23 Janvier 2014

• #2

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 :

Code:

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 🙂

 

Vote positif 0 Vote négatif

M

max 35

Guest

• 23 Janvier 2014

• #3

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 23 Janvier 2014

• #4

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 🙂

 

Pièces jointes

• Où placer le code.JPG

  25.6 KB · Affichages: 79
• Où placer le code.JPG

  25.6 KB · Affichages: 101
• Où placer le code.JPG

  25.6 KB · Affichages: 95

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 23 Janvier 2014

• #5

Re : macro : figer un code de facture sous condition

Re-bonjour,

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

A bientôt 🙂

 

Pièces jointes

• 00 - max 35 - Formule convertir en valeur si....xls

  62 KB · Affichages: 56

Vote positif 0 Vote négatif

M

max 35

Guest

• 23 Janvier 2014

• #6

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?

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 23 Janvier 2014

• #7

Re : macro : figer un code de facture sous condition

Re-bonjour,

max 35 à dit:

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

Cliquez pour agrandir...

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

VB:

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 🙂

 

Vote positif 0 Vote négatif

M

max 35

Guest

• 24 Janvier 2014

• #8

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...

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 24 Janvier 2014

• #9

Re : macro : figer un code de facture sous condition

Bonjour, max 35, le Forum,

max 35 à dit:

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

Cliquez pour agrandir...

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

A bientôt 🙂

 

Vote positif 0 Vote négatif