fonction Address

Version imprimable

fonction Address

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:

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 !!!

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

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

Code:

Set c = Cells.FindNext(c)

A+
06/02/2008, 14h51
Toad08

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 !
06/02/2008, 14h55
tomy7

re

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
06/02/2008, 14h57
Toad08

Voila le souci ...
AVec Excell et en RechercheV (le Control + F) il les trouve tous les nom.
C'est donc mon code VBA qui est pas bon ....
06/02/2008, 15h18
tomy7

re

tu peux faire une rechercheV par vba:

http://support.microsoft.com/kb/324861/fr
08/02/2008, 09h49
Toad08

Bon ... peu etre que g pas bien compris mais les fonctions VLookup ou Match ne sont utilisables que sous excell !
Comment je peux les appliquer dans VBA donc ; sans passer par une formule sous excell ?
08/02/2008, 10h37
tomy7

re

tu peux utiliser Vlookup sous VBA sans probleme:
voici le code:

Code:

VLOOKUP(Lookup_Value,Table_Array,Col_Index_Num,Range_Lookup)
08/02/2008, 12h01
ouskel'n'or

As-tu un message d'erreur ? Sur quelle ligne ?

Comme j'ai trouvé une autre erreur dans ton code, je remets tout

Code:

1
2
3
4
5
6
7
8
9
10
    With ActiveSheet.cells
        Set c = .Find(code1, LookAt:=xlWhole)
                If Not c Is Nothing Then
                firstAddress = c.Address
                a = 2
                Do
                    Range(c.address).Offset(0,9).Copy 
                    Sheets("BILAN PROD").Cells(7, a + 1).PasteSpecial (xlPasteValues)
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress

Mais avec cette syntaxe, a sera toujours égal à 3

Bon g modifié le code .... je l'ai meme améliorer en précisant ou je voulais qu'il me colle la ou les valuers correspondant a la recherche.
D'abord, tu as raison, comme je l'avais ecrit, a était tjrs égal à 3 !! Donc je l'ai changé ; ensuite voula ou été l'erreur :

Set c = Sheets(Det).Cells.FindNext(c) 'IL FALLAIT QUE JE LUI DISE DE REVENIR SUR LA FEUILLE SINON IL COMPRENAIT PAS'

Je pense que c'est car maintenant ca marche ...
Merci bcp pour votre soutient .... ca ma permi de perseverer :lol:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
code1 = InputBox(Message, Title)
    With ActiveSheet
        Set c = Sheets(Det).Cells.Find(code1, LookAt:=xlWhole)
                If Not c Is Nothing Then  
                firstAddress = c.Address
                a = 2
                Sheets("BILAN PROD").Activate 'C'EST LA QUE JE LUI DIS DE METTRE LA VALEUR OU JE VEUX'
                ActiveSheet.Cells.Find(code1, LookAt:=xlWhole).Activate
                    With Application.ActiveCell
                    NumLg = .Row
                    End With
                    Sheets(Det).Activate
                        Do
                        a = a + 1
                        c.Offset(columnOffset:=9).Activate
                        Selection.Copy
                        Sheets("BILAN PROD").Cells(NumLg, a).PasteSpecial (xlPasteValues)
                        Set c = Sheets(Det).Cells.FindNext(c)  
                        Loop While Not c Is Nothing And c.Address <> firstAddress
                Else
                Exit Sub
                End If
    End With

J'espère juste que ca marchera a tous les coups maintenant :?