Discussion :

[LOLGAMER]

Bonjour à tous,

je suis débutant en VBA, je vais essayer de vous expliquer mon problème,

j'ai besoin d'une macro en vba pour excel qui :

- (scan chaque lignes jusqu'à la 175ème de la colonne K) et SI elle trouve une case vide dans la colonne K, elle doit copier toute la ligne vers une nouvelle feuille (sheet), ensuite le script doit continuer son scan, jusqu'à trouver une prochaine case vide, ou il devra de nouveau sélectionner toute la ligne et la coller à la suite dans la nouvelle feuille.

je vais vous donner quelques exemples qui ne marche pas chez moi, mais peut être que ce la vous aidera à mieux comprendre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub extractvisiteurs()
 
Dim ligne As Integer
ligne = 1
Dim sourcecell As String
 
Sheets(Visiteurs).Select
    Range("K2").Select
    sourcecell = ActiveCell.Address
    If (ligne < 175) Then
                   If IsEmpty(sourcecell) Then
                       ActiveCell.EntireRow.Select
                       Selection.Copy
                       Sheets("RESTE").Select
                       Range("B2").Select
                       Cells(Rows.Count, 1).End(xlUp)(2).Select
                       ActiveSheet.Paste
                    End If
                Sheets(Visiteurs).Select
                Range(sourcecell).Select
                ActiveCell.Offset(0, 1).Select
                sourcecell = ActiveCell.Value
                ligne = ligne + 1
        End If
end sub

OU encore une autre exmple que j'ai testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub extractvisiteurs()
Dim cell As Range
Dim lastline As Integer
lastline = Sheets("RESTE").Range("A65536").End(xlUp).Row + 1
Sheets("Visiteurs").Select
For Each cell In Range("K2:K175")
 
                   If cellvalue = "" Then
 Sheets("Visiteurs").Cells(4, 1).EntireRow.Copy
 Sheets("RESTE").Select
 Sheets("RESTE").Cells(lastline, 1).EntireRow.Select
 ActiveSheet.Paste
                Else
End If
Next cell
End Sub

J'ai aussi essayé ce code qui scanne toute la colonne K mais qui ne copie colle rien dans la feuille RESTE...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub extractvisiteurs()
Dim sourcecell As Integer
Range("K2").Select
sourcecell = ActiveCell.Value
Celloffset = ActiveCell.Offset
Dim cell As Range
Dim lastline As Integer
lastline = Sheets("RESTE").Range("A65536").End(xlUp).Row + 1
Sheets("Visiteurs").Select
For Each cell In Range("K2:K175")
 
                   If sourcecell = 0 Then
 Sheets("Visiteurs").Cells(sourcecell).EntireRow.Copy
 Sheets("RESTE").Select
 Sheets("RESTE").Cells(lastline, 1).EntireRow.Select
 ActiveSheet.Paste
 Range(sourcecell).Select
 ActiveCell.Offset(ActiveCell.Offset, 1).Select
 sourcecell = ActiveCell.Value
Else
cell.Offset(sourcecell, 0).Select
ActiveCell.Offset(1, 0).Select
Celloffset = ActiveCell.Offset
End If
Next cell
End Sub

aucun de ces codes ne marche bien
SVP aidez moi je suis débutant et je galère depuis des jours sur ce truc :'( !

Merci d'avance ! @ bientôt !

[Philippe Tulliez]

Bonjour,
Le plus simple est l'utilisation de la méthode AdvancedFilter de l'objet Range soit l'outil Filtre avancé d'excel. Cette méthode permet ainsi d'exporter toutes les lignes d'une liste de données qui répondent aux critères en une seule ligne de code (hormis la déclaration et l'affectation des variables).
Dans ton cas et en imaginant qu'il y ait 5 colonnes dans cette liste et que les premières données commencent en ligne 2 avec les titres en ligne 1
La formule à placer dans les critères sera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.VIDE($A2:$E2)>0

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NBVAL($A2:$E2)<>5

Pour en savoir plus Les filtres avancés ou élaborés dans Excel

[vinc_bilb]

Bonsoir,

Pas trop le temps de regarder en détail votre code, mais une fonction de filtre va vous rendre la vie bien plus simple

Vous pouvez regarder sous http://philippetulliez.developpez.co...dvancedfilter/

Voir aussi pour progresser avec un bout de script comme (non testé, à adpater)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Test_AutoFilter 
 
    Dim DataRng As Range, Cl As Range
 
 
'Initialisation
    Set DataRng = ThisWorkbook.Worksheets(1).Range("A1").CurrentRegion  'A adapter
 
'On Filtre d'abord sur la colonne 11 (à adapter), les valeurs vides
    With DataRng
 
        If .Parent.FilterMode = True Then .AutoFilter
         .AutoFilter Field:=11, Criteria1:="="
 
    End With
 
    Set DataRng = DataRng..Cells.SpecialCells(xlVisible)
    Debug.Print DataRng.AddressLocal
 
End Sub

[LOLGAMER]

excellente idée ! je n'y avais même pas pensé au filtre, et ensuite je copierais mon résultats dans la nouvelle feuille xls.

je vais tester tout ca et je vous tiens au courant demain merci déjà pour votre aide.

Cordialement,

[LOLGAMER]

Merci encore pour cette idée avec les filtres, ca fonctionne niquel, j'ai pu me renseigner sur les filtres en vba et régler mon problème.

je marque en résolu ! merci!

Cordialement,