Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Syntaxe pour Range dans une boucle For

Syntaxe pour Range dans une boucle For

2 réponses
Avatar
Lycaon
Bonjour,

Vous trouverez ci-dessous ma macro qui effectue un traitement sur plusieurs
fichiers en série. Tout se passe bien jusqu'à la boucle For dans la sous
macro. VBE ne reconnaît pas ma syntaxe et je n'ai pas trouvé comment
l'écrire. Si quelqu'un connaît la solution...

Sub AutoTousFichiers()


Workbooks.Add
ActiveWorkbook.SaveAs Filename:="I:\Private_ISP\PPM\test.xls", FileFormat:= _
xlExcel9795, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:=False

With Application.FileSearch
.NewSearch
.LookIn = "P:\Documents\Reports Sept 2006"
.Execute
On Error Resume Next
For i = 1 To .FoundFiles.Count
Call AutoUnFichier(.FoundFiles(i))
Next
End With

Windows("test").Activate
ActiveWorkbook.Save
ActiveWindow.Close

End Sub


Sub AutoUnFichier(X As String)


Dim y As Boolean
Dim j As Integer
Dim D As Integer

y = False
Workbooks.Open Filename:=X
Range("A8").Select
Selection.End(xlDown).Select
D = ActiveCell.Row


For j = 8 To D
Range("Aj").Select
y = IsNumeric(ActiveCell.Value)

If y = True Then

Range(DerCell).EntireRow.Select
Selection.Copy
Windows("test").Activate
ActiveSheet.Paste



End If

Next

Workbooks("X").Close SaveChanges:=False

End Sub




Merci pour vos réponses
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Je pense que ton erreur vient de :
Range("Aj").Select
que tu devrais écrire :
Range("A" & j).Select
Cordialement.
Daniel
"Lycaon" a écrit dans le message de news:

Bonjour,

Vous trouverez ci-dessous ma macro qui effectue un traitement sur
plusieurs
fichiers en série. Tout se passe bien jusqu'à la boucle For dans la sous
macro. VBE ne reconnaît pas ma syntaxe et je n'ai pas trouvé comment
l'écrire. Si quelqu'un connaît la solution...

Sub AutoTousFichiers()


Workbooks.Add
ActiveWorkbook.SaveAs Filename:="I:Private_ISPPPMtest.xls",
FileFormat:= _
xlExcel9795, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:úlse

With Application.FileSearch
.NewSearch
.LookIn = "P:DocumentsReports Sept 2006"
.Execute
On Error Resume Next
For i = 1 To .FoundFiles.Count
Call AutoUnFichier(.FoundFiles(i))
Next
End With

Windows("test").Activate
ActiveWorkbook.Save
ActiveWindow.Close

End Sub


Sub AutoUnFichier(X As String)


Dim y As Boolean
Dim j As Integer
Dim D As Integer

y = False
Workbooks.Open Filename:=X
Range("A8").Select
Selection.End(xlDown).Select
D = ActiveCell.Row


For j = 8 To D
Range("Aj").Select
y = IsNumeric(ActiveCell.Value)

If y = True Then

Range(DerCell).EntireRow.Select
Selection.Copy
Windows("test").Activate
ActiveSheet.Paste



End If

Next

Workbooks("X").Close SaveChanges:úlse

End Sub




Merci pour vos réponses


Avatar
Lycaon
Merci beaucoup de ta réponse : cela marche parfaitement maintenant.