Reconnaitre une cellule avec formule

pierrejean

XLDnaute Barbatruc

• 13 Février 2008

• #2

Re : Reconnaitre une cellule avec formule

bonjour kikouu

on peut tester avec

Code:

If Left(range("A1").formula,1)="=" Then
  msgbox("il y a une formule")
End if

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 13 Février 2008

• #3

Re : Reconnaitre une cellule avec formule

Bonjour,
bonjour pierrejean 🙂
autre méthode :

Code:

MsgBox "la cellule A1 contient une formule : " & [A1].HasFormula

 

Vote positif 0 Vote négatif

K

kikouu

XLDnaute Nouveau

• 13 Février 2008

• #4

Re : Reconnaitre une cellule avec formule

Merci à vous deux pour ces réponses!!!!!!

Encore une toute petite, j'ai un fichier excel avec plusieurs feuilles dedant (7 feuilles )
Comment faire pour que quand le fichier s'ouvre toutes les cellules de toutes les feuilles du fichier soit = '' quand la cellule n'a pas de formule?

Merci d'avance...

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 13 Février 2008

• #5

Re : Reconnaitre une cellule avec formule

Re,
je comprends que si la cellule ne comprend pas de formule, elle soit vidée de ses constantes?
Avec le code ci-dessous, tu élimines toutes les constantes de toutes les feuilles (y compris les dates, mef)
Les cellules contenant du texte ou des formules ne sont pas touchées

Code:

Sub elimine_constantes()
For i = 1 To Sheets.Count
On Error Resume Next
    Sheets(i).Cells.SpecialCells(xlCellTypeConstants, 1).ClearContents
Next i
End Sub

 

Vote positif 0 Vote négatif

K

kikouu

XLDnaute Nouveau

• 13 Février 2008

• #6

Re : Reconnaitre une cellule avec formule

salut,

merci pour le code, mais j'ai encore besoin d'aide sur deux ptis trucs :

Alors je voudrais que
1 - le code soit lancé une fois le fichier ouvert.
2 - je puisse donner la colonne et ligne de départ et de fin pour chaque sheet.
3 - que la cellule soit vidée juste si elle ne contient pas de formule.


Merci infiniment pour ton aide...

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 13 Février 2008

• #7

Re : Reconnaitre une cellule avec formule

Re-,
tu peux mettre ce code dans le workbook_open :

Code:

Private Sub Workbook_Open()
For i = 1 To Sheets.Count
On Error Resume Next
    Sheets(i).Range("A2:C10").SpecialCells(xlCellTypeConstants, 1).ClearContents
Next i
End Sub

Ici, le début de zone est en A2 jusqu'en C10
Par contre, précise pour le troisième point????
y-a-t-il autre chose que des nombres?
des dates par exemple?

 

Vote positif 0 Vote négatif

K

kikouu

XLDnaute Nouveau

• 13 Février 2008

• #8

Re : Reconnaitre une cellule avec formule

non non, ya que des nombres... 🙂
Je vais tester tout de suite ton code... 😀

 

Vote positif 0 Vote négatif

K

kikouu

XLDnaute Nouveau

• 13 Février 2008

• #9

Re : Reconnaitre une cellule avec formule

Merciiiiiiiiiiii bhbh,

Ton code marche NICKEL! !!!!

 

Vote positif 0 Vote négatif