cnversion formule en vba

[momo2394]

Salut à tous

Je voudrais convertir cette formule en vba avec
Private Sub Worksheet_Activate()

=SI(OU(O7="";P7>0);"";"Not Valide")
cette formule demarrera en A7 jusqu'a A166

Merci

 

[Yaloo]

Re : cnversion formule en vba

Bonsoir momo,

Avec ceci :

Private Sub Worksheet_Activate()
For Each c In Range("A7:A166")
    c.FormulaR1C1 =  "=IF(OR(RC[14]="""",RC[15]>0),"""",""Not Valide"")"
Next c
End Sub

A tester je ne l'ai pas fait

A+
Yaloo

 

[Yaloo]

Re : cnversion formule en vba

Re,

La question est : pourquoi lancer la macro à chaque fois activation de la feuille puisque c'est une formule ?

A+

 

[A l l i g a t o r 427]

Re : cnversion formule en vba

Hello

En sautant la boucle, on arrive à la même chose
Private Sub Worksheet_Activate()
Range("A7:A166").FormulaR1C1 = "=IF(OR(RC[14]="""",RC[15]>0),"""",""Not Valide"")"
End Sub

 

[Yaloo]

Re : cnversion formule en vba

Re

Sinon sans la formule :

Private Sub Worksheet_Activate()
 For i = 7 To 166
  If Not (Cells(i, 15).Value = "" Or 0 > Cells(i, 16).Value) Then
    Cells(i, 1).Formula = "Not Valide"
  End If
 Next i
End Sub

En entrant les résultats directement dans les cellules

Yaloo

 

[A l l i g a t o r 427]

Re : cnversion formule en vba

Hello

C'est aussi possible avec un IIF
Private Sub Worksheet_Activate()
Dim i As Byte
For i = 7 To 166
Cells(i, 1).Formula = IIf((Not IsEmpty(Cells(i, 15)) Or Cells(i, 16) > 0), "Not Valide", vbNullString)
Next i
End Sub

 

[A l l i g a t o r 427]

Re : cnversion formule en vba

Et en utilisant SpecialCells, ça joue aussi

Private Sub Worksheet_Activate()
On Error Resume Next
Set a = Union(Range("O7:O166"), Range("P7166")).SpecialCells(xlCellTypeConstants)
a.Offset(, -14).Resize(, 1) = "Not Valide"
End Sub

 

[momo2394]

Re : cnversion formule en vba

Et en utilisant SpecialCells, ça joue aussi

Private Sub Worksheet_Activate()
On Error Resume Next
Set a = Union(Range("O7:O166"), Range("P7166")).SpecialCells(xlCellTypeConstants)
a.Offset(, -14).Resize(, 1) = "Not Valide"
End Sub

Salut Yaloo & Alligator427

Merci beaucoup pour vos réponses et désolé pour le retard
petit souci de connection
encore merci