comment rendre actif une cellule à partir d'un listbox

[La Vouivre]

Bonsoir les amis
Je cherche à rendre actif la cellule dénommée dans la listbox
quel code faut il pour sélectionner la cellule qui défile dans la listbox
bonne soirée

 

[mapomme]

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:

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

 

[La Vouivre]

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

 

[Paf]

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:

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

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

 

[La Vouivre]

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

 

[La Vouivre]

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