Bonjour,
Je cherche une solution afin d'afficher une plage de cellules dès l'ouverture du fichier. (La plage serra dans un onglet masqué) (plage de: A1 à C5)
J'ai trouvé une solution via le net , mais la visualisation dans la msg box n'est pas top. Mauvaise lecture du tableau car les valeurs se décalent.
Avez vous des idées de comment procéder ?
Cordialement,
Je cherche une solution afin d'afficher une plage de cellules dès l'ouverture du fichier. (La plage serra dans un onglet masqué) (plage de: A1 à C5)
J'ai trouvé une solution via le net , mais la visualisation dans la msg box n'est pas top. Mauvaise lecture du tableau car les valeurs se décalent.
Avez vous des idées de comment procéder ?
Cordialement,
VB:
Sub mesage()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xStr As String
Dim xRow As Long
Dim xCol As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Range("A1:C5")
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For xRow = 1 To xRg.Rows.Count
For xCol = 1 To xRg.Columns.Count
xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
Next
xStr = xStr & vbCrLf
Next
MsgBox xStr, vbInformation, "Information"
End Sub