cnversion formule en vba

Y

Yaloo

XLDnaute Barbatruc

• 28 Octobre 2011

• #2

Re : cnversion formule en vba

Bonsoir momo,

Avec ceci :

VB:

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

 

Dernière édition: 28 Octobre 2011

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 28 Octobre 2011

• #3

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+

 

Vote positif 0 Vote négatif

A

A l l i g a t o r 427

Guest

• 28 Octobre 2011

• #4

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

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 28 Octobre 2011

• #5

Re : cnversion formule en vba

Re

Sinon sans la formule :

VB:

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

 

Vote positif 0 Vote négatif

A

A l l i g a t o r 427

Guest

• 29 Octobre 2011

• #6

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

 

Vote positif 0 Vote négatif

A

A l l i g a t o r 427

Guest

• 29 Octobre 2011

• #7

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("P7😛166")).SpecialCells(xlCellTypeConstants)
a.Offset(, -14).Resize(, 1) = "Not Valide"
End Sub

 

Vote positif 0 Vote négatif

M

momo2394

XLDnaute Occasionnel

• 3 Novembre 2011

• #8

Re : cnversion formule en vba

A l l i g a t o r 427 à dit:

Et en utilisant SpecialCells, ça joue aussi

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

Cliquez pour agrandir...

Salut Yaloo & Alligator427

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

 

Vote positif 0 Vote négatif