Bonjour,

Je dois copier une formule dans chaque cellule vide (ou a valeur 0) d'une colonne. Il y a dans cette colonne des sous-totaux (donc une formule) qui fait pour le moment apparaitre une valeur 0.

J'ai essaye deja plusieurs methodes pour lui faire selectionner la cellule vide et lui faire copier la formule, mais je n'arrive pas a lui faire comprendre (a Excel ) que si il y a une formule deja presente dans la cellule (et ce, meme si la valeur est egale a 0) de ne pas toucher a cette cellule.

J'ai essaye les expressions suivantes sans succes :
- "Is Nothing"
- ".value = 0"
- ".SpecialCells(xlCellTypeFormulas)"
- ".SpecialCells(xlCellTypeBlanks)"

Avez vous une idee ?

Voici le dernier code en date:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Copie()
ActiveSheet.Cells(6, 11).Copy
 
a = ActiveSheet.Cells(6, 3).CurrentRegion.Rows.Count + 3
For b = 7 To a
    If ActiveSheet.Cells(b, 11) Is Nothing Or ActiveSheet.Cells(b, 11).Value = "" Then
        ActiveSheet.Cells(b, 11).PasteSpecial (xlPasteFormulas)
    End If
Next b
 
c = ActiveSheet.Cells(339, 3).CurrentRegion.Rows.Count + 337
For d = 339 To c
    If ActiveSheet.Cells(d, 11).Value = 0 Then
        ActiveSheet.Cells(d, 11).PasteSpecial (xlPasteFormulas)
    End If
Next d
 
ActiveSheet.Cells(443, 11).PasteSpecial (xlPasteFormulas)
 
End Sub

Merci

Romain