Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 verifier 2 cellules et supprimer une ligne/ copier dernier ligne avec condition

darbouka33

XLDnaute Nouveau
Bonjour forum
puisque je suis nouveau sur vba, jais 2 petit problemes , jais 3 feuilles ,je veux un macro qui verifier 2 cellules si sont les memes supprimes la ligne de la 1er cellule
aussi un macro qui verifie tous les lignes d'un tableau si ila ya la condition copier les lignes sur un 2eme tableau ,(le problem toute fois une nouvelle ligne s'ajoute ila recopier toutes les lignes)
 

Pièces jointes

  • Book1.xlsx
    16.7 KB · Affichages: 5

darbouka33

XLDnaute Nouveau
un petit essaye
VB:
* historique analyse
Dim wk_fichier As Workbook
Dim ws_panne As Worksheet
Dim ws_analyse As Worksheet
Dim lstrw_histopanne, lstrw_histoanalyse As Long
Dim ligne_coller As Long
   'definir les variables fichiers et onglets
Set wk_fichier = ActiveWorkbook
Set ws_panne = wk_fichier.Worksheets(4)
Set ws_analyse = wk_fichier.Worksheets(5)
   'identifier dernière ligne colone A sheets("historique de panne")
lstrw_histopanne = ws_panne.Cells(Rows.Count, 1).End(xlUp).Row
   'commencer la boucle sur les lignes
For i = 7 To lstrw_histopanne
       'identifier le statut et si actif,copier coller en sheets("historique analyse")
    If ws_panne.Cells(i, 8) = "oui" Then
           'identifier derniere ligne colonne A sheets("historique analyse")
        ' lstrw_histoanalyse = ws_analyse.Cells(Rows.Count, 1).End(xlUp).Row
          lstrw_histoanalyse = ws_analyse.Cells(i + 1, 1).End(xlUp).Row
         ligne_coller = lstrw_histoanalyse + 1
           'copier coller de la cellule
        ws_analyse.Cells(ligne_coller, 1) = ws_panne.Cells(i, 5)

    End If
Next

End Sub

* effacer la ligne entière
Worksheets("I.prod").Select
'effacer toute la ligne
For i = 8 To lstrw
If ActiveCell.Value <> " " Then
ActiveCell.EntireRow.Delete

End If
Next i
End Sub
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…