Discussion :

[seba_stien]

bonjour,

J'ai créé une filtre pour rechercher des informations dans une colonne.
Le problème, c'est que j'aimerais savoir si dans la colonne suivant sur la même ligne se trouve qqch et si oui sur la colonne suivant,e etc...

Ce résultat me formera une sélection que j'afficherais.

voilà ce que j'ai faitPour l'instant ca recherche juste dans la 1ère colonne)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
numberOfRows = WorksheetFunction.CountA(DataSheet.Range(Column & "2:" & Column & "1000"))
 
        FilterStr = FilterValue & "."
        For i = 2 To numberOfRows + 1
            If Left(DataSheet.Range(FilterCol & i), Len(FilterStr)) = FilterStr Then
                If StartRow = 0 Then StartRow = i
                If StopRow = 0 Or StopRow < i Then StopRow = i
            End If
        Next i
 
Result = "data!" & DataSheet.Range(Col & StartRow).Address & ":" & DataSheet.Range(Col & StopRow).Address

Merci d'avance

seba_stien

[seba_stien]

J'ai ajouté le nombre de colonne qui sont rempli (voir ce qui est en rouge)
maintenant j'aimerais pouvoir relever la lettre qui correspond à cette valeure...
car si ma colonne de départ c'est la "S", je ne peux pas faire "S" + 3, si par exemple j'ai 3 colonne avec des valeures derrière...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
numberOfRows = WorksheetFunction.CountA(DataSheet.Range(Column & "2:" & Column & "1000"))
        
        
        FilterStr = FilterValue & "."
        For i = 2 To numberOfRows + 1
            If Left(DataSheet.Range(FilterCol & i), Len(FilterStr)) = FilterStr Then
                If StartRow = 0 Then StartRow = i
                    numberOfColumn = WorksheetFunction.CountA(DataSheet.Range("S" & StartRow & ":ABB" & StartRow))
                If StopRow = 0 Or StopRow < i Then StopRow = i
            End If
        Next i