probleme de recupération de valeur dans une colonne

Question

re-bonjour
j'ai encor un pb mais celui la me prend beaucoup plus la tete...
j'ai une colonne B avec des valeurs.
Dans cette colonne, j'ai deux fois la valeur qui m'interesse cad 180 et je dois recupérer la valeur dans la colonne A correspondante a la ligne ou se trouve 180 dans la B.
j'ai une fois a recuperer la ligne ou apparait 180 pour la premiere fois et une fois ou il apparait pour la deuxieme fois.
mon programme doit traiter un gros paquet de fichiers qui remplissent tous de maniere differentes la colonne B donc les 2  180 ne se trouvent jamais a la meme place
merci
Valer

HFanny · Answer

Bonjour,

Si j'ai bien compris ce que tu veux faire, tu veux juste récupérer les lignes où il y a tes 180 ?

Dis moi si ça te convient :


Dim ligne1, ligne2 As Integer
Dim cellule as Range
set cellule = range("B1")
ligne1 = 0
ligne2 = 0
While not isempty(cellule)
If cellule.value = 180 Then
If ligne1 = 0 Then 
ligne1 = cellule.Row
Else
ligne2 = cellule.Row
End If
set cellule = cellule.Offset(1,0)
Wend

MsgBox "Première ligne où il y a 180 : " & ligne1
MsgBox "Deuxième ligne où il y a 180 : " & ligne2



Pour réutiliser les variables ligne1 et ligne2 (sélectionner la ligne1 par exemple) :

range(ligne1 & ":" & ligne1).Selected

Fanny

cs_funseb · Answer

tu developpes en VB ou VBA??

clac-clac

cs_valer · Answer

je dvlp en vba
merci fanny ca marche pas mal ton truc!
Valer

cs_valer · Answer

je dvlp en vba
merci fanny ca marche pas mal ton truc!
Valer

Probleme de recupération de valeur dans une colonne

4 réponses

Discussions similaires