VBA - Nbre de cellule par colonne

Question

Bonjour,

Je suis novice en matière de macro Excel, c'est la raison pour laquelle je m'en remets à vous.
Dans mon cas, j'ai 4 colonnes (B, C, D, E) de ~50 lignes comprenant les valeurs suivantes :
       -	OK
       -	RET

L'idée de la macro est la suivante :

1-	Analyse de la colonne E
     a.	Si  les cellules sont vides alors analyse de la colonne D
     b.	Sinon analyse du nombre de ligne comprenant la valeur « RET » dans colonne E
               i.	Si RET = 0, alors cellule A1 = « 0 »
              ii.	Si RET = X, alors valeur de la cellule A1 = « X »

2-	Analyse de la colonne D
     a.	Si  les cellules sont vides alors analyse de la colonne C
     b.	Sinon analyse du nombre de ligne comprenant la valeur « RET » dans colonne D
               i.	Si RET = 0, alors cellule A1 = « 0 »
              ii.	Si RET = X, alors valeur de la cellule A1 = « X »

3-	Analyse de la colonne C
     a.	Si  les cellules sont vides alors analyse de la colonne B
     b.	Sinon analyse du nombre de ligne comprenant la valeur « RET » dans colonne C
               i.	Si RET = 0, alors cellule A1 = « 0 »
              ii.	Si RET = X, alors valeur de la cellule A1 = « X »

4-	Analyse de la colonne B
     a.	Si  les cellules sont vides alors cellule A1 = « » 
     b.	Sinon analyse du nombre de ligne comprenant la valeur « RET » dans colonne B
               i.	Si RET = 0, alors cellule A1 = « 0 »
              ii.	Si RET = X, alors valeur de la cellule A1 = « X »

Merci pour votre aide
Melaine





Configuration: Windows 7 / Firefox 3.6.13

michel_m · Answer

Bonjour

Option Explicit

Sub analyser_cascade()
Dim col As Byte

For col = 5 To 2 Step -1
    If Application.CountA(Columns(col)) <> 0 Then
        Range("A1") = Application.CountIf(Columns(col), "RET")
        Exit For
    End If
Next

End Sub

VBA - Nbre de cellule par colonne

1 réponse

Votre réponse

Discussions similaires

Newsletters