Bonjour a tous
j'ai encore besoin de vos lumieres
voila j'ai un fichier de la forme suivante
A B C D E F G
5 AGF EUR
5 AGF EUR
5 AGF EUR
5 AGF EUR
12 CL USD
12 CL USD
12 CL USD
12 CL USD
20 SG GBP
20 SG GBP
20 SG GBP
20 SG GBP
Je voudrais creer un fichier qui me reprenne ces donnees, en creant un
onglet a chaque fois que la valeur de la colonne A change
Pour resume un premier onglet avec uniquement les 4 premieres valeurs
un deuxieme avec les 4 suivantes et un troisieme avec les 4 dernieres
Merci de votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
En supposant tes données en A1:Ax de "Feuil1" (à adapter)
Sub zzz() rw = 1 With Sheets("Feuil1") For i = 1 To [A65536].End(3).Row If .Cells(i, "A") = .Cells(i + 1, "A") Then rw = rw If .Cells(i, "A") <> .Cells(i + 1, "A") Then nM = .Cells(rw, "B").Value Sheets.Add.Name = nM Sheets(nM).Rows("1:" & i + 1 - rw) = .Rows(rw & ":" & i).Value rw = i + 1 End If Next End With
AV
En supposant tes données en A1:Ax de "Feuil1" (à adapter)
Sub zzz()
rw = 1
With Sheets("Feuil1")
For i = 1 To [A65536].End(3).Row
If .Cells(i, "A") = .Cells(i + 1, "A") Then rw = rw
If .Cells(i, "A") <> .Cells(i + 1, "A") Then
nM = .Cells(rw, "B").Value
Sheets.Add.Name = nM
Sheets(nM).Rows("1:" & i + 1 - rw) = .Rows(rw & ":" & i).Value
rw = i + 1
End If
Next
End With
En supposant tes données en A1:Ax de "Feuil1" (à adapter)
Sub zzz() rw = 1 With Sheets("Feuil1") For i = 1 To [A65536].End(3).Row If .Cells(i, "A") = .Cells(i + 1, "A") Then rw = rw If .Cells(i, "A") <> .Cells(i + 1, "A") Then nM = .Cells(rw, "B").Value Sheets.Add.Name = nM Sheets(nM).Rows("1:" & i + 1 - rw) = .Rows(rw & ":" & i).Value rw = i + 1 End If Next End With