Insertion dans cellule speciale [VBA]

**pite0611** · 18/06/2018, 16h34

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é** · 18/06/2018, 17h00

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** · 19/06/2018, 09h09

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** · 19/06/2018, 09h36

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

**Menhir** · 19/06/2018, 09h56

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 :

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

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

**pite0611** · 19/06/2018, 10h03

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** · 19/06/2018, 10h04

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.

**pite0611** · 19/06/2018, 10h06

et en code VBA cela donnerai quoi ..?

**Menhir** · 19/06/2018, 10h23

Code :

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

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

**pite0611** · 19/06/2018, 11h12

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 :

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** · 19/06/2018, 11h15

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

**pijaku** · 19/06/2018, 11h52

Envoyé par pite0611

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

Comme ça :

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

**pite0611** · 19/06/2018, 12h00

merci <3

**pite0611** · 25/06/2018, 10h09

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 :

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

**pijaku** · 25/06/2018, 10h17

Bonjour,

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

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

**pite0611** · 25/06/2018, 10h26

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

Insertion dans cellule speciale [VBA]

Macros et VBA Excel

Discussions similaires

Partager

Partager