Discussion :

[JoPro]

J'ai une page de donnée qui s'appel "Historiques" avec un tableau qui contient une liste de commandes. L'entête du tableau occupe l'espace des 2 premières rangée (row). Je veux vérifier dans la colomn F pour les cellules vides (date de reception). Si jamais la cellule est vide, copier la rangée à une autre page qui s'appel "En_Cours" qui contient la même en tête de tableau.
_______________________________________________________________________________________________

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Update()
 
Dim Lastrow As Long
For i = 3 To 300
For j = 1 To 13
If Sheets("Historiques").Cells(i, 6) = "" Then
Lastrow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("En_Cours").Cells(Lastrow, j) = Sheets("Historiques").Cells(i, j)
Else
 
End If
Next j
Next i
End Sub

______________________________________________________________________________________________________
Voici ce à quoi je suis arrivé, mais sa marche pas comme je le voulais, je ne comprend pas trop ce qui ne marche pas.

ce serais chouette si quelqu'un pouvais m'aider

Merci

[mercatog]

Une petite idée à scruter
Utiliser un filtre automatique sur la colonne et copier les lignes visibles dans la nouvelle ligne de la feuille de destination.

L'enregistreur de macro peut te donner des pistes

PS. Les lignes visibles

Code :

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

Range("A2:A1000").Specialcells(xlcelltypevisible).Entirerow

[JoPro]

@mercatog

Oui j'ai lus des choses par rapport à un filtre pour trouver les cellules vide, mais je n'ai vraiment aucune idée comment ça marche et ne trouve pas de bonne source sur le sujet.

[parmi]

Bonjour,

Tu peux t'inspirer de ceci

Code :

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

1
2
3
4
5
6
7
8
    Dim LignesHisto As Long, LigneEnCours As Long
 
    LignesHisto = Sheets("Historiques").Cells(Rows.Count, "A").End(xlUp).Row
    LigneEnCours = Sheets("En_Cours").Cells(Rows.Count, "A").End(xlUp).Row + 1
 
    Sheets("Historiques").Range("$A$1:$G$" & LignesHisto).AutoFilter Field:=6, Criteria1:="="  'Change G au besoin
    Sheets("Historiques").Range("A2:A" & LignesHisto).SpecialCells(xlCellTypeVisible).EntireRow.Copy
    Sheets("En_Cours").Range("A" & LigneEnCours).PasteSpecial xlPasteValues