En VBA Identifier si une somme ou sous total est dans une cellule

[chichecapon13]

Bonjour à tous,

Je souhaiterais savoir comment tester toutes les cellules d'une ligne active pour savoir si au moins une d'elles contient une formule avec SOMME() ou SOUS.TOTAL() et surtout pas autre chose afin d'interdire alors l'insertion d'une ligne à partir de celle-ci.

Merci à vous par avance

 

[Fred0o]

Bonjour chichecapon13,

Tu peux essayer un code comme celui-ci, a adapter :

If Left(Range(LaCellule).Formula, 4) = "=SUM" Or Left(Range("E6"LaCellule).Formula, 9) = "=SUBTOTAL" Then TaFonction

 

[chichecapon13]

Merci à toi...je vais tester tout ça...

 

[chichecapon13]

Ok, le test fonctionne mais je souhaiterais faire ce test sur toutes les cellules de la ligne sur laquelle je suis positionnée.
Merci d'avance.

 

[Fred0o]

Bonjour
Une simple boucle comme ceci suffit :

  For Each c In ActiveCell.EntireRow.Cells
  If Left(c.Formula, 4) = "=SUM" Or Left(c.Formula, 9) = "=SUBTOTAL" Then MsgBox c.Address & "OK"
  Next

 

[Lone-wolf]

Bonjour chichcapon, fred

Sans la boucle

Private Sub Worksheet_SelectionChange(ByVal R As Range)
  If ActiveCell <> R.FormulaLocal Then
  MsgBox R.Address & " - OK"
  Else
  Exit Sub
  End If
End Sub

Bizarrement ça marche aussi.

 

[chichecapon13]

Merci à vous, cela fonctionne ,j'ai mis tout ça dans une
Private Sub Worksheet_SelectionChange()
mais sans vouloir abuser, comment interdire (sans passer par les protections) l'insertion de ligne ? Le souçi étant bien à la base d'interdire une insertion de ligne à partir d'une ligne qui contient ce type de formule...
Il me semble que l’événement est le bon mais je sèche complétement pour désactiver l'insertion..
Cordialement

 

[job75]

Bonjour,

Le souçi étant bien à la base d'interdire une insertion de ligne à partir d'une ligne qui contient ce type de formule...

A priori vous n'êtes pas dans le coup...

L'insertion d'une ligne au-dessus de (par exemple) la ligne 100 ne pose aucun problème si l'on utilise (par exemple) en B100 :

=SOMME(B1:DECALER(B100;-1;))

Même principe avec SOUS.TOTAL...

A+