Insertion dans cellule speciale [VBA]

Bonjour,

j'ai une demande assez spéciale dont je n'ai aucune idée si cela est possible, mais si ça l'est cela m'aiderait grandement !

Mon problème est:

Quand j’écris un mot spécial, par exemple "capot" il me l’insère dans une cellule spéciale

Pouvez-vous m'aider svp ?

Cordialement

Bonsoir,

Tout mot est spécial et toute cellule est unique. Ça n'aide pas !

Bonsoir pite0611, MFerrand,

Je te propose d'essayer ce code VBA :

Option Explicit

Sub Essai()
  Dim mot$, cel$
  mot = InputBox("saisir un mot :", "mot")
  Select Case mot
    Case "capot": cel = "D5"
    Case "coffre": cel = "G8"
    Case "toit": cel = "F2"
  End Select
  If cel <> "" Then Range(cel) = mot
End Sub

Si besoin, tu peux demander une adaptation.

Merci de me dire si ça te convient.

dhany

MFerrand a écrit :

Bonsoir,

Tout mot est spécial et toute cellule est unique. Ça n'aide pas !

Il n'y a pas forcement de cellule special mais en gros je souhaiterai que quand je rentre un mot spécial (ex: "capot") dans la cellule A1 (par exemple), le programme détecte le mot et le place dans une cellule voulu (ex: F5)

Merci Dhany, c'est un bon programme cependant je souhaite pas qu'il m'affiche un MsgBox mais qu'il fasse ce que j'ai dis sur le message juste avant: "Il n'y a pas forcement de cellule special mais en gros je souhaiterai que quand je rentre un mot spécial (ex: "capot") dans la cellule A1 (par exemple), le programme détecte le mot et le place dans une cellule voulu (ex: F5)"

Autre version :

Option Explicit

Sub Essai()
  Dim mot$, cel$: mot = [A1]
  Select Case mot
    Case "capot": cel = "F5"
    Case "coffre": cel = "G8"
    Case "toit": cel = "D2"
  End Select
  If cel <> "" Then Range(cel) = mot
End Sub

note : dans ce code (comme dans le précédent), rien n'est fait si y'a pas d'mot spécial.

dhany

Ok alors tout d'abord merci beaucoup c'est bien ce que je demande ! Cependant il m’envoie une erreur d’exécution et je ne comprend pas pourquoi !

quand je lance le débogage il me surligne cette ligne :

comme tu veux utiliser Worksheet_Change(), le code VBA doit être différent !

voici donc la nouvelle version :

dhany

Parfait, merci !