Récuperer des données

M

Macroman

Guest
Bonjour à tous

Petite question comment fait on pour récuperer des information dans une autres feuille voici ma macro des mon Userform:

Sub Macro2()
Unload UserForm1

Range('A1:O47').Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False

J'aimerai qui aille les chercher dans la feuille ' Données '


Merci d'avance à tous
 
M

Macroman

Guest
Désolé voici la macro de la Userform:

Private Sub UserForm_Initialize()
Dim c As Range

Rows('1:15').Hidden = False

With ListBox1
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
.ColumnCount = 2
.ColumnWidths = '70;0'
Sheets('Défauts').Select
For Each c In Range('b1:b15')
If c = 'ZERA' Then
.AddItem c & '' & c.Row & ''
.List(.ListCount - 1, 1) = c.Row
End If
Next c
End With
 

Discussions similaires

Réponses
11
Affichages
491
Réponses
2
Affichages
952
  • Résolu(e)
XL pour MAC Target
Réponses
9
Affichages
1 K

Statistiques des forums

Discussions
312 520
Messages
2 089 297
Membres
104 092
dernier inscrit
karbone57