Macro valeur de cellules en fonction d'autres

Bonjour

Je suis toujours aussi débutant.

J’ai besoin d’écrire une macro pour automatiser l’opération suivante.

Si dans une cellule de la colonne i le texte « Non » (sans les guillemets) est présent, alors le contenu de la cellule de la ligne correspondante dans la colonne F, doit être copié dans les cellules de la ligne correspondante des colonnes J et K.

(J’espère que ma demande est claire…)

Merci pour votre aide

Bonjour Abougor,

dhany

Bonjour,

Pour le principe :

Public Sub XXX()
    With ActiveSheet
        If UCase(.Cells(1, 9)) = "NON" Then .Cells(1, 10).Resize(, 2).Value = .Cells(1, 6)
    End With
End Sub

J'ai bien collé cette macro, mais il n'y a aucun changement.

ça irait plus vite si tu envoies ton fichier ! pour cela, tu peux utiliser le bouton « Ajouter des fichiers » qui est situé juste sous la fenêtre d'édition de ton post. (et t'inquiètes pas, c'est gratuit ! )

dhany

Re,

Tu saisis "Bonsoir" en F1 et "non" en I1 et tu exécutes la procédure XXX à partir de la feuille active !...

Voici le fichier joint.

Re,

Une proposition à étudier.

C'est une procédure évènementielle.

A te relire pour la finalisation.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Me.Range("I4:I269")) Is Nothing Then
        If UCase(Me.Cells(Target.Row, 9)) = "NON" Then Me.Cells(Target.Row, 10).Resize(, 2).Value = Me.Cells(Target.Row, 6)
    End If
End Sub

@Abougor

je te retourne ton fichier modifié :

je te laisse faire les tests.

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

dhany

Merci

Cela fonctionne parfaitement

@Abougor

merci pour ton retour ! bonne continuation !

dhany