Insertion dans cellule speciale [VBA]

Version imprimable

18/06/2018, 16h34
pite0611

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
18/06/2018, 17h00
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 :))
19/06/2018, 09h09
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)

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:

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...

19/06/2018, 09h56
Menhir

Citation:

Envoyé par pite0611

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:

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

le code ne fonctionne pas

Code:

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

19/06/2018, 10h04
Menhir

Citation:

Envoyé par pite0611

le code ne fonctionne pas

Je n'ai pas dit que c'était du code VBA.
C'est une formule à mettre dans une cellule.
19/06/2018, 10h06
pite0611

et en code VBA cela donnerai quoi ..?
19/06/2018, 10h23
Menhir

Code:

Range("F5").FormulaLocal = "=SI(A1=""capot"";A1;"""")"

Citation:

Envoyé par 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:

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 !

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

Code:

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

Citation:

Envoyé par pite0611

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

Comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellSource As Range, CellCible As Range, Mots, i As Integer
   Mots = Array("capot", "court-circuit")   ' A ADAPTER
   Set CellSource = Me.Range("A1")   ' A ADAPTER
   If Not Intersect(Target, CellSource) Is Nothing Then
      For i = LBound(Mots) To UBound(Mots)
         If CellSource.Value = Mots(i) Then
            Set CellCible = Me.Range("F5")   ' A ADAPTER
            CellCible.Value = CellSource.Value
            CellSource.Value = ""
            Set CellCible = Nothing
            Exit For
         End If
      Next
   End If
   Set CellSource = Nothing
End Sub

19/06/2018, 12h00
pite0611

merci <3

Bonjour, le programme fonctionne bien mais le problème c'est que je dois le copier coller vraiment bcp de fois si je veux l’utiliser plusieurs fois. N'existe-t-il pas un moyen que quand j'entre un un mot "capot, cour-circuit" en colonne C il me restitue m’écris le mot en E mais sur la même ligne ?
Cordialement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellSource As Range, CellCible As Range, Mots, i As Integer
   Mots = Array("capot", "court-circuit")   ' A ADAPTER
   Set CellSource = Me.Range("A1")   ' A ADAPTER
   If Not Intersect(Target, CellSource) Is Nothing Then
      For i = LBound(Mots) To UBound(Mots)
         If CellSource.Value = Mots(i) Then
            Set CellCible = Me.Range("F5")   ' A ADAPTER
            CellCible.Value = CellSource.Value
            CellSource.Value = ""
            Set CellCible = Nothing
            Exit For
         End If
      Next
   End If
   Set CellSource = Nothing
End Sub

Bonjour,

Décidément, il faut tout te faire...
pite0611
Membre à l'essai
Étudiant ==> il est grand temps de t'y mettre...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Mots, i As Integer
 
   Mots = Array("capot", "court-circuit")   ' A ADAPTER
 
   If Target.Column = 3 Then
      For i = LBound(Mots) To UBound(Mots)
         If Target.Value = Mots(i) Then
            Target.Offset(0, 2).Value = Target.Value
            Target.Value = ""
            Exit For
         End If
      Next
   End If
End Sub

25/06/2018, 10h26
pite0611

Citation:

Envoyé par pite0611

N'existe-t-il pas un moyen

Merci beaucoup pour le programme mais ce n'est pas la peine de me faire un reproche, j'avais juste demander si il existait un moyen de base et non de me le faire..