Modifier l'extraction de ligne entière extraction col spécifique

Résolu/Fermé

bitbit - 10 juil. 2015 à 12:51
bitbit - 14 juil. 2015 à 13:19

Bonjour, La communauté

Ce code extrait toutes la ligne. Peut on l'améliorer ? Au lieu de .Cells(Lig, Col).EntireRow.Copy qui extrait toute la ligne, je voudrais plutôt copier Col [Ax: Hx]

Sub Macroextraction_2()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Col = "J" ' colonne données non vides à tester'
NumLig = 1 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ?
With Sheets("1") ' feuille source'
NbrLig = .Cells(1048576, Col).End(xlUp).Row
For Lig = 1 To NbrLig 'n° de la 1ere ligne de données'
If .Cells(Lig, Col).Value = 1 Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("2").Cells(NumLig, 1).Insert Shift:=xlDown
'ici pour insérer ou .Paste pour coller'
End If
Next
End With

End Sub

A voir également:

Modifier l'extraction de ligne entière extraction col spécifique
Extraction video youtube - Guide
Modifier liste déroulante excel - Guide
Comment modifier un pdf - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide

3 réponses

Réponse 1 / 3

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
11 juil. 2015 à 08:55

Bonjour,

Sub Macroextraction_2()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
    Col = "J" ' colonne données non vides à tester'
    NumLig = 1 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ?
    With Sheets("1") ' feuille source'
        NbrLig = .Cells(1048576, Col).End(xlUp).Row
        For Lig = 1 To NbrLig 'n° de la 1ere ligne de données'
            If .Cells(Lig, Col).Value = 1 Then
                .Cells(Lig, 1).Resize(, 8).Copy
                NumLig = NumLig + 1
                Sheets("2").Cells(NumLig, 1).Insert Shift:=xlDown
                'ici pour insérer ou .Paste pour coller'
            End If
        Next Lig
    End With
End Sub

A+

bitbit
13 juil. 2015 à 15:35

Bravo Gyrus, vous avez résolu mon problème. Merci

Réponse 2 / 3

bitbit
13 juil. 2015 à 15:45

A Gyrus
Est-il possible de désélectionner la zone copiée(sur la page source, la ligne copier reste active) ceci est une question facultative pas urgente. Une fois de + M6

Réponse 3 / 3

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
13 juil. 2015 à 19:43

Bonjour,

Voici le code après adaptations :

Sub Macroextraction_2()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
    Application.ScreenUpdating = False
    Col = "J" ' colonne données non vides à tester'
    NumLig = 1 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ?
    With Sheets("1") ' feuille source'
        NbrLig = .Cells(1048576, Col).End(xlUp).Row
        For Lig = 1 To NbrLig 'n° de la 1ere ligne de données'
            If .Cells(Lig, Col).Value = 1 Then
                .Cells(Lig, 1).Resize(, 8).Copy
                NumLig = NumLig + 1
                Sheets("2").Cells(NumLig, 1).Insert Shift:=xlDown
                'ici pour insérer ou .Paste pour coller'
            End If
        Next Lig
        Application.CutCopyMode = False
    End With
    Application.ScreenUpdating = True
End Sub

A+

bitbit
14 juil. 2015 à 13:19

Waouooooooo. C'est parfait. C'est confirmé, je sais à présent que rien n'est impossible en informatque. M6 A+

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Discussions similaires

Newsletters