Discussion :

[saiboht]

Bonjour à tous,

j'ai une question relativement basique, question à laquelle je suis sûr moultes réponses ont déjà été données (honte à moi de ne pas avoir cherché comme il faut )

J'aimerai, dans une selection de cellules (qui par défaut ne sont pas vérouillées), que le programme vérouille toutes les cellules contenant une formule (et seulement ces cellules).

Je pensais partir sur une boucle qui teste chaque cellule, et si c'est un type formule, bah paf je vérouille ! Mais je ne sais pas tester le type formule d'une cellule.

En gros :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
for i = 1 to nbcolonne
for j = 1 to nbligne
if cells (i,j) "=>Tester si c'est une formule<=" then
cells(i,j).select
Selection.Locked = True
'[...]

Je précise que l'on peut me donner une solution ne reprennant pas mon début de code.

Merci d'avance !

[jfontaine]

Bonjour,

Un test simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
if left(cells(i,j).Formula,1) = "=" then

[AlainTech]

Bonjour,

Cells possède une propriété HasFormula qu'il suffit de tester.

[saiboht]

Super, merci à vous deux !