suite douchage aligner le résultat avec preliste

Efgé

XLDnaute Barbatruc

• 26 Juin 2014

• #2

Re : suite douchage aligner le résultat avec preliste

Bonjour phil69
Une proposition.
Tu douche en cellule F2.
Le code est dans le code de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim T As Range
If Target.CountLarge > 1 Then Exit Sub
If Target.Address = "$F$2" And Target(1, 1) <> "" Then
    Set T = Columns("$A:$A").Find(Target, LookAt:=xlWhole)
    If T Is Nothing Then
        MsgBox "Code non trouvé"
    Else
        T.Offset(0, 1) = Target.Value
    End If
End If
End Sub

Cordialement

 

Pièces jointes

• expl(2).xlsm

  15.5 KB · Affichages: 45

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 26 Juin 2014

• #3

Re : suite douchage aligner le résultat avec preliste

re le forum

Trop bien, merci, exactement ce que je cherchais
A+ peut être d'autres questions sur mon fichier que je commence et que je voulais construire en fonction de cette possibilité,bravo
phil69

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 16 Juillet 2014

• #4

Re : suite douchage aligner le résultat avec preliste

Bonsoir là toute et tous
suite à ma dernière demande je rencontre un petit problème sur ma preliste j'ai des des nombre à 9 chiffres(048672694), alors que les fiches que je douches en ont 12(048672694001), les trois derniers ce terminant tous par 001 jusqu'à 010 et ne sont pas utilisés,
comment modifier le code pour supprimer ces trois derniers chiffres???
merci
phil69

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 16 Juillet 2014

• #5

Re : suite douchage aligner le résultat avec preliste

Bonjour phil69

Utilise ceci :

Code:

Set T = Columns("$A:$A").Find(Left(Target, Len(Target) - 3), LookAt:=xlWhole)

Cordialement

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 17 Juillet 2014

• #6

Re : suite douchage aligner le résultat avec preliste

Bonjour le forum
merci, ça fonctionne super
phil69

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 17 Juillet 2014

• #7

Re : suite douchage aligner le résultat avec preliste

Re le forum
Encore une question, quel code mettre à la place de T.Offset(0, 1) = Target.Value dans la colonne B les trois derniers chiffres
n'apparaissent pas
merci
phil69

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 17 Juillet 2014

• #8

Re : suite douchage aligner le résultat avec preliste

Re
Je ne comprends pas la question.
Que veux tu ?
Avoir ou ne pas avoir les trois derniers chiffres en colonne B ?

Cordialement

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 17 Juillet 2014

• #9

Re : suite douchage aligner le résultat avec preliste

re le forum
excuses,je me suis mal exprimé, je ne veux pas voir les trois derniers chiffres car il ne sont pas utilisés
merci
phil69

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 17 Juillet 2014

• #10

Re : suite douchage aligner le résultat avec preliste

Re
Alors, tu aurais pu trouver tout seul en analysant la réponse précédente...

VB:

T.Offset(0, 1) = Left(Target, Len(Target) - 3)

Cordialement

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 17 Juillet 2014

• #11

Re : suite douchage aligner le résultat avec preliste

re le forum

oui j'ai essayé mais après ton code je laissai .value
merci encore
phil69

 

Vote positif 0 Vote négatif