comment rendre actif une cellule à partir d'un listbox

mapomme

XLDnaute Barbatruc

Supporter XLD

• 18 Février 2014

• #2

Re : comment rendre actif une cellule à partir d'un listbox

Bonsoir La Vouivre,

Si j'ai bien compris, voir code dans le module de code du userform:

VB:

Private Sub ListBox1_Click()
  On Error Resume Next
  Sheets("Feuil1").Activate
  Range("e:e").Find(ListBox1).Select
  Unload Me
End Sub

 

Pièces jointes

• cellule active v1.xlsm

  28.8 KB · Affichages: 37

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 18 Février 2014

• #3

Re : comment rendre actif une cellule à partir d'un listbox

merci pour votre réponse, j'ai une seconde demande est-il possible de sélectionner les cellules à droite de la sélection sans sélectionner la cellule designer
bonne soirée

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 18 Février 2014

• #4

Re : comment rendre actif une cellule à partir d'un listbox

Bonsoir à tous,

Une autre solution:
la listbox est renseignée par la plage nommée chantier qui débute en ligne 8. l'index des éléments de la listbox commence à 0.
En utilisant ListBox1.ListIndex + 8 on obtient le N° de la ligne concernant l'élément "cliqué"
Connaissant la ligne qui nous intéresse on peut "adresser" n'importe quelle cellule de cette ligne en utilisant son N° de colonne:

Code:

Private Sub ListBox1_Click()
    Ligne = ListBox1.ListIndex + 8
    Worksheets("Feuil1").Cells(Ligne, 6).Select  ' par ex colonne 6 (soit colonne F)
End Sub

ou même une plage de cellule

Code:

Private Sub ListBox1_Click()
    Ligne = ListBox1.ListIndex + 8
    With Worksheets("Feuil1")
        .Range(.Cells(Ligne, 4), .Cells(Ligne, 6)).Select  ' selection des colonnes D, E et F de la ligne 
    End With
End Sub

Bonne suite

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 18 Février 2014

• #5

Re : comment rendre actif une cellule à partir d'un listbox

j'ai adapter ce code qui me permet d'insérer une cellule à cote de la cellule sélectionnée
par macro il fonctionne ,mais pas avec un CommandButton sur un Userform

'Sélection d'une cellule (calculée par rapport à la cellule active actuelle)
ActiveCell.Offset(0, 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 18 Février 2014

• #6

Re : comment rendre actif une cellule à partir d'un listbox

merci pour vos réponses
ce soir c'est le moment du dodo ,car demain boulot
je regarde vos propositions , je vous dit demain la suite
bonne soirée à tous

 

Vote positif 0 Vote négatif