Excepter les formules dans le code

[ascal44]

Bonjour,
j'ai un code où je voudrais ne pas prendre en considération les formules qui se trouvent dans la colonne N.

For lig = 8 To 6500
  With Range(Cells(lig, "A"), Cells(lig, "R"))
    
    If Application.CountA(.Cells) Then _
      Set plage = Union(IIf(plage Is Nothing, .Cells, plage), .Cells)
  End With
Next

 

[Staple1600]

Re : Excepter les formules dans le code

Bonjour


Voir du côté de SpecialCells
(ALT+F11 puis F1) pour les détails

EDITION: une façon de faire sans boucle

Sub a()
Dim plage As Range
Set plage = [A8].Resize(6493, 20).SpecialCells(2, 23)
MsgBox plage.Address [COLOR=SeaGreen]'ici pour test[/COLOR]
End Sub

 

[ascal44]

Re : Excepter les formules dans le code

Comment excepter les cellules qui ont une formule ?

J'ai trouvé cela dans le VBA :xlCellTypeFormulas mais je ne sais comment l'intégrer dans mon code

 

[Staple1600]

Re : Excepter les formules dans le code

Re


Tu n'as pas vu le code VBA que j'ai proposé dans mon précédent message ?
(message édité)

Ce code excepte les cellules avec formules

Testes le.

Sinon voir aussi du côté de HasFormula

 

[ascal44]

Re : Excepter les formules dans le code

Oui j'ai essayé , cela ne marche pas ???

 

[Staple1600]

Re : Excepter les formules dans le code

Re


Chez moi cela fonctionne.

Postes un extrait de ton fichier Excel (zippé) que je puisse tester

EDITION: testes sur un classeur vierge la macro ci-dessous

Sub b()
Dim plage As Range
[A8].Resize(6493, 13) = Rnd
[N8].Resize(6493).FormulaLocal = "=LIGNE()+COLONNE()"
[O8].Resize(6493, 4) = Rnd
Set plage = [A8].Resize(6493, 20).SpecialCells(2, 23)
MsgBox plage.Address 'ici pour test
End Sub

La colonne N est bien ignorée non car ses cellules contiennent une formule.

 

[ascal44]

Re : Excepter les formules dans le code

Bonjour , je tourne en rond et ne touve pas la solution.

Je joint un résumé de ce que je souhaite