Ecrire un mot dans une cellule lorsqu'une condition est remplie

gillmo · 8 Novembre 2011

Bonjour,

J'ai repris un code VBA que j'ai trouvé sur le forum et j'ai essayé de l'adapter un peu à ma problèmatique. Le problème c'est que je n'arrive pas à obtenir ce que je souhaite. Je vous met un fichier pour exemple.

Dans mon exemple, je souhaiterai dès lors que dans la colonne noté X il y a un oui, il y ai écrit "cf synthèse" dans la colonne noté Y et que la cellule soit verrouillé. Si c'est non ou vide alors la cellule correspondante dans la colonne Y n'est pas verrouillé

Je ne sais pas si je suis très clair.

merci de votre aide

Guest · 9 Novembre 2011

Re : Ecrire un mot dans une cellule lorsqu'une condition est remplie

Re,

Petites corrections, on error resume next déplacer au bon endroit.
Pas utile de répéter les If c="oui" etc.

protection/déprotection ont disparu!?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub ' Si Taget comporte plusieur cellules ->sortie
   'Si target est en G et sa ligne entre 3 et 104
    If Target.Column <> 7 Or Target.Row < 4 Or Target.Row > 103 Then Exit Sub
    On Error Resume Next
    Application.EnableEvents = False    'empêche le rappel de l'évènement Change
    If Target = "oui" Then
        Range("j" & Target.Row) = "cf synthèse"
        MsgBox "ne pas oublier d'aller dans l'onglet NAO"
    Else
        Range("j" & Target.Row).ClearContents
    End If
    Application.EnableEvents = True
End Sub

visiblement tu ne comprends pas ce que tu fais.

A+

Ecrire un mot dans une cellule lorsqu'une condition est remplie

gillmo

XLDnaute Occasionnel

Pièces jointes

Guest

Guest

Discussions similaires

Ecrire un mot dans une cellule lorsqu'une condition est remplie

gillmo

XLDnaute Occasionnel

Pièces jointes

Guest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency