Discussion :

[Didpa]

Bonjour

Voilà, certainement quelque chose de très simple pour les initiés, mais un peu plus compliqué pour moi.

J'ai un tableau dont j'aimerais récupérer les données et transférer dans une autre feuille, seulement si la tache est terminée. Boucler sur chaque ligne,10 en l’occurrence, ou jusqu’à la cellule de la colonne "A" soit vide. et ensuite supprimer la ligne du tableau ou la tâche à été ventilé.

Je n'arrive pas à boucler par rapport à mes référence. Je ne suis peut-être pas très clair donc voici le code.

Cordialement.
Merci d'avance.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Valide_Didier()
'------------------------------------Rempli la feuil Base de Donnée------------------------------------------------

jour = Worksheets("Didier").Range("A1").Value
agent = Worksheets("Didier").Range("F1").Value
e1 = Worksheets("Didier").Range("G3").Value
e2 = Worksheets("Didier").Range("L3").Value
demandeur = Worksheets("Didier").Range("A8").Value
tache = Worksheets("Didier").Range("I8").Value
reference = Worksheets("Didier").Range("K8").Value
hd = Worksheets("Didier").Range("N8").Value
hf = Worksheets("Didier").Range("O8").Value
ht = Worksheets("Didier").Range("V8").Value
tachetermine = Worksheets("Didier").Range("P8").Value
      

Sheets("Recap").Select
With Sheets("Recap")
 For i = 1 To 10 'Boucles prévues : 10
           
            'Set d = Worksheets("Didier").Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row)(2)
            Set c = .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row)(2)
    
            'If tachetermine = "OUI" Then
            c(1, 1) = jour
            c(1, 2) = agent
            c(1, 3) = e1
            c(1, 4) = e2
            c(1, 5) = demandeur.ActiveCell.Offset(i, 0)
            c(1, 6) = tache.Offset(i, 0)
            c(1, 7) = reference.Offset(i, 0)
            c(1, 8) = hd.Offset(i, 0)
            c(1, 9) = hf.Offset(i, 0)
            c(1, 10) = ht.Offset(i, 0)
            c(1, 11) = tachetermine.Offset(i, 0)
            
            'Else
            'MsgBox "La Tâche n'est pas fini."
            'End If
            
 Next
                       
End With

End Sub

[1357VBA]

Boucler sur chaque ligne,10 en l’occurrence, ou jusqu’à la cellule de la colonne "A" soit vide. et ensuite supprimer la ligne du tableau ou la tâche à été ventilé.

Je n'arrive pas à boucler par rapport à mes référence. Je ne suis peut-être pas très clair donc voici le code.

Cordialement.
Merci d'avance.

Bonjour,

Je débute en VBA et en programmation tout court, alors il y a certainement mieux mais voici une boucle que j'utilise pour effectuer une tâche tant que la dernière cellule de la colonne A n'est pas vide en partant de la seconde ligne :

Code :

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

1
2
3
4
5
6
7
 
Dim ligne As Integer: ligne = 2
 
While (ThisWorkbook.Worksheets("xxxxx").Cells(ligne, 1).Value <> "")
  ' tâche à effectuer
  ligne = ligne + 1
Wend

[Marc-L]

Bonjour,

ce genre de besoin peut déjà être facilement réalisé sans code via un filtre avancé !
Et en utilisant un filtre avancé en VBA, moins de dix lignes de code sont nécessaires et sans boucle …

En dehors des nombreux exemples dans les discussions de ce forum :

Les filtres avancés ou élaborés dans Excel …


Je me demande même si ici un simple filtre serait déjà largement suffisant et toujours sans boucle !

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …