Macro contrôle formule

[roidurif]

Bonjour,

Comment retranscrire en Macro qui verifie si :

- Si formule présente dans feuil1 alors => Alors inscrire "Numéro célulle" dans l' onglet feuil2 (Formule présente)

Merci

Cordialement

 

[pierrejean]

Re : Macro contrôle formule

bonjour roidurif

A tester:

Sub ctrl_form()
col = 2
For Each cel In Sheets("Feuil1").Range("A2:CL" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
  If left(cel.Formula, 1) = "=" Then
    Sheets("Feuil2").Cells(17, col) = cel.Address
    col = col + 1
  End If
Next cel
End Sub

 

[roidurif]

Re : Macro contrôle formule

Merci pierrejean

Comment faire pour ke cettre macro "ctrl_form" s excute apres la macro "CleanImages"

merci

 

[pierrejean]

Re : Macro contrôle formule

Re

Tout simplement en mettant

Call ctrl_form

juste avant le End Sub de la macro "CleanImages"

 

[roidurif]

Re : Macro contrôle formule

Bonjour Mr pierre jean,

Merci de votre aide, J'ai testé votre macro et cela fonctionne quand il contient un signe = dans une celulle.

Peux t on dire à la macro de verifier la présence de formule toute les celulles, commencant par le signe (=).

Merci enormément

Cdt

 

[pierrejean]

Re : Macro contrôle formule

Re

Ici le Mr est superflu !!
Et le tutoiement est plutot la règle
Effectivement en toute rigueur ma fonction ne donnait pas que les cellules ayant une fonction mais egalement celles comportant le signe "="
J'ai modifié le post precedent mais voici la fonction corrigée

Sub ctrl_form()
col = 2
For Each cel In Sheets("Feuil1").Range("A2:CL" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
  If left(cel.Formula, 1) = "=" Then
    Sheets("Feuil2").Cells(17, col) = cel.Address
    col = col + 1
  End If
Next cel
End Sub