Discussion :

[pite0611]

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

[Jean-Philippe André]

Salut,

dans quelle cellule/quel objet est-il ici question d'insertion au départ ?

Une cellule "spéciale", c'est une cellule spécifique, car il n'y a pour ainsi dire aucune cellule spéciale (genre cellule magique )

[pite0611]

Bonjour,
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)

[pijaku]

Bonjour,

Ce code est à placer dans le module de la feuille concernée (clic droit sur l'onglet de cette feuille / visualiser le code) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Private Const MOT As String = "Capot"   ' A ADAPTER
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellSource As Range, CellCible As Range
   Set CellSource = Me.Range("A1")   ' A ADAPTER
   If Not Intersect(Target, CellSource) Is Nothing Then
      If CellSource.Value = MOT Then
         Set CellCible = Me.Range("F5")   ' A ADAPTER
         CellCible.Value = CellSource.Value
         CellSource.Value = ""
         Set CellCible = Nothing
      End If
   End If
   Set CellSource = Nothing
End Sub

Adaptez ce qui doit l'être...

[pite0611]

Bonjour,

Ce code est à placer dans le module de la feuille concernée (clic droit sur l'onglet de cette feuille / visualiser le code) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Private Const MOT As String = "Capot"   ' A ADAPTER
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellSource As Range, CellCible As Range
   Set CellSource = Me.Range("A1")   ' A ADAPTER
   If Not Intersect(Target, CellSource) Is Nothing Then
      If CellSource.Value = MOT Then
         Set CellCible = Me.Range("F5")   ' A ADAPTER
         CellCible.Value = CellSource.Value
         CellSource.Value = ""
         Set CellCible = Nothing
      End If
   End If
   Set CellSource = Nothing
End Sub

Adaptez ce qui doit l'être...

Desolé, je n'avais pas vu ton message, il correspond parfaitement à ma demande merci beaucoup !

[pite0611]

et si je veux ajouter d'autre mot (Capot, Court-circuit) je le modifie comment ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Option Explicit
 
Private Const MOT As String = "Capot"   ' A ADAPTER
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellSource As Range, CellCible As Range
   Set CellSource = Me.Range("A1")   ' A ADAPTER
   If Not Intersect(Target, CellSource) Is Nothing Then
      If CellSource.Value = MOT Then
         Set CellCible = Me.Range("F5")   ' A ADAPTER
         CellCible.Value = CellSource.Value
         CellSource.Value = ""
         Set CellCible = Nothing
      End If
   End If
   Set CellSource = Nothing
End Sub

[Menhir]

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)

Le plus simple, c'est de mettre en F5 la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A1="capot";A1;"")

[pite0611]

le code ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Private Sub Worksheet_Change(ByVal Target As Range)
=SI(A1="capot";A1;"")
End Sub

[Menhir]

le code ne fonctionne pas

Je n'ai pas dit que c'était du code VBA.
C'est une formule à mettre dans une cellule.