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
Partager