XL 2010 Derniere cellule vide d'une colonne à trouver

Chombi

XLDnaute Occasionnel
Bonjour à tous

je butte sur un truc surement très basique

1 UF avec 2 CBX (Client et Produit)
avec valider je voudrai ajouter le produit dans la 1ere cellule vide de la colonne du client en feuil1.
Et si ce n'ai pas abuser supprimer les doublons si on valide 2 fois le même produit

ci joint fichier exemple

avec mes remerciements
 

Pièces jointes

  • Test Excel.xlsm
    20.9 KB · Affichages: 45

vgendron

XLDnaute Barbatruc
Hello
pour trouver la dernière cellule NON vide de la colonne A

range("A" &rows.count).end(xlup).row

après.. il suffit de jouer avec les offset(1,0) pour trouver la première cellule vide (= première cellule dispo pour y mettre une nouvelle info)
 

vgendron

XLDnaute Barbatruc
Avec ceci alors..

VB:
Private Sub CommandButton1_Click()
Dim b As Range
Sheets("Feuil1").Activate

With Range([A1], Sheets("Feuil1").[XFD1].End(xlToLeft))
    Set b = .Find(ComboBox1.Value, LookIn:=xlValues)
    'b.Activate
    col = b.Column
    Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = ComboBox2.Value
End With

End Sub
 

Discussions similaires

Réponses
3
Affichages
274

Statistiques des forums

Discussions
311 722
Messages
2 081 930
Membres
101 843
dernier inscrit
Thaly