Discussion :

[d.tellier]

Bonjour,
J'ai crée une fonction qui me doit me retourner si j'ai une fonction sur ma ligne. Mais le résultat n'est pas convaincant.
merci pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function Recher_Formule_Ligne(Ligne As Long, ColDep, ColFin)
Formule = ""
Range(Cells(Ligne, Range(ColDep & 1).Column), Cells(Ligne, Range(ColFin & 1).Column)).Select
 
Dim CurCell As Object
      For Each CurCell In Range(Cells(Ligne, Range(ColDep & 1).Column), Cells(Ligne, Range(ColFin & 1).Column))
        Formule = CurCell.HasFormula
        If Formule = Vrai Then GoTo 99
      Next
99:
Recher_Formule_Ligne = Formule
End Function

	Colonne A	Colonne B	Colonne C (Formule)	Colonne C (Résultat
Ligne 1	Code	Libellé	=Recher_Formule_Ligne(LIGNE(C1);"A";"B")	FAUX
Ligne 2	WSM4530	VIS SPHERIQUE DELTA 4.5LG30 - WSM4530	=Recher_Formule_Ligne(LIGNE(C2);"A";"B")	FAUX
Ligne 3	WSM4536	VIS SPHERIQUE DELTA 4.5LG36 - WSM4536	=Recher_Formule_Ligne(LIGNE(C3);"A";"B")	FAUX
Ligne 4	WSM4542	VIS SPHERIQUE DELTA 4.5LG42 - WSM4542	=Recher_Formule_Ligne(LIGNE(C4);"A";"B")	FAUX
Ligne 5	WTIH036	="TETE HUMERALE DELTA 36/0 - WTIH036"	=Recher_Formule_Ligne(LIGNE(C5);"A";"B")	FAUX
Ligne 6	WTIH042	="TETE HUMERALE DELTA 42/0 - WTIH042"	=Recher_Formule_Ligne(LIGNE(C6);"A";"B")	FAUX
Ligne 7	WTIH436	TETE HUMERALE DELTA 36/4 - WTIH436	=Recher_Formule_Ligne(LIGNE(C7);"A";"B")	FAUX
Ligne 8	WTIH442	TETE HUMERALE DELTA 42/4 - WTIH442	=Recher_Formule_Ligne(LIGNE(C8);"A";"B")	FAUX
Ligne 9	XC01015	="PLAQUE ADHESIX 10X15CM"	=Recher_Formule_Ligne(LIGNE(C9);"A";"B")	FAUX

Sur la ligne 5,6 et 9 je devrais avori VRAI comme résultat.

Merci.

[eric4459]

Bonjour,
Tu pourrais essayer ceci:

Code :

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

1
2
3
If CurCell Like "*=*" Then
        GoTo 99
        End If

Eric

[casefayere]

Bonsoir,
un exemple :
une procédure qui va chercher la fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Dim formule As Boolean
Sub debut()
Dim depart As Range, Fin As Range, d As Long
formule = False
Set depart = Range("A1")
d = Cells(1, Columns.Count).End(xlToLeft).Column
Set Fin = Cells(Rows.Count, d)
Recher_Formule_Ligne depart, Fin
MsgBox formule
End Sub

Code :

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

1
2
3
4
5
6
Function Recher_Formule_Ligne(ColDep As Range, ColFin As Range)
Dim CurCell As Range
For Each CurCell In Range(ColDep, ColFin)
  If CurCell.HasFormula = True Then formule = True: Exit For
Next
End Function

[Philippe Tulliez]

Bonjour,
Si c'est juste pour savoir si une formule est présente dans une plage définie, il existe la méthode SpecialCells

Code :

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

1
2
3
4
5
6
7
8
9
10
Function isFormula(myRange As Range) As Boolean
 Dim R As Range
 With myRange
  On Error Resume Next
  Set R = .SpecialCells(xlCellTypeFormulas, 23)
  isFormula = Err = 0
  On Error GoTo 0
 End With
 Set R = Nothing
End Function

Que l'on invoque comme dans l'exemple ci-dessous

Code :

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

1
2
3
4
5
6
Sub TestFormula()
 Dim rng As Range
 Set rng = Feuil1.Range("A1:D1")
 MsgBox isFormula(rng)
 Set rng = Nothing
End Sub