XL 2010 Derniere cellule vide d'une colonne à trouver

vgendron

XLDnaute Barbatruc

• 17 Octobre 2017

• #2

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)

 

Vote positif 0 Vote négatif

C

Chombi

XLDnaute Occasionnel

• 17 Octobre 2017

• #3

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 17 Octobre 2017

• #4

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

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 17 Octobre 2017

• #5

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

 

Vote positif 0 Vote négatif

C

Chombi

XLDnaute Occasionnel

• 17 Octobre 2017

• #6

Merci vgendron

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

merci eric je vais m'en inspirer

 

Vote positif 0 Vote négatif

C

Chombi

XLDnaute Occasionnel

• 17 Octobre 2017

• #7

Voila j'ai trouvé

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

 

Pièces jointes

• Test Excel.xlsm

  20.8 KB · Affichages: 35

Vote positif 0 Vote négatif