Bonjour à tout le forum,
Je souhaites copier une plage (avec plusieures cellules) sur un seul et même textbox, cela est il possible ?
Voici le code :
Private Sub Correct_OK_Click()
Sheets(Sn).Activate '' Feuille correspondant au Sn selectionnée (Active)
Col_User = 1
Lig_Start = 3 '' 1ere ligne (3) pour une correction
Col_Start = 9 '' 1ere Colonne (9) pour une correction
'' Définition de la dernière ligne non vide
Lig_End = Cells(65536, Col_User).End(xlUp).Row
'' Définition de la dernière colonne non vide
Col_End = Cells(Lig_End, 256).End(xlToLeft).Column
With Sheets(Sn)
'' Pointe la ligne et la colonne de début de la plage corrections
Lig_Start = Sheets(Sn).Cells(Lig_Start, Col_Start).Row
Col_Start = Sheets(Sn).Cells(Lig_Start, Col_Start).Column
End With
Me.textbox1.Value = Sheets(Sn)..Range(.Cells(Lig_Start, Col_Start), .Cells(Lig_End, Col_End)).Value
End sub
Mais il n'y a rien d'affiché sur mon textbox1, il reste vide et je ne vois plus comment faire...
Je remercies d'avance celui ou celle qui pourra me donner un petit coup de pouce.
Cordialement,
Xion
Je souhaites copier une plage (avec plusieures cellules) sur un seul et même textbox, cela est il possible ?
Voici le code :
Private Sub Correct_OK_Click()
Sheets(Sn).Activate '' Feuille correspondant au Sn selectionnée (Active)
Col_User = 1
Lig_Start = 3 '' 1ere ligne (3) pour une correction
Col_Start = 9 '' 1ere Colonne (9) pour une correction
'' Définition de la dernière ligne non vide
Lig_End = Cells(65536, Col_User).End(xlUp).Row
'' Définition de la dernière colonne non vide
Col_End = Cells(Lig_End, 256).End(xlToLeft).Column
With Sheets(Sn)
'' Pointe la ligne et la colonne de début de la plage corrections
Lig_Start = Sheets(Sn).Cells(Lig_Start, Col_Start).Row
Col_Start = Sheets(Sn).Cells(Lig_Start, Col_Start).Column
End With
Me.textbox1.Value = Sheets(Sn)..Range(.Cells(Lig_Start, Col_Start), .Cells(Lig_End, Col_End)).Value
End sub
Mais il n'y a rien d'affiché sur mon textbox1, il reste vide et je ne vois plus comment faire...
Je remercies d'avance celui ou celle qui pourra me donner un petit coup de pouce.
Cordialement,
Xion