COUPER COLLER dynamique

[Metmo]

For i = 1 To 700000

If Worksheets("SGSN").Cells(i, 1) = "BRON21" Then

n = i - 1

Range("A1:Bn").Select
Application.CutCopyMode = False
Selection.Cut
Sheets.Add
ActiveSheet.Paste

End If

je veux veux a partir d'un fichier le listé et arrivé a un mot clés COUPER tous ce qu'il y a avant de la cellule A1 a la Cellule An .

Mais Range n'accepte pas An so je chercher une autre methode a mettre dans cette boucle si qqu peux m'aider c cool

 

[ZON]

Bonsoir à tous,

Metmo pour ce que tu demandes Range("A1:B" & n).

Ensuite tu n'as que 65536 lignes sous Excel le cells(i,1) va te renvoyer une erreur tu peux utiliser afin de récupérer la dernière ligne utilisée comme suit

with sheets("SGSN")
for i=1 to .[A65536].end(xlup).row
if .cells(i,1)="= "BRON21" Then
.Range("A1:B" & i-1).cut
sheets.add
activesheet.paste
Application.CutCopyMode = False
end if
end with

Je ne sais pas si c'est vraiment ce que tu veux, il me semble bizarre de créer une nouvelle feuille à chaque fois mais bon


A+++

 

[ZON]

oups, une erreur dans le copier coller


with sheets("SGSN")
for i=1 to .[A65536].end(xlup).row
if .cells(i,1)= "BRON21" Then
.Range("A1:B" & i-1).cut
sheets.add
activesheet.paste
Application.CutCopyMode = False
end if
next i 'il manquait en plus le next i
end with


A+++

 

[Metmo]

si c exactement ça nikel merci