Sujet Précédent Sujet Suivant

Recherche valeur et copier cellule de droite

Stephblit Messages postés 8 Date d'inscription jeudi 6 mars 2008 Statut Membre Dernière intervention 9 juin 2008 - 8 juin 2008 à 16:48
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 9 juin 2008 à 20:31
Debutant...pour de vrai Bonjour,
je vais esayer d'être bref et clair pour mon 1er message sur le forum !

alors voila, j ai un fichier excel avec une vingtaine de colonne et 20000 lignes

Je veux pouvoir rentrer dans la cellule A1 un numéro, et qu une macro recherche dans toute la feuille le numéro intégré en A1, et que cette macro colle la cellule se trouvant a droite dans un autre onglet.
Le nombre rentré en A1 peut bien sur apparaitre à plusieurs endroits (donc plusieurs fois) dans la feuille. il faut donc que la macro me récupère à chaque fois ce qui se trouver dans chacune des cellules a droite.

En espérant avoir été clair!

4 réponses

Réponse 1 / 4
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 14
8 juin 2008 à 18:36
Salut,

une simple boucle for next avec une condition if a l' interieur de la boucle pour comparer les valeur a la valeur de la cellule A1. Rien de plus !
Cherche un peu il y a au moins plusieur centaine d' exemples de ce type de code sur VBfrance et au moins 5 ou 6 exemple rien que la semaine derniere ! Cherche un peu

A+
0
Réponse 2 / 4
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
9 juin 2008 à 12:44
salut,

la boucle for next est trop longue selon le nombre de données.

Stephblit, je t'avais donné qques indices avec Find et OffSet. Qu'as tu trouvé ?

Option Explicit

Sub fdsf()
    Dim rStartCell As String, i As Integer
    
Cells.Find(What:=Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=
_
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
    , SearchFormat:=False).Activate

i = 1
Sheets("Feuil2").Cells(i, 1).Value = ActiveCell.Offset(0, 1).Value
rStartCell = ActiveCell.Address
Do
    Cells.FindNext(After:=ActiveCell).Activate
    i = i + 1
    Sheets("Feuil2").Cells(i, 1).Value = ActiveCell.Offset(0, 1).Value
Loop While ActiveCell.Address <> rStartCell

End Sub
~
<small>Mortalino ~ [code.aspx?ID=39466 Colorisation
automatique]</small>

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
0
Réponse 3 / 4
Stephblit Messages postés 8 Date d'inscription jeudi 6 mars 2008 Statut Membre Dernière intervention 9 juin 2008
9 juin 2008 à 19:59
très honnetement j ai cherché pas mal sur le net aujourd hui et hier !
et je n ai pas trouvé grand chose...
débutant dans le vba, il me faut un code tout fait...
mais je ne désespere pas, je progresse de jours en jours
0
Réponse 4 / 4
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
9 juin 2008 à 20:31
débutant dans le vba, il me faut un code tout fait...



beh le voilà ^^

pense aussi à regarder l'aide vb, elle est très complête et indispensable

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
0
Rejoignez-nous