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

Fred0o

XLDnaute Barbatruc

• 25 Avril 2018

• #2

Bonjour chichecapon13,

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

VB:

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

 

Vote positif 0 Vote négatif

C

chichecapon13

XLDnaute Nouveau

• 26 Avril 2018

• #3

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

 

Vote positif 0 Vote négatif

C

chichecapon13

XLDnaute Nouveau

• 26 Avril 2018

• #4

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.

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 26 Avril 2018

• #5

Bonjour
Une simple boucle comme ceci suffit :

VB:

  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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Avril 2018

• #6

Bonjour chichcapon, fred

Sans la boucle

VB:

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.

 

Vote positif 0 Vote négatif

C

chichecapon13

XLDnaute Nouveau

• 27 Avril 2018

• #7

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Avril 2018

• #8

Bonjour,

chichecapon13 à dit:

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

Cliquez pour agrandir...

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 :

Code:

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

Même principe avec SOUS.TOTAL...

A+

 

Vote positif 0 Vote négatif