Discussion :

[comme de bien entendu]

Bonjour,

Je n'arrive pas à transformer une fonction type cellule en fonction VBA.
Je l'intégre dans une cellule par le code mais je préfèrerais l'avoir en worksheetfunction :
Voilà le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    fin = Range("A65256").End(xlUp).Row
    Range("Z1").FormulaR1C1 = "=COUNTIF(R1C3:R" & fin & "C3,"""")"
    casvide = Range("Z1")

Le but est de tester si une cellule est vide ou pas dans une plage.

Peut être existe-t-il un traducteur automatique ?
Ou peut être un algo de transfert d'une notation en l'autre est dispo ?
Merci d'avance de vos idées.

[Daniel.C]

Bonjour,

Effectivement, tu pourrais utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Application.CountA([A1:A10]) = 0 Then MsgBox "plage vide"

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If WorksheetFunction.CountA([A1:A10]) = 0 Then MsgBox "plage vide"

J'utilise la première formulation, la seconde donnant paraît-il des résultats erronés avec EQUIV (Match en VBA)

Pour trouver l'équivalent d'une formule en anglais, je l'écris en français dans une feuille Excel et j'exécute la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Formule()
    ' Touche de raccourci du clavier: Ctrl+Maj+F
    Set x = ActiveCell
    Set c = Application.InputBox("cellule desti", Type:=8)
    c.Value = "'" & x.Formula
End Sub

qui me permet de récupérer l'équivalent anglais dans une autre cellule.

[QuestVba]

Bonjour

cellule non vide (dans colonne A)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nbcells = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A"))

cellule vide (dans colonne A)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nbcells= WorksheetFunction.CountBlank(Range("$A:$A"))

[Philippe Tulliez]

Bonjour,
Il y a aussi une solution avec EVALUATE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim rng As Range: Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A2:A7")
Dim formula As String: formula = "=COUNTA(A2:A7)"
MsgBox Evaluate("=COUNTA(A2:A7)")
MsgBox Evaluate("=COUNTA(" & rng.Address & ")")
MsgBox Evaluate(formula)

[comme de bien entendu]

Merci beaucoup pour ce foisonnement d'idées. Cela devrait m'être bien utile.
Cdlt.