Mitiés

Private Sub Worksheet_Change(ByVal Target As Range)

Bonjour a,tous

J'utilise , la fonction ci-dessusa, dans la feuille BD colonne A

je souhaite utiliser la même fonction pour la colonne B

Ces colonnes alimentent des combobox et effectue un tri à chaque changement

éclairé-moi SVP

Un grand merci pour votre aide

Amitiés

Pierrot

Bonjour,

Peut-on voir le code complet de cette macro ?

ric

Bonjour,

 Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LigneDer As Long
Dim Colonne As Integer
'    Range("A1").Select
 '   Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("BD").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("BD").Sort.SortFields.Add Key:=Range("A1:A150"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("BD").Sort
        .SetRange Range("A1:A150")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
  '
End Sub

La même chose avec la colonne B

Amitiés

Bonjour,

Voir si ceci convient ...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim LigneDer As Long
   Dim Colonne As Integer
   Dim X As Integer

   X = Target.Column          ' mémorise la colonne
   If X = 1 Or X = 2 Then     ' si colonne A ou B

      LigneDer = Cells(1, X).End(xlDown).Row    ' trouver dernière ligne en partant de 1 vers le bas
      ActiveWorkbook.Worksheets("BD").Sort.SortFields.Clear
      ActiveWorkbook.Worksheets("BD").Sort.SortFields.Add Key:=Range(Cells(1, X), Cells(LigneDer, X)), _
                                                          SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      With ActiveWorkbook.Worksheets("BD").Sort
         .SetRange Range(Cells(1, X), Cells(LigneDer, X))
         .Header = xlGuess
         .MatchCase = False
         .Orientation = xlTopToBottom
         .SortMethod = xlPinYin
         .Apply
      End With
   End If
End Sub

ric

M'enfin, Pierrot!?

Tu n'es pas né de la dernière pluie que je sache?!

Un fichier, des explications, que diable!

A+

Bonjour,

toutes mes excuses pour le retard apporté à répondre,

je suis soigné pour un cancer du poumon et j'ai eu une crise ces derniers jours

Alité, oxygène, Baxter etc...

je marche depuis cette fin de matinée

Merci pour ton boulot

Ta macro ne fonctionne pas ,le mot ajouté dans l'UserForm n'est pas ajouté à la liste feuille BD

Je te joins le tout

encore toutes mes excuses

et amitiés

Pierrot

bonjour à tous

Pierre on connaît ton courage et aussi ton dévouement aux formeurs que tu as aidés il y a qq temps

pour ta question, à quoi te sert de te compliquer avec du VBA ?

fais la saisie dans des lignes de tes tableaux

fais des tris et des filtres avec le menu Données

note : Excel pose un gros problème avec le RGPD (protection des données individuelles, dont les coordonnées). Trèèèèèèèès fortes amendes possibles.

dépense ton énergie et tes compétences sur Excel et VBA à sécuriser ces données, qu'un malveillant qui y aurait accès ne puisse pas l'ouvrir.

à te relire

amitiés excelliennes

Bonjour JMD, heureux d'avoir de tes nouvelles

A chaque nouvelle entrée ou modification dans mon tableau, un tri est effectué automatiquement

mon problème réside dans le fait d"entrer un nouveau mot dans la liste ComboboxMateriel(CmbMateriel et ce mot ne s'ajoute pas à la liste

dans la feuille BD, source de mon Combox colonne B

sinon, j'effectuerai un tri manuel

Un grand merci pour ton intérêt

Bisous et amitiés sincères

Pierrot

Merci Eric, Arche et JMD,

grace à vs conseils, mon problème est résolu

gros bisous à vous tous et mes sincères amitiés

Pierrot

Rechercher des sujets similaires à "mities"