Boucle for qui tourne au vinaigre

A

anthony.unac

XLDnaute Occasionnel
Bonsoir,

Mon code ne marche pas et pourtant je ne comprends pas ou est l'erreur :
Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Workbooks.Open Filename:= _
        "C:\Documents and Settings\Administrateur\Bureau\test.xls"
    Windows("Copie de FICHE DE LIAISON NOUVELLE.xls").Activate
    For i = 2 To 366
    If Feuil3.Cells(i, 1) = Feuil1.Cells(2, 4) Then Feuil3.Rows(i).Select
    Next i
    Selection.Copy
    Windows("test.xls").Activate
    Rows(i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

End Sub

Pouvez vous m'aider ?

Cordialement
Anthony:(
 
Trier par date Trier par votes
A

anthony.unac

XLDnaute Occasionnel
Re : Boucle for qui tourne au vinaigre

Roland_M à dit:
bonsoir

il semble que que tu "Select" une Feuille non active !?
Feuil3.Rows(i).Select !????
Cliquez pour agrandir...

C est curieux car dans le code suivant :

Code: 
Windows("Copie de FICHE DE LIAISON NOUVELLE.xls").Activate
    For i = 2 To 366
    If Feuil3.Cells(i, 1) = Feuil1.Cells(2, 4) Then Feuil3.Rows(i).Select

On remarque que 2 lignes avant le : "Feuil3.Rows(i)" il y a un : "Windows("Copie de FICHE DE LIAISON NOUVELLE.xls").Activate".
Autrement dit les 3 feuilles du fichier "Copie de FICHE DE LIAISON NOUVELLE.xls" sont actives.
D un autre coté lorsqu on enleve le "Feuil3." on obtient ceci :

Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Workbooks.Open Filename:= _
        "C:\Documents and Settings\Administrateur\Bureau\test.xls"
    Windows("Copie de FICHE DE LIAISON NOUVELLE.xls").Activate
    For i = 2 To 366
    If Feuil3.Cells(i, 1) = Feuil1.Cells(2, 4) Then Rows(i).Select
    Next i
    Selection.Copy
    Windows("test.xls").Activate
    Rows(i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

End Sub

et la c est la ligne i de feuil1 qui est copier :confused: par defaut
 
Vote positif 0 Vote négatif
Roland_M

Roland_M

XLDnaute Barbatruc
Re : Boucle for qui tourne au vinaigre

re

'D'une part je comprends pas ta boucle car tu boucles pour rien jusqu'au bout !?
'Tu ne peut avoir qu'une seule ligne sélectionnée !?
'Il faudrait Exit For après Then Feuil3.Rows(i).Select: Exit For <<<<<<<<

Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\test.xls"
Windows("Copie de FICHE DE LIAISON NOUVELLE.xls").Activate
For i = 2 To 366
 If Feuil3.Cells(i, 1) = Feuil1.Cells(2, 4) Then
    Feuil3.Rows(i).Select
    Selection.Copy: Exit For
 End If
Next i
Windows("test.xls").Activate
Rows(i).Select ' <<<<<<<<<<<<<<<<<< ici qu'elle feuille !?
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
 
Vote positif 0 Vote négatif
K

kjin

XLDnaute Barbatruc
Re : Boucle for qui tourne au vinaigre

Bonsoir,
Je préfére l'utilisation des noms de feuilles
Code: 
Sub Copie()
FichDep = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\test.xls"
FichDest = ActiveWorkbook.Name
Windows(FichDep).Activate
    With Sheets("Feuil3")
        For i = 2 To 366
            If .Cells(i, 1) = Sheets("Feuil1").Cells(2, 4) Then
            'a priori copie à la même ligne et dans la feuil1 puisque non spécifié !
                .Rows(i).Copy Workbooks(FichDest).Sheets("Feuil1").Rows(i)
            End If
        Next i
    End With
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
A

anthony.unac

XLDnaute Occasionnel
Re : Boucle for qui tourne au vinaigre

Roland_M à dit:
re

'D'une part je comprends pas ta boucle car tu boucles pour rien jusqu'au bout !?
'Tu ne peut avoir qu'une seule ligne sélectionnée !?
'Il faudrait Exit For après Then Feuil3.Rows(i).Select: Exit For <<<<<<<<

Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\test.xls"
Windows("Copie de FICHE DE LIAISON NOUVELLE.xls").Activate
For i = 2 To 366
 If Feuil3.Cells(i, 1) = Feuil1.Cells(2, 4) Then
    Feuil3.Rows(i).Select
    Selection.Copy: Exit For
 End If
Next i
Windows("test.xls").Activate
Rows(i).Select ' <<<<<<<<<<<<<<<<<< ici qu'elle feuille !?
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Cliquez pour agrandir...

Je vais essayer ca, quand a mes boucles je connais leurs utilités mais je les ecris probablement mal.
J ai du boulot sur les fins de boucles les End et autre Next que je ne maitrise pas vraiment et que je ne sais jamais vraiment ou placer.

Merci pour ton code et ton attention !
 
Vote positif 0 Vote négatif
A

anthony.unac

XLDnaute Occasionnel
Re : Boucle for qui tourne au vinaigre

kjin à dit:
Bonsoir,
Je préfére l'utilisation des noms de feuilles
Code: 
Sub Copie()
FichDep = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\test.xls"
FichDest = ActiveWorkbook.Name
Windows(FichDep).Activate
    With Sheets("Feuil3")
        For i = 2 To 366
            If .Cells(i, 1) = Sheets("Feuil1").Cells(2, 4) Then
            'a priori copie à la même ligne et dans la feuil1 puisque non spécifié !
                .Rows(i).Copy Workbooks(FichDest).Sheets("Feuil1").Rows(i)
            End If
        Next i
    End With
End Sub
A+
kjin
Cliquez pour agrandir...

C est exactement ca, on copie a la même ligne mais sur la feuille 1 du fichier test.xls.
Merci beaucoup :)

A+
Anthony
 
Vote positif 0 Vote négatif
A

anthony.unac

XLDnaute Occasionnel
Re : Boucle for qui tourne au vinaigre

Roland_M à dit:
re

'D'une part je comprends pas ta boucle car tu boucles pour rien jusqu'au bout !?
'Tu ne peut avoir qu'une seule ligne sélectionnée !?
'Il faudrait Exit For après Then Feuil3.Rows(i).Select: Exit For <<<<<<<<

Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\test.xls"
Windows("Copie de FICHE DE LIAISON NOUVELLE.xls").Activate
For i = 2 To 366
 If Feuil3.Cells(i, 1) = Feuil1.Cells(2, 4) Then
    Feuil3.Rows(i).Select
    Selection.Copy: Exit For
 End If
Next i
Windows("test.xls").Activate
Rows(i).Select ' <<<<<<<<<<<<<<<<<< ici qu'elle feuille !?
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Cliquez pour agrandir...


En compilant, il me renvoie l erreur d exécution '1004' , la méthode Select de la classe Range a échoué.
Pas cool car le code avait l air bon :(
 
Vote positif 0 Vote négatif
A

anthony.unac

XLDnaute Occasionnel
Re : Boucle for qui tourne au vinaigre

kjin à dit:
Bonsoir,
Je préfére l'utilisation des noms de feuilles
Code: 
Sub Copie()
FichDep = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\test.xls"
FichDest = ActiveWorkbook.Name
Windows(FichDep).Activate
    With Sheets("Feuil3")
        For i = 2 To 366
            If .Cells(i, 1) = Sheets("Feuil1").Cells(2, 4) Then
            'a priori copie à la même ligne et dans la feuil1 puisque non spécifié !
                .Rows(i).Copy Workbooks(FichDest).Sheets("Feuil1").Rows(i)
            End If
        Next i
    End With
End Sub
A+
kjin
Cliquez pour agrandir...

Meme avec l utilisation de noms de feuille, le compilateur est mecontent :
Erreur d execution '9':
L indice n appartient pas a la selection

(fleche bloque sur la ligne de code:
With Sheets("Feuil3") )

C est chiant ces erreurs de compilation car a chaque fois on a l impression que tout est nickel :mad:
 
Vote positif 0 Vote négatif
A

anthony.unac

XLDnaute Occasionnel
Re : Boucle for qui tourne au vinaigre

kjin à dit:
Bonsoir,
Comme je l'ai dit, j'utilise les noms des feuilles parce que plus simple pour s'y retrouver.
Donc si pour toi la "feuil3" n'existe pas, forcément...
A+
kjin
Cliquez pour agrandir...

Autant pour moi voici ton code adapte a mes fichiers et il marche tres bien :

Code: 
FichDep = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\test.xls"
FichDest = ActiveWorkbook.Name
Windows(FichDep).Activate
    With Sheets("Suivi Logistique")'<<<<<voila le nom de la feuil3 de depart
        For i = 2 To 366
            If .Cells(i, 1) = Sheets("Fiche de Liaison").Cells(2, 4) Then'<<<<nom de la feuil1 de depart
            'a priori copie à la même ligne et dans la feuil1 puisque non spécifié !
                .Rows(i).Copy Workbooks(FichDest).Sheets("Feuil1").Rows(i)
            End If
        Next i
    End With

Un grand merci donc ;)
 
Vote positif 0 Vote négatif

Discussions similaires

F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
124
Francky79
F
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
1 K
AtTheOne
AtTheOne
W
  • Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
333
whiteshark
W
mouchtre
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
535
mouchtre
mouchtre
U
  • Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
416
un internaute
U
V
  • Question
XL 2016 Donner le nom du fichier à mon tableau mis en forme
Réponses
2
Affichages
303
vivi21
V
L
  • Question
XL 2019 bouton compteur
Réponses
5
Affichages
440
LEPATOCHE
L
Usine à gaz
  • Question
Microsoft 365 Filtre direct sans formuler
Réponses
11
Affichages
367
patricktoulon
patricktoulon
M
  • Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
652
Oneida
Oneida
A
  • Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
1 K
Arnaud Legay
A

Membres actuellement en ligne

12 membres et 103 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 322
Messages
2 087 289
Membres
103 508
dernier inscrit
max5554