Probleme de recupération de valeur dans une colonne
cs_valer
Messages postés140Date d'inscriptionmercredi 26 mai 2004StatutMembreDernière intervention26 juillet 2004
-
16 juin 2004 à 13:16
cs_valer
Messages postés140Date d'inscriptionmercredi 26 mai 2004StatutMembreDernière intervention26 juillet 2004
-
17 juin 2004 à 08:03
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
A voir également:
Probleme de recupération de valeur dans une colonne
HFanny
Messages postés699Date d'inscriptionmercredi 19 février 2003StatutMembreDernière intervention13 mai 201120 16 juin 2004 à 13:26
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) :