copier des lignes avec condition sur une autre feuille

  • Initiateur de la discussion Initiateur de la discussion domik
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

domik

XLDnaute Nouveau
Bonjour,

j'ai trouvé ce bout de code sur un forum ...peut être ici ?

ce code fonctionne très bien, il permet de copier des lignes avec condition sur une autre feuille.
Dans mon cas si l'on trouve des cellules =50 ds la colonne B on vient copier une partie des lignes qui respectent cette condition dans une autre feuille

Code:
Private Sub CommandButton1_Click()
Dim DerLig  As Long 'Déclaration de variables
Dim Cel As Range 'idem
Application.ScreenUpdating = False 'masquage du raffraichissement de l'écran (gain de temps)
'on va travailler sur la feuille " Feuil2"
With Sheets("Feuil2")
    'Pour chaque cellule de B2 à la dernière cellule remplie en B de la feuille 1
    For Each Cel In Range("B2:B" & [B65000].End(xlUp).Row)
        'Si la valeur de la cellule est "50"
        If Cel.Value = 50 Then
            'calcul de la première ligne vide de la feuille " Feuil2"
            DerLig = .[B65000].End(xlUp).Row + 1
            'on copie de la cellule Ax à Mx, x étant le numéro de ligne de Cel
            'on copie dans la première cellule vide de la feuille " Feuil2" (.Cells(Derlig, 1))
            Range(Cells(Cel.Row, 1), Cells(Cel.Row, 13)).Copy .Cells(DerLig, 1)
        End If
    'prochaine cellule
    Next Cel
End With
End Sub

Mon probleme est que certaines cellules qui sont reportées contiennent des formules.
je souhaiterais modifier ce code de façon que les cellules soient transferées vers l'autre feuille sous forme de collage spécial valeur.

merci
 
Re : copier des lignes avec condition sur une autre feuille

Merci Jean-Marcel, Rebonsoir à tous,

Ta réponse me convient parfaitement. Tout fonctionne exactement comme je le souhaitais.😛

Voyant =50 et non ="50" Il fallait ="lundi" et non =lundi.
D'où l'importance des "" 🙄

Merci bien pour ton intervention et de ton aide.

Très bonne soirée.

CG2000
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour