Boucle For Fermé

Question

Bonjour, 

J'essaie de faire une boucle for pour copier et coller une ligne variable d'un onglet dans la dernière ligne d'un autre onglet.

Les données de ligne1 et ligne2 sont entrées dans une userform par l'utilisateur et je désire que la la boucle for copie les lignes comprises entre ligne1 et ligne2 pour les cellules dans la plage A3:A59 qui contienne BP- & ligne2-ligne1

Par exemple, si ligne1 = 1 et ligne2 = 3 alors la boucle copie les lignes dont il y a BP-1, BP-2 et BP-3 d'inscrit dans la colonne A.

Dim ligne1 As LongDim ligne2 As LongDim plage As RangeSet ShtL = ThisWorkbook.Sheets("Logbook")DLigL = ShtL.Range("B65536").End(xlUp).RowSet plage = ThisWorkbook.Sheets("Suivi").Range("A3:A59")For i = ligne1 To ligne2If plage.Value = "BP1-" & i ThenThisWorkbook.Sheets("Suivi").Range("A1" & i + 2).Row = ShtL.Range("A" & DLigL + 1).ValueEnd IfNext i

J'espere que ce n'est pas trop confus.

Merci beaucoup de votre aide !!

Configuration: Windows / Chrome 56.0.2924.87

gbinforme · Answer

Bonjour, 

Il y a quelques problèmes :
- tout d'abord la valeur de ligne1 et ligne2
leur valeur est dans ton userform ?

- tu ne peux pas tester ta plage mais seulement les cellules qui la composent

123Mart123 · Answer

Oui la valeur de ligne1 et ligne2 est récupérée au début de mon code

ligne1 = Retval3.BF1FROM.Valueligne2 = Retval3.BF1TO.Value

Pour tester les cellules, je ne sais pas comment m'y prendre...

gbinforme · Answer

Bonjour, 

Je te propose ceci à tester :
Dim ligne1 As Long
Dim ligne2 As Long
Dim DLigL As Long
Dim cel As Range
Dim ShtL As Worksheet
ligne1 = Retval3.BF1FROM.Value
ligne2 = Retval3.BF1TO.Value
Set ShtL = ThisWorkbook.Sheets("Logbook")
DLigL = ShtL.Range("B" & Rows.Count).End(xlUp).Row
For Each cel In ThisWorkbook.Sheets("Suivi").Range("A3:A59").Cells
If cel.Value = "BP1-" & ligne1 Or cel.Value = "BP1-" & ligne2 Then
    DLigL = DLigL + 1
    Rows(cel.Row).Copy ShtL.Rows(DLigL)
End If
Next cel

123Mart123 · Answer

Oui, c'est exactement ça !

Merci beaucoup pour votre temps !!

gbinforme · Answer

Bonjour, 

 ça fonctionne seulement pour les cellules contenant BP1-ligne1 et BP1-ligne2
Tout à fait exact, je n'avais pas vu la subtilité.
Tu changes ainsi cette ligne :
 If cel.Value >= "BP1-" & ligne1 And cel.Value <= "BP1-" & ligne2 Then

gbinforme · Answer

Bonjour, 

En global BP1-2 est bien compris entre BP1-13 et BP1-20 :-)
Il faut comparer en découpage :
For Each cel In ThisWorkbook.Sheets("Suivi").Range("A3:A59").Cells
    If Left(cel.Value, 4) = "BP1-" And (Mid(cel.Value, 5) >= ligne1 And Mid(cel.Value, 5) <= ligne2) Then
        DLigL = DLigL + 1
        Rows(cel.Row).Copy ShtL.Rows(DLigL)
        Cells(cel.Row, 2).Resize(1, Cells(cel.Row, Columns.Count).End(xlToLeft).Column).ClearContents
    End If
Next cel
 
Cela devrait résoudre ton cas et les autres je pense.

123Mart123 · Answer

Bonjour,

Merci de votre temps, est-ce que vous auriez un petit moment pour voir ce problème svp ? Je n'arrive pas à la solution...

Merci à l'avance.

Boucle For

7 réponses

Discussions similaires