Discussion :

[ouioui_cmoi]

Bonjour
J'essaie d'utiliser le filtre automatique d'excel avec vba.
Je sais choisir un critere, mais je n'arrive pas a faire en sorte d'écrire et de sélectionner les bonnes cellules dans vba:

Code :

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

1
2
3
4
5
6
7
8
9
 
Range("A3:K3").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=11, Criteria1:="#VALUE!"
For i = 4 To 100
If Range("A" & i).Value <> "Maturity" Then
    Range("K" & i).Formula = "=MonTH(A" & i & ")"
    Else: Range("K" & i).Formula = 1
    End If

en fait je voudrais pouvoir selectionner la premiere cellule repondant au criterer "value!" écrire une formule et l'étendre sur toutes les cellules ayant "#value!"
Mais comment faire pour selectionner cette premiere cellule?
merci d avance

[fring]

Bonjour,

Perso je ne vois pas l'intérêt de passer par un filtre à moins d'avoir un tableau de 35.000 lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro5()
Dim i As Integer
 
For i = 4 To Cells(Rows.Count, 11).End(xlUp).Row
    If Cells(i, 11).Text = "#VALUE!" Then
        If Cells(i, 1) <> "Maturity" Then
            Cells(i, 11).formule = "=MonTH(A" & i & ")"
        Else
            Cells(i, 11) = 1
        End If
    End If
Next i
 
End Sub

[ouioui_cmoi]

ben justement...c est un tableau a 20000 lignes lol

[fring]

aah ok alors je comprend mieux l'intérêt, je voyais ta boucle de 4 à 100, pour ça que je pensais à un petit tableau

[neupont]

Une petite adaptation de :

Code :

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

1
2
3
4
 
For Each c In Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
   ...traitement
Next

?

(enfin peut-être une grosse adaptation... )

[fring]

Une autre question que je me pose finalement, si c'est pour mettre, une fois pour toutes, une formule dans les cellules, pourquoi passer par une macro ?
Le temps d'écrire la macro pour un tableau, je pense que tu peux inscrire manuellement la formule et la tirer vers le bas dans 10 tableaux !