Bonjour Stéph, le Forum
Urgent
Urgent
Urgent
Tout est Urgent !!!
Mais ici nous ne sommes pas pressés !!! on n'a pas de Boss, et on fait ceci bénévolement par pûr plaisir ! (voir notre
Charte )
Pour l'instant je ne peux télécharger de pièces jointes pour des raisons de sécurité, mais voici le B.A.Ba pour mesurer une range sur une feuille :
(NB Sous entendu que l'on parle d'un tableau linéaire structuré)
Sub MesureRange()
Dim TheRange As Range
Dim Msg As String
Set TheRange = ActiveSheet.UsedRange
Msg = "La Plage fait " & TheRange.Rows.Count & " lignes" & vbCrLf
Msg = Msg & "La Plage fait " & TheRange.Columns.Count & " Colonnes" & vbCrLf
Msg = Msg & "La première ligne de la Plage est " & TheRange.Row & vbCrLf
Msg = Msg & "La première colonne de la Plage est " & TheRange.Column & vbCrLf
Msg = Msg & "La dernière ligne de la plage est " & Cells(65536, TheRange.Column).End(xlUp).Row & vbCrLf
Msg = Msg & "La dernière colonne de la plage est " & Cells(TheRange.Row, 256).End(xlToLeft).Column & vbCrLf
Msg = Msg & "L'adresse de la plage en référence absolue est " & TheRange.Address & vbCrLf
Msg = Msg & "L'adresse de la plage en référence relative est " & TheRange.Address(False, False) & vbCrLf
Msg = Msg & "La plage contient " & TheRange.Cells.Count & " Cellules" & vbCrLf
Msg = Msg & "La plage contient " & TheRange.Rows(TheRange.Row).Cells.Count & " Cellules par ligne" & vbCrLf
Msg = Msg & "La plage contient " & TheRange.Columns(TheRange.Column).Cells.Count & " Cellules par colonne" & vbCrLf
Msg = Msg & "La prochaine cellule vide vers le bas sera " & Cells(65536, TheRange.Column).End(xlUp).Offset(1, 0).Address & vbCrLf
MsgBox "Dimension de la plage sur la feuille Active :" & vbCrLf & Msg
End Sub
Si celà peut t'aider dans l'urgence ...
Au fait sur XLD on peut appliquer ce slogan :
L'Urgent est Fait
L'Impossible est en Cours
Pour les Miracles.... Prévoir un Délai !!!
Bonne Journée
@+Thierry