Bonjour au forum,
Je souhaite copier une partie des lignes dont les dates sont supérieur à aujourd'hui (remise à jour tous les jours) sur la feuille "fichier" vers feuille "tableau de bord" (à partir de I24). Plus précisément, il faudrait que ce soit le contenu de la colonne (contrôle entre la ligne2 à 65536) A, K, L de "fichier" vers respectivement I, J, et K
exemple : (ligne 08/10/2011 et supérieur à aujourd'hui uniquement de "fichier")
Feuille "fichier" vers "tableau de bord"
A/K/L (fichier) VERS I/J/K (tableau de bord)
Voici mon code
Avez-vous une idée ?
Merci d'avance
Je souhaite copier une partie des lignes dont les dates sont supérieur à aujourd'hui (remise à jour tous les jours) sur la feuille "fichier" vers feuille "tableau de bord" (à partir de I24). Plus précisément, il faudrait que ce soit le contenu de la colonne (contrôle entre la ligne2 à 65536) A, K, L de "fichier" vers respectivement I, J, et K
exemple : (ligne 08/10/2011 et supérieur à aujourd'hui uniquement de "fichier")
Feuille "fichier" vers "tableau de bord"
A/K/L (fichier) VERS I/J/K (tableau de bord)
Voici mon code
Code:
Sub Transfert_RDV()
Dim i As Long
Dim idest As Long
Dim shSource As Worksheet
Dim shCible As Worksheet
Set shSource = Sheets("fichier")
Set shCible = Sheets("tableau de bord")
shCible.Range("I24:K34").ClearContents
idest = 24
For i = 2 To shSource.Range("A65536").End(xlUp).Row
If shSource.Range("N" & i).Value = 3 And shSource.Range("Q" & i).Value >= Date Then
shCible.Range("I" & idest).Value = shSource.Range("A" & i).Value
shCible.Range("J" & idest).Value = shSource.Range("K" & i).Value
shCible.Range("K" & idest).Value = shSource.Range("L" & i).Value
idest = idest + 1
End If
Next i
End Sub
Avez-vous une idée ?
Merci d'avance