Bonjour,
Bien que qu'une Variable String puisse être très longue....
l'expression Range(String) n'accepte pas plus de 256 caractères dans son String
Tu peux améliorer un peu la situation avec cette macro :
Code :
- Sub Test()
- Dim Mem$, Sep$, Z$, o As Object
- For Each o In Selection
- If Not IsError(o) Then
- If Z = "" Then
- Z = o.Address(False, False)
- Sep = ":"
- Else
- If Sep = ":" Then
- Mem = o.Address(False, False)
- Else
- Z = Z & Sep & o.Address(False, False)
- Sep = ":"
- End If
- End If
- Else
- If Sep = ":" Then Z = Z & Sep & Mem
- Sep = ","
- End If
- Next o
- If Sep = ":" Then Z = Z & Sep & Mem
- Range(Z).Select
- End Sub
|
Mais... l'affirmation précédente reste vrai :
Si tu as trop de valeurs d'erreur cette macro trouve ses limites très rapidement aussi.
De plus ça ne marcherait pas sur une sélection multicolonne...
Enfin, si ça peut te dépanner.
A+
Message édité par galopin01 le 06-11-2005 à 03:35:18