SaraBilmem
XLDnaute Nouveau
Re-Bonjour,
Me voilà de retour avec un autre problème (l'autre n'est toujours pas réglé en fait..mais bon).
Voici mon soucis: (les données de mon fichier sont de longueur variable, c'est pourquoi j'utilise vba)
Si une condition est remplie pour une cellule de la colonne D(= "super" ou ="moyen") alors j'aimerais coller la ligne correspondant à cette cellule de cette feuille (cellules allant de A3:C3 pour D3, A4:C4 pour D4, etc) dans une autre feuille (une pour super, une pour moyen)
Par exemple:
Donc si D4= "Super" Alors A4:C4 de la Feuille 1 va se coller dans la première ligne (de A à C) vide la feuille 2.
Donc si D5= "Super" Alors A5:C5 de la Feuille 1 va se coller dans la première ligne (de A à C) vide la feuille 2. etc
Mais si D4= "Moyen" Alors A4:C4 de la Feuille 1 va se coller dans la première ligne (de A à C) vide la feuille 3.
Pourriez-vous m'aider? Voici un début de code, mes problèmes sont multiples, notamment le fait que je n'arrive qu'à coller un cellule et elles ne sont pas à la suite mais avec 3-4 lignes d'écart. Par ailleurs, vu la mise en page de mon fichier, il faudrait que ce processus de collage ne commence qu'à la ligne 3.
PS: Je ne suis pas douée en VBA, ne me jugez point🙂 et je sens qu'à 1h du mat j'ai mis beaucoup trop d'info🙂
Me voilà de retour avec un autre problème (l'autre n'est toujours pas réglé en fait..mais bon).
Voici mon soucis: (les données de mon fichier sont de longueur variable, c'est pourquoi j'utilise vba)
Si une condition est remplie pour une cellule de la colonne D(= "super" ou ="moyen") alors j'aimerais coller la ligne correspondant à cette cellule de cette feuille (cellules allant de A3:C3 pour D3, A4:C4 pour D4, etc) dans une autre feuille (une pour super, une pour moyen)
Par exemple:
Donc si D4= "Super" Alors A4:C4 de la Feuille 1 va se coller dans la première ligne (de A à C) vide la feuille 2.
Donc si D5= "Super" Alors A5:C5 de la Feuille 1 va se coller dans la première ligne (de A à C) vide la feuille 2. etc
Mais si D4= "Moyen" Alors A4:C4 de la Feuille 1 va se coller dans la première ligne (de A à C) vide la feuille 3.
Pourriez-vous m'aider? Voici un début de code, mes problèmes sont multiples, notamment le fait que je n'arrive qu'à coller un cellule et elles ne sont pas à la suite mais avec 3-4 lignes d'écart. Par ailleurs, vu la mise en page de mon fichier, il faudrait que ce processus de collage ne commence qu'à la ligne 3.
PS: Je ne suis pas douée en VBA, ne me jugez point🙂 et je sens qu'à 1h du mat j'ai mis beaucoup trop d'info🙂
Code:
Sub TrucMuche()
Dim j As Integer
Dim EndR As Integer
EndR = Range("A65536").End(xlUp).Row + 1
For j = 1 To Range("A65536").End(xlUp).Row
j = j + 1
If ThisWorkbook.Sheets("Feuille1").Range("D" & j) = "Super" Then
ThisWorkbook.Sheets("Feuille2").Range("A" & j & ":" & "C" & j) = ThisWorkbook.Sheets("Feuille1").Range("A" & j & ":" & "C" & j)
End If
Next j
End Sub
Dernière édition: