XL 2010 Derniere cellule vide d'une colonne à trouver

[Chombi]

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

 

[vgendron]

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)

 

[Chombi]

Bonjour vgendron

merci
oui mais mon pb est: que je ne connais pas d'avance la colonne a alimenter puisque c'est le choix dans le cbx1 qui la détermine

 

[vgendron]

Avec ceci alors..

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

 

[eriiic]

Bonjour,

si je peux me permettre avec un départ comme ça tu n'as pas fini de ramer.
Quelques conseils pour avoir une base de données exploitable facilement : http://www.xlerateur.com/divers/201...iser-excel-comme-gestionnaire-de-donnees-612/
eric

 

[Chombi]

Merci vgendron

et si c'est pas abuser trier et ordre alpha c'est possible ?

merci eric je vais m'en inspirer

 

[Chombi]

Voila j'ai trouvé

ci joint pour ceux que ça intéresse
Merci encore à vgendron qui m'a grandement mis sur la piste