[VBA-E] Tri en fonction de lettre

Version imprimable

06/10/2005, 10h35
Deejoh

[VBA-E] Tri en fonction de lettre

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

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:

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

Tri en fonction de lettres

Bonjour,

Code:

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

06/10/2005, 11h21
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

Tri selon lettres

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

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

06/10/2005, 15h55
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
06/10/2005, 16h12
Theocourant

Citation:

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

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

@+

Théo

Pensez au tag :resolu: en bas à gauche, merci