Discussion :

[Thomas2412]

Bonjour,

Voilà je débute encore en VBA et je souhaite appliquer une formule sur une sélection de cellules - sauf sur les cellules vides.

Pour le moment le programme (merci Pierre) est celui-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ENFANTS_20()
 
Dim Cellule As Range
Dim Coef As Variant
 
Coef = 1.06567713
For Each Cellule In Selection
Cellule.Value = Cellule.Value * Coef
Next Cellule
 
End Sub

Pouvez-vous me mettre sur la voie ?

Merci beaucoup

Thomas

[casavba]

si ton code fonctionne; voici une solution, entre autres, tu mets une condition:

Sub ENFANTS_20()

Dim Cellule As Range
Dim Coef As Variant

Coef = 1.06567713
For Each Cellule In Selection ' Selection est elle définie

with Cellule
if .value <> "" then .Value = .Value * Coef
end with

Next Cellule

End Sub