Elnono94
Messages postés13Date d'inscriptionsamedi 14 février 2004StatutMembreDernière intervention 6 décembre 2005
-
18 août 2005 à 14:51
Elnono94
Messages postés13Date d'inscriptionsamedi 14 février 2004StatutMembreDernière intervention 6 décembre 2005
-
18 août 2005 à 16:49
Bonjour,
Dans feuil1 , jaimerais
couper les lignes qui contiennent le mot INTERNA dans la colonne B Puis
les coller dans la feuil2 à
la suite de ce que jai.
Exp :
Feuil1 :
AB
CD
28/05/2005NATIONAL25
31/05/2005NATIONAL25
01/05/2005INTERNA65
03/06/2005INTERNA95
03/06/2005INTERNA95
Voici le
résultat que je voudrais obtenir :
Feuil2 :
A
BC D
01/01/2005INTERNA25
01/02/2005INTERNA55
18/02/2005INTERNA65
01/05/2005INTERNA65
03/06/2005INTERNA95
03/06/2005INTERNA95
Le problème
est que la macro suivante coupe et colle la totalité des cellules
Sub interna()
Worksheets("Feuil1").Select
Dim i As Integer, s
s = 0
For i = 1 To 100
If Range("B6" &
Range("B100").Value)(i) = "INTERNA" Then
Tuning Max
Messages postés314Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention31 août 20061 18 août 2005 à 16:30
Bon si j'ai bien compris ça doit donner quelque chose comme ça
Si tu as déjà des données dans la feuille 2, change la valeur de la variable S du nombre de ligne dont tu as besoin. Ce n'est pas très académique, mais ça marche!
Sub interna()
Dim str As String, c As Range
Dim i As Integer, s As Integer, j As Integer
s = 1
str = "INTERNA"
For i = 1 To 1000
For Each c In Worksheets("Feuil1").Range("B" & i & ":B" & i)
If c.Value = str Then
Worksheets("Feuil1").Select
Rows(i).Select
Selection.Copy
For j = s To s
ActiveSheet.Paste Destination:=Worksheets("Feuil2").Rows(j)
s = j + 1
Next j
End If
Next c
Next i
End Sub
Tuning Max
Messages postés314Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention31 août 20061 18 août 2005 à 14:59
J'ai un peu de mal à comprendre! La valeur "03/06/2005INTERNA95" par exemple est contenue dans une seule cellule ou bien s'agit il d'une concaténation de plusieurs cellules?
Elnono94
Messages postés13Date d'inscriptionsamedi 14 février 2004StatutMembreDernière intervention 6 décembre 2005 18 août 2005 à 16:49
Ok merci bcp Tuning Max je vais essayer de l'adapter en rajoutant
quelques lignes en donnant une valeur maxi et en supprimant les cellules vide qui se trouve entre les données...