Changement valeur cellule

Bonjour à tous,

je souhaiterai modifier le code ci-joint sur tout une feuil excel, sans à devoir créer un code pou chaque ligne.

Est ce que quelqu'un pourrai m’aider?

Private Sub Worksheet_Change(ByVal Target As Range)

'Changer valeur d'une cellule en fonction d'une autre, le 26/12/2016 par Guillaume

On Error Resume Next

If Sheets("pret").Range("K2").Value <> "" Then

Sheets("pret").Range("U2").Value = "ENLEVE"

Else

Sheets("pret").Range("U2").Value = ""

End If

End Sub

Cordialement,

Guillaume

Bonjour,

C'est pas clair du tout, soit plus précis, que veux-tu obtenir exactement ???

Et pourquoi as-tu mis cette ligne ?

On Error Resume Next

Bonjour Guithou, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
'si la colonne de la cellule modifiée est différente de 11 (=> colonne K), sort de la procédure
If Target.Column <> 11 Then Exit Sub
'si la cellule en colonne K est non vide, envoie "ENLEVÉ" dans la colonne U
If Target.Value <> "" Then 
     Target.Offset(0, 10).Value = "ENLEVË"
Else
     Target.Offset(0, 10).Value = ""
End If
End Sub

[Édition]

Bonjour Patrice, nos posts se sont croisés...

Merci ThauThème àa marche nickel

Dsl mais je suis sur plusieurs formule en même temps.

Concernant ce code, comment peux-ton faire la même chose mais avec 2 cellule différentes par exemple?

En gros ça donnerai ça:

si colonne K différent de vide alors colonne U= ENLEVÉ

si colonne K et M différent de vide alors colonne U= A VÉRIFIER

Cordialement,

Bonjour Patrice33740,

Dsl de ne pas t'avoir répondu hier. J'ai mis On Error Resume Next car suivant les pc, mon code vba marquait erreur.

Cordialement,