fonction Address

**Toad08** · 06/02/2008, 12h23

Bonjour ...

La je galère trop donc g besoin d'un coup de main !!!
Voila j'aimerai pouvoir rechercher un nom sur une feuille de calcul et a chaque fois qu'il est reconnu, copier la valuer correspondante (avec Offset) sur une autre page de calcule ; sachant que sur celle-ci, les valeurs se coleront l'une à la suite de l'autre.
Sa marche bien la 1ère fois mais ensuite, il me renvoie un message d'erreur pour le 2ème tour !!!
Voila ce que g écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
If Mois = "Janvier" Then
Sheets("Janvier").Activate
Message = "Enter the product wished"
Title = "INFORMATION"
code1 = InputBox(Message, Title)
    With ActiveSheet
        Set c = Sheets("Janvier").Cells.Find(code1, LookAt:=xlWhole)
                If Not c Is Nothing Then
                firstAddress = c.Address
                a = 2
                    Do
                    c.Offset(columnOffset:=9).Activate  :cry: ' NIVO OU LE PB SURVIENT
                    Selection.Copy
                    Sheets("BILAN PROD").Cells(7, a + 1).PasteSpecial (xlPasteValues)
                    Sheets("Janvier").Select
                        Set c.Address = Cells.FindNext(c)
                        Loop While Not c Is Nothing And c.Address <> firstAddress
                    Else
                    Exit Sub
                End If
    End With

J'avoue que la je coince !!!

**ouskel'n'or** · 06/02/2008, 14h28

Sans aller plus loin, tu n'as pas besoin d'Address, là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

                       Set c = Cells.FindNext(c)

A+

**Toad08** · 06/02/2008, 14h51

Le truc c que j avais pensé tu vois ....
Et meme en l'enlevant ca marche tjrs pas !!!
D'ailleurs qd j'avance pas à pas et que je verifie sur le fichier excell je m'apercoie qu'il prend bien la 1ère valeur mais bloque dès le 1er loop.
En soit je pensais que le Macro était pas trop compliqué mais je me casse la tete !

**tomy7** · 06/02/2008, 14h55

et si tu passes par une rechercheV .
je connais pas le truc mais je pense que ya moyen.
C'est juste une proposition je n ai pas assez d experience avec la methode.

tom