Sélectionner un range après un Offset

[Kim]

J'aimerais savoir comment on fait pour sélectionner un range après avoir fait un offset sur une cellule...je m'explique.

Private Sub CommandButton1_Click()
If UserForm1.OptionButtonOui = True Then
Workbooks.Open (UserForm1.ListBox1.Value)
Titre = Range("A1")
Valeurs = Range(Cells(9,1),Cells(69,1)).Value
End If

ThisWorkbook.Activate
Range("A1").Select

If IsEmpty(ActiveCell) = True Then
ActiveCell = Titre
ActiveCell.Range(Cells(2,1),Cells(62,1)).Select
Selection = Valeurs
End If

If ActiveCell.Value <> Titre Then
Do
ActiveCell.Offset(0, 3).Select
Loop Until ActiveCell.Value = Titre Or IsEmpty(ActiveCell) = True
ActiveCell = Titre
ActiveCell.Range(Cells(2,?),Cells(62,?))=Valeurs
End If

End Sub



Comment on fait pour lui expliquer que la colonne est maintenant la 4e et ensuite elle sera la 7e et ensuite la 10e....

 

[Zon]

Salut,

Essaies ceci:
Dim Titre$, C As Range, I As Byte
Dim Valeur, WB As Workbook

If UserForm1.OptionButtonOui = True Then
Set WB = Workbooks.Open(UserForm1.ListBox1.Value)
With WB.Sheets(1)
Valeur = .Range("A9:A69").Value
Titre = .Range("A1").Text
End With
WB.Close 'on ferme , remmettre thisworkbook.activate si tu ne veux pas fermer
Set C = Range("A1")
For I = 0 To 255 Step 3
If C.Offset(0, I) <> Titre Then
C.Offset(0, I) = Titre
C.Range(Cells(2, I + 1), Cells(62, I + 1)) = Valeur
Exit For
End If
Next I
end if

A+++