XL 2016 Afficher Valeur si recherche X dans colonne en VBA

[bennp]

Bonjour,

j'ai une macro qui réalise des factures automatique, je voudrais juste rajouter à la fin de la procédure "OUI" lorsque la facture est créée.

transcrir en VBA :

Si recherche "X" dans la colonne A alors afficher "OUI" dans colonne J (ligne ou est situé le X)

en clair si j'ai X en A7, je veux afficher "OUI" en J7

merci de votre aide

 

[phlaurent55]

Bonjour bennp,

avec ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A7")) Is Nothing Then
[J7] = IIf(UCase(Target) = "X", "OUI", "")
End If
End Sub

à+
Philippe

 

[phlaurent55]

Re,

ou avec ce code qui réagit sur toute la colonne A

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target.Offset(0, 10) = IIf(UCase(Target) = "X", "OUI", "")
End If
End Sub

à+
Philippe

 

[bennp]

Merci pour votre réponse rapide. Le problème est que je ne sais pas où se trouve le X dans la colonne A.
Merci

 

[phlaurent55]

Re,

Sans voir le fichier ce n'est pas évident de comprendre la demande

il est nécessaire de savoir comment arrive le "X" dans la colonne A
Est-ce via la macro ou par saisie manuelle dans la cellule concernée ???
ou par un autre moyen ???

à+
Philippe

 

[bennp]

Oui desolé,

je mets justement X dans la colonne A manuellement pour que les infos de facturations soit insérés dans la facture a éditer

merci beaucoup

 

[phlaurent55]

Re,

Oui desolé,

je mets justement X dans la colonne A manuellement pour que les infos de facturations soit insérés dans la facture a éditer

merci beaucoup

Dans ce cas, ma seconde intervention répond à la demande

À+
Philippe

 

[bennp]

Super merci ! par contre si j'enlève le "X" le oui disparaît alors que ma facture est créée. Serait-il possible d'avoir un bout de code à la suite de ma macro qui créer la facture, indiquant d'aller dans la feuille 1, rechercher la ligne ou est situé "X" et afficher oui sur la colonne 6 de cette même ligne

je joins un fichier pour aider

ps : il n'y a pas de macro qui créer la facture sur ce fichier

Merci beaucoup

 

[phlaurent55]

Re,

je constate que le code trouvé dans ce dernier fichier joint ne correspond pas au code que j'ai donné en exemple

Mon code se trouve dans:
Private Sub Worksheet_Change(ByVal Target As Range)

alors que dans ton fichier il se trouve dans:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

à+
Philippe

 

[bennp]

oui,

j'ai essayé de tester des trucs

merci

 

[bennp]

Bonjour

je reviens vers vous car je n'ai pas trouvé de solution pour que le oui reste. Serait-il possible d'ajouter un bout de code à une macro déjà existante qui crée la facture ? cela me permettrait d'être sûr que le OUI est bien sur la bonne ligne et ainsi éviter qu'un OUI s'ajoute parce que j'ai ajouté "X" sur une ligne sans le faire exprès.

Merci d'avance