copie selon criteres sous excel

Marsh Posté le 12-12-2007 à 23:40:09

Bonjour,

pour mieux comprendre regardons ce qui suit

MAT NOM PRENOM ENTREE SORTIE
001 BADAINE AMADOU 07:17 17:17
07:17 17:17
07:17 17:17
07:17 17:17
002 FAA ALY 07:17 17:17
07:17 17:17
07:17 17:17
07:17 17:17
003 BADAI AADOU 07:17 17:17
07:17 17:17
07:17 17:17
07:17 17:17
001 BADAINE AMADOU 07:17 17:17
07:17 17:17
07:17 17:17
07:17 17:17

je souhaite avoir un code qui me permet copier automatique chaque ligne sur les ligne vides et qui change la valeur à copier a chaque fois que elle rencontre de nouvelle données
merci

Reply

Marsh Posté le 12-12-2007 à 23:40:09

Reply

Marsh Posté le 13-12-2007 à 09:42:19

Le moins qu'on puisse dire c'est que ton exemple n'explique rien du tout.
C'est quoi ta « valeur à copier » ?
C'est quoi pour toi une « nouvelle donnée » (et où) ?

Reply

Marsh Posté le 13-12-2007 à 10:35:49

MAT NOM PRENOM DATE ENTREE SORTIE
001 BADAINE AMADOU 01/12/07 07:17 17:17
02/12/07 07:17 17:17
03/12/07 07:17 17:17
04/12/07 07:17 17:17
002 FAA ALY 01/12/07 07:17 17:17
02/12/07 07:17 17:17
03/12/07 07:17 17:17
04/12/07 07:17 17:17
il s'agit de copier les valeurs Mat Nom et prenom devant chaque date c'est dire, séléctionner (001 BADAINE AMADOU et 002 FAA ALY )

ps : j arrive pas à coller une feuille excel sur le forum

merci

Reply

Marsh Posté le 25-12-2007 à 13:41:53

Salut Tegu

Merci d'avoir repondu. Mais mon probleme reste toujours intact. j'esper que cette fois c'est plus claire merci.

Reply

Marsh Posté le 25-12-2007 à 14:19:39

http://forum.hardware.fr/hfr/Progr [...] 0261_1.htm

Reply

Marsh Posté le 25-12-2007 à 20:32:44

Soir Bon
D'après ce que j'ai cru comprendre, sinon à adapter

Option Explicit

Sub Tst()
Dim iRow As Long, i As Long

iRow = Range("D65536" ).End(xlUp).Row

For i = 2 To iRow
If Application.CountA(Range("A" & i), Range("C" & i)) = 0 Then
Range("A" & (i - 1) & ":C" & (i - 1)).Copy Range("A" & i)
End If
Next i
End Sub

Message édité par kiki29 le 25-12-2007 à 20:46:09

Reply

copie selon criteres sous excel

Sujets relatifs:

Leave a Replay