Discussion :

[Deejoh]

Bonjour,


voilà je dois mettre "stock" dans la cellule AH si la cellule de la colonne B contient un numéro commençant par "Q"

Je dois mettre Entrée dans la cellule AH si la cellule de la colone b commence par "X" ou contient "conten"


Je suis bloqué...

Merci

[Theocourant]

Salut,

La solution peut être de passer par une fonction que tu appliques sur une cellule prenant en référence une autre cellule:

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
20
21
22
23
24
25
26
27
28
Function CodeStock(ByRef Target As Range) As String
Dim maChaine As String
Dim C
    If Target.Cells.Count > 1 Then
        GoTo ErrHandler
    End If
 
    For Each C In Target.Cells
        Select Case UCase(Mid(C.Value, 1, 1))
            Case "Q"
                CodeStock = "Stock"
                Exit Function
            Case "X"
                CodeStock = "Entrée"
                Exit Function
            Case Else
                If InStr(C.Value, "conten") <> 0 Then
                    CodeStock = "Entrée"
                Else
                    CodeStock = "## Données entrée invalides ##"
                End If
                Exit Function
        End Select
    Next C
 
ErrHandler:
    CodeStock = "## Nombre de cellule sélectionnée >1 ##"
End Function

Bonne continuation

Théo

[leroissejp]

Bonjour,

Code :

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

1
2
3
 
1) Quelle cellule de la colonne B ??
2) Il vaut mieux mettre l'entièreté de la valeur (par exemple x124), de façon à permettre d'utiliser une boucles If Then Else.

jpleroisse

[Theocourant]

Re,

J'ai oublié de préciser que le code s'applique sur la cellule de la colonne AH en fonction de la cellule de la colonne B

ex code cellule AH7:
=CodeStock("B7")

@+

Théo

[leroissejp]

Bonjour,
Essaie ce code comme il est pour toi le comprendre, ensuite change à tes besoins la cellule de destination.

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Sub Test()
If Range("B7").Value = "QuantitéStock" Then
Range("D7").Value = "Stock"
ElseIf Range("B7").Value = "ContenStock" Then
Range("D7").Value = "Entree"
End If
End Sub

jpleroisse

[leroissejp]

Re bonjour,
Dans la macro j'ai écrit dans la cellule B7 QuanititéStock et ensuite j'ai remplacer par ContenStock, si c'est autre chose qui y est écrit alors change le nom dans la macro. Tu peux aussi mette plusieur ElseIf avec d'autres noms.

jpleroisse

[Theocourant]

Re bonjour,
Dans la macro j'ai écrit dans la cellule B7 QuanititéStock et ensuite j'ai remplacer par ContenStock, si c'est autre chose qui y est écrit alors change le nom dans la macro. Tu peux aussi mette plusieur ElseIf avec d'autres noms.

jpleroisse

Lut jpleroisse,

Il est à noter qu'il travaille essentiellement sur la première lettre de ce qui est écrit dans la cellule de référence comme il le signale dans son post...


@+

Théo

Pensez au tag en bas à gauche, merci