Compter avec Conditions VBA
Bonjour à tous,
j'aurais besoin de compter avec des conditions mais cette fois-ci en VBA (chose que j'ai du mal à maîtriser).
Je fais donc appel à votre expertise.
Ci-joint, le fichier excel.
Je voudrais supprimer lignes qui contiennent D dans colonne E.
Je voudrais compter le nombre de ligne colonne A à partir de A4 jusqu'a la fin et mettre le résultat en A1.
Je voudrais mettre un "-" dans colonne vide B SI D = 10 ET C = Tokyo
Je voudrais compter le nombre de ligne NON VIDE à partir de B4 jusqu’à la fin (fin = derniere cellule pleine colonne A) et mettre résultat en B2
Voilà, si vous pouvez m'expliquer comment faire en vba, après les conditions changent pour chaque colonnes mais si nous arrivons à le faire pour une colonne je vois pas pourquoi j'y arriverai pas pour plusieurs.
Merci de votre aide.
Bonne journée
Pour information, j'ai résolu un point:
Je voudrais supprimer lignes qui contiennent D dans colonne E.
Public Sub EndReport()
Dim i As Integer
Dim lFirstRow As Long
Dim lLastRow As Long
Dim ws As Worksheet
Dim iRowIndex As Integer
Set ws = ActiveSheet
lLastRow = Me.ActiveSheet.Cells.Find("*", ActiveSheet.Range("A1"), , , xlByRows, xlPrevious).Row
Cells(4, 1).Select
While ActiveCell.Row <= lLastRow
If ActiveCell.Offset(0, 4).Value = "D" Then
Selection.EntireRow.Delete
lLastRow = lLastRow - 1
Else
Cells(ActiveCell.Row + 1, 1).Select
End If
Wend
End Sub
Maintenant, si vous pouvez m'aider sur les autres points.
Merci
Bonne journée
Parfait, merci Banzai !
Bonne journée !