Remplissage automatique de cellules

[apt]

Bonsoir à tous,

J'ai les données suivantes :

T100 ==> BDF
T101 ==> MDT
T102 ==> FDR


Alors j'aimerais remplir automatiquement des cellules adjacentes selon les données présentes ci-dessous.

Quand je saisi dans la colonne A : T100-5, T100-1, ... T100-n

Dans la colonne D on reçois automatiquement le mot correspondant qui est : BDF

J'espere etais clait

Merci d'avance.

 

[Fred0o]

Re : Remplissage automatique de cellules

Bonsoir apt,

En mettant les T100 / T101 / T102 en K1:K3, puis les BDF / MDT / FDR en L1:L3.

Tu saisis cette formule en D1 et tu tires vers le bas

=SI(ESTNA(RECHERCHEV(GAUCHE(A1;4);$K$1:$L$3;2;FAUX));"";RECHERCHEV(GAUCHE(A1;4);$K$1:$L$3;2;FAUX))

Lorsque tu tapes une valeur en colonne A, la correspondance s'affiche en colonne L.

A toi de l'adapter.

A+

 

[apt]

Re : Remplissage automatique de cellules

Bonsoir Fred0,

Merci pour ta solution en formule, mais y'a-t-il pas une solution en vba ?

Parce que j'ai au moins 4000 lignes à saisir.

 

[Fred0o]

Re : Remplissage automatique de cellules

Re-bonsoir,

Je dois pouvoir trouver ça mais avec 456 au compteur, tu aurais pu avoir la présence d'esprit de le préciser dès le départ, cela m'aurait évité de perdre du temps pour rien sur la formule.

A+

 

[Fred0o]

Re : Remplissage automatique de cellules

Re-bonsoir,

A mettre dans le code de la feuille qui te convient :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [A:A]) Is Nothing Then
        Select Case Left(Target, 4)
            Case "T100"
                Target.Offset(0, 3) = "BDF"
            Case "T101"
                Target.Offset(0, 3) = "MDT"
            Case "T102"
                Target.Offset(0, 3) = "FDR"
        End Select
    End If
End Sub

A+

 

[apt]

Re : Remplissage automatique de cellules

Je m'excuse Fred0o, mais rien n'est perdu.

Et j'aimerais bien garder la formule pour les petits tableaux.

Pour le code, il marche bien.

Mille merci et excuses une deuxième fois.

Cordialement.