checkspelling ?????

[bret]

Salut à tous !!!



Question: Peut on faire un checkspelling de sheets("feuill1").range("B2:G" & L).address


Si oui comment ecrire le code ?



merci

 

[Ronan]

Bonsoir,

Si je comprend bien, tu souhaiterais vérifier le résultat du code : sheets("feuill1").range("B2:G" & L).address

Déja, la fonction ADDRESS est en trop
D'autre part, pour savoir si ta plage est bien affectée à celle que tu désires, le mieux est de la tester à l'aide d'une variable.
Par exemple :

Sub Test()
Dim plage As Range
Dim VerifiePlage As String
Dim L As Integer
L=Activecell.Row
Set plage = Sheets("feuil1").Range("B2:G" & L)
'Grâce à la variable "VerifiePlage", tu peux constater si ta plage de cellule _
est correcte.
VerifiePlage = plage.AddressLocal
End Sub

Espérant avoir répondu à ta question.

@+

Ronan

 

[bret]

Bonjour ! c ok en écrivant le code au pifomètre j'ai réussi à faire fonctionner
le truc plus ou moins comme je voulais !!! 🙂

Le code que j'ai tapé :

Private Sub CommandButton17_Click()
Dim L As Integer
L = Sheets("BDD").Range("B65536").End(xlUp).Row
Sheets("BDD").Range("C2:G" & L).CheckSpelling CustomDictionary:="PERSO.DIC", IgnoreUppercase:=False, AlwaysSuggest:=True
End Sub

bon ça vérifie bien les plages concernées ! j'aurais voulu qu'il m'affiche les résultats des mots mal orthographiés et les propositions dans mes listbox mais bon ça fonctionne pour le moment c cool
on verra plus tard pour le reste....

merci pour ton aide...