Discussion :

[jojoe]

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

[ancel17]

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

Tu peux essayer ça :

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

[jojoe]

merci beaucoup je vai essayer

[jojoe]

il y a un petit probleme au niveau de

Code :

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

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

[SilkyRoad]

bonjour

il y a un petit probleme au niveau de

quel problème? quel message d'erreur?


michel

[jojoe]

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