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....