Renvoyer les valeurs successives d'une plage

[STEPHNANTES]

Bonjour à tous,

J'ai un tableau à deux colonnes sur la feuille ROUGE :
- La colonne A qui contient dans chaque cellule des valeurs numériques sont certaines sont égales à 101 ;
- La colonne B qui contient des valeurs quelconques ;

Je souhaite pouvoir récupérer :
- dans la cellule A1 d'une autre feuille (VERTE) la valeur de la cellule de la colonne B qui correspond à la 1ère cellule de la colonne A qui a la valeur 101 ;
- puis dans la cellule A2 de la même autre feuille VERTE la valeur de la cellule de la colonne B qui correspond à la 2ème cellule de la colonne A qui a la valeur 101.

Et là, NADA. Je sèche complet ! Comment faire ?

Vu le niveau des membres du forum, ma question va surement paraître stupide. Mais-là, je galère.

J'ai fait des recherches sur les posts précédents et je n'ai rien trouvé. Un GRAND MERCI pour votre aide

STEPHNANTES

 

[le Fnake]

Bonjour Steph, le forum

ton salut va alors venir d'un code en VBA ! 🙂
En voici le code (que tu retrouveras dans le fichier joint) :

Sub recherche()
Dim compteur As Integer

DerLigne = Range('Rouge!A6500').End(xlUp).Row
'donne la derniere ligne de la colonne où se trouvent des données (en remontant depuis la cellule A65000)
compteur = 0
For Each cellule In Range('Rouge!A1:A' & DerLigne)
    'parcours des cellules de la colonne A
    If cellule.Value = 101 Then
        compteur = compteur + 1
        Sheets('verte').Cells(1, compteur) = cellule.Offset(0, 1).Value
        'cells(1, compteur) correspond à la cellule de la ligne 1 et de la colonne n° compteur
    End If
    'If compteur = 2 Then Exit Sub
    'enlever l'apostrophe devant le If
    'si le code doit s'arreter après les 2 premiers 101 trouvés,
    'sinon il continue à répertorier les 101 suivants.
    
Next
End Sub

[file name=101dalmatiens.zip size=8810]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/101dalmatiens.zip[/file]

Bon courage !

le Fnake

PS : je sais pas pourquoi mais des &nsbp apparaissent dans le code, il faut les virer 😱

Message édité par: le Fnake, à: 15/12/2005 14:23

 

[Gael]

Bonjour Step, Bonjour Le Fnake,

Mais non, rassure-toi, les formules n'ont pas encore dit leur dernier mot.

Ci-joint un essai rapide que tu peux compléter et renvoyer comme exemple pour l'améliorer.

@+

Gael [file name=STEPHNANTES.zip size=3332]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/STEPHNANTES.zip[/file]

 

[le Fnake]

oui mais alors là je suis pas capable de faire çà moi ! 🙂 🙂
j'ai en gros compris ce que font tes formules, mais je suis bien incapable d'écrire de telles choses 😱 :lol:

Bon en tout cas Steph, te voilà pourvu de 2 solutions de 2 écoles différentes : les formules vs. le code

@+

le Fnake

 

[Gael]

Re,

c'est pour ça qu'on se complète tous sur le Forum, parce que moi, je ne suis pas non plus capable d'écrire ton code 🙂

@+

Gael

 

[STEPHNANTES]

RESPECT ET MERCI

RESPECT pour avoir une solution à mon problème

MERCI pour avoir pris le temps de me lire et de me répondre !!

STEPHNANTES

:woohoo:

 

[Celeda]

Re:RESPECT ET MERCI

Bonsoir,


ah non!! de non!!!

mille sabots et salopettes!!!

vous m'oubliez moi le TCD!!!

de XLD!!! en cette saison!!

franchement le Père Noêl va devoir vous amener le CD des TCD à consulter sur votre pc, les gars!!



et bien tant pis, je viens à vous puisque vous ne venez pas à moi!!! 🙂 🙂 🙂

une troisième voie!!!

quand y en a pour le vba








et les formules y en a pour le CeledaTCD!!!!

🙂 🙂 🙂


Celeda 😉 [file name=STEPHNANTEStcd.zip size=6830]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/STEPHNANTEStcd.zip[/file]

 

[le Fnake]

Re:RESPECT ET MERCI

et voilà ce fil m'a permis de me rendre compte que finalement, je connaissais pas Excel 🙂
Du coup,je veux bien que le père noel m'apporte un CD des TCD, parce que j'ai encore moins compris que la 2e voie 🙂 🙂 🙂

le Fnake :whistle: