rechercher une cellule

Question

Madames, Messieurs,
Je suis nouveau dans le millieu vba excel et ca fait plusieur jours que....laisse tombé je passe direct à ma question:
je recherche une macro vba qui pourra ne retrouver une cellule contenants une valeur  > ou = x dans une colonne excel ensuite l'utilisé comme repère  pour extraire 2 autres cellules que j'irais coller dans une nouvelle feuille.
repeter l'action jusqu'a fin de la colonne.
est-ce possible sans que ça ne soit une usine à gaz ?
Ars

userrrqi115 · Answer

Hello,
Quelques précisions ne seraient pas de refus:
Est-ce que tu recherches dans une colonne la 1ère cellule qui aura comme valeur y tel que y >= x ?
BR
USERRRQI115
Simple user
Great brain

aristo08 · Answer

Allez Paris 3-0 pourvu que ça dure...
en faite je veux récupérer toutes les cellules avec la valeur >=x

Ars

userrrqi115 · Answer

Re, 
Dans ce cas le mieux est de boucler :
Dim cell as range
For each cell in range("A1:A100") 'exemple colonne A jusque la ligne 100
if cell.value>=x then
'ici action pour récupérer tes 2 autres cellules et les coller dans ton autre feuille
end if
next cell

BR

USERRRQI115
Simple user
Great brain

aristo08 · Answer

Re, re
ma difficulté est justement d'identifier la cellule afin de l'utilisé comme repère
exemple: 
ma première valeur est en colonne J10 je copie donc la cellule J10; C9; E14 et F14 et je colle donc les différentes cellules sur une autre feuille (feuil2) J10 en A1; C9 en B1; E14 en C1.....

ma seconde valeur en colonne J26 je copie J26; C25; E30 et F30 et je colle donc les différentes cellules sur ma feuille (feuil2) J26 en A2; 26 en B2; E30 en C2.....




Ars

userrrqi115 · Answer

Hello,
à ajouter au début
r=1
tu peux mettre ceci dans la boucle après le Then :
val1=cell.value
val2= cell.offset(-1,-7).value
val3=cell.offset(4,-5).value
val4=cell.offset(4,-4).value
sheets(2).select
cells(r,1).value=val1
cells(r,2).value=val2
cells(r,3).value=val3
cells(r,4).value=val4
r=r+1
sheets(1).select
end if

BR
USERRRQI115
Simple user
Great brain

aristo08 · Answer

Merci ca marche sauf que je récupère aussi les valeurs < à x càd (300 dans mon fichier) et récupere aussi le texte, les "("
c'est dû à quoi?
c'est peux être un pb de déclaration
en tout cas tu m'as vachement dépanné
Merci Userrrqi115

Ars

Rechercher une cellule

6 réponses

Votre réponse

Discussions similaires