K
Kim
Guest
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....
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....