XL 2016 Ecriture dans une cellule sous conditions

[Ayari69700]

Bonjour,

J'essai désespérément de faire en vba :

si j'ai dans ma colonne A le texte "coul" alors j'écris "couloir" dans la colonne C
si j'ai dans ma colonne A le texte "bur" alors j'écris "bureaux" dans la colonne C
si j'ai dans ma colonne A le texte "LT" alors j'écris "locaux" dans la colonne C

Merci beaucoup par avance pour votre aide.

Dsl si ça peut paraître bateau pour certains

 

[Staple1600]

Bonjour le fil, Ayari69700

Ayari69700
Une solution par formule (à copier en C1 puis recopie vers le bas)
=SIERREUR(SI(A1<>"";INDEX({"couleur";"bureau";"locaux"};EQUIV(A1;{"coul";"bur";"LT"};0));"");"")

 

[Ayari69700]

Bonjour et merci pour l'aide, ça ne marche pas ça affiche des cellules vides..

Toujours preneur d'une solution vba si possible ...

 

[Staple1600]

Re,

Si,si ...cela fonctionne sinon pourquoi diable aurais-je posté cette formule ?
Il se passe quoi en C1, si en A1 tu saisis coul?

Toujours preneur d'une solution vba si possible ...

"Avant de penser VBA, penser fonctions natives d'Excel" est le premier réflexe des adeptes (sortis du noviciat) d'Excel.

 

[Ayari69700]

Re,

Si,si ...cela fonctionne sinon pourquoi diable aurais-je posté cette formule ?
Il se passe quoi en C1, si en A1 tu saisis coul?


"Avant de penser VBA, penser fonctions natives d'Excel" est le premier réflexe des adeptes (sortis du noviciat) d'Excel.

Heu à vrai dire j'ai besoin de conserver le contenu des cellules en colonne A. Grossomodo j'ai besoin de chercher dans la cellule si il y "coul" parmis d'autres caractères.

Merci

 

[Staple1600]

Re

???
Le contenu en colonne A est conservé puisque la formule est à mettre en colonne C
(comme clairement indiqué dans mon message)

Donc oui, la formule fonctionne
La preuve, elle fonctionne aussi en VBA ...

Private Sub Worksheet_Change(ByVal Target As Range)
s_trings = Array("couleurs", "bureaux", "locaux")
vStr = Array("coul", "bur", "lt")
With Application
If Target.Column = 1 Then
Target(1, 3) = .Index(s_trings, .Match(Target, vStr, 0))
End If
End With
End Sub

NB: Code à mettre à l'emplacement idoine dans le projet VBA.

 

[Ayari69700]

Je suis vraiment dsl j'ai suivi vos instructions sans succès aussi bien pour le vba que la formule xls

Il y a quelque chose que j'ai loupé ou pas compris.

dsl je suis pas bon :-(

 

[Staple1600]

Re

Reprenons au début
Ouvres un classeur vierge
et copie en C1 la formule du message#2
Ni plus, ni moins
Ensuite va en A1 et saisis dedans bur puis appuie sur ENTREE
Que vois-tu apparaître en C1?

 

[Staple1600]

Re

A mettre dans le code de la feuille (qui est donc l'endroit idoine)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, vStr, s_trings
vStr = Array("coul", "bur", "lt")
s_trings = Array("couleurs", "bureaux", "locaux")
If Target.Column = 1 Then
For i = 0 To 2
Select Case InStr(Target, vStr(i))
Case Is > 1
Target(1, 3) = s_trings(i)
Case Else
'
End Select
Next
End If
End Sub

NB: Il faut donc que le code VBA ne soit pas copié dans un module standard.

 

[Ayari69700]

C'est ce que j'essayais d'expliquer plus haut. Les cellules dans la colonne A ne doivent pas bouger les caractères "bur" "coul" sont intégrées a d'autre caractère.

Pour résumer en colonne A je recois des données d'un autre tableau. Il n' y aura jamais "bur" ou "coul" seul.

 

[Ayari69700]

Sinon pouvez vous me mettre le code vba au bon endroit, car je ne sais positionner du vba que quand il est associé à un bouton.

Quand il n'y a pas de bouton je ne sais pas ou le mettre

Merci pour votre patience

 

[Staple1600]

Re

J'ai déjà écrit où le mettre : dans le code de la feuille
(donc clic-droit sur l'onglet > Visualiser le code - c'est là qu'il faut mettre le code VBA du message#9)

 

[Ayari69700]

Ca ne marche pas j'abandonne. Merci beaucoup pour votre aide et votre patience.

Ah pouvez vous mettre le code au bonne endroit dans le fichier joint ?

 

[Staple1600]

Re

Et si le choix se porte sur un bouton, c'est cette version de la macro qu'il faut utiliser.
(Et dans ce cas, le code est à mettre dans un Module Standard, comme ceux qui ont comme nom Module1)

Sub Macro_Pour_Bouton()
Dim c As Range, s_trings, vStr
s_trings = Array("couleurs", "bureaux", "locaux")
vStr = Array("coul", "bur", "lt")
Application.ScreenUpdating = False
For Each c In Range("A1:A100") 'adapter ici la plage de cellules.
If Len(c) Then
  For i = 0 To 2
  Select Case InStr(c, vStr(i))
  Case Is > 1
  Cells(c.Row, 3) = s_trings(i)
  Case Else
  '
  End Select
  Next
End If
Next
End Sub

NB: Et dans ce cas, bien veiller à supprimer le code VBA présent dans le code de la feuille.

 

[Ayari69700]

Ça marche merci infiniment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!