Creation De Macro

Version imprimable

30/05/2007, 11h26
jojoe

Creation De Macro

Coucou
je suis une petite nouvelle qui a un gros probleme

je dois créer une macro qui doit rechercher du texte dans un tableau
puis si ce texte correspond il faut réécrire les trois colonnes qui suit ce texte dans une autre page

et franchement je ne vois pas du tout comment faire

s'il vous plait aidez moi

merci d'avance

c pô grave de débuter, on est tous passé par là !

Tu peux essayer ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub cherchertxtetcopie()
 
dim c as variant
dim CL1 as workbook
dim FL1 as worksheet, FL2 as worksheet
 
With Worksheets(1).Range("la plage")
    Set c = .Find("mon texte", lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            set CL1=thisworkbook
	    set FL1=CL1.worksheet("la feuille origine")
	    set FL2=CL1.worksheet("la feuille destination")
                FL1.Range(""" & firstaddress & ":" & FL1.firstaddress.column + 3 & FL1.firstaddress.row & """).Copy _
                Destination:=FL2.Range("A" & FL2.Range("A1"). _
                SpecialCells(xlCellTypeLastCell).Row + 1)
	        Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
 
End sub

30/05/2007, 12h06
jojoe

merci

merci beaucoup je vai essayer

il y a un petit probleme au niveau de

Code:

1
2
3
 FL1.Range(""" & firstaddress & ":" & FL1.firstaddress.column + 3 & FL1.firstaddress.row & """).Copy _
                Destination:=FL2.Range("A" & FL2.Range("A1"). _
                SpecialCells(xlCellTypeLastCell).Row + 1)

merci

30/05/2007, 18h06
SilkyRoad

bonjour

Citation:

il y a un petit probleme au niveau de

quel problème? quel message d'erreur?

michel
31/05/2007, 09h47
jojoe

Changement

En fait j'ai changé completement de code
merci quan meme de votre aide a tous