Création de feuilles sous condition

Le
Gildo
Bonjour,

Petit casse-tête :
J’ai une feuille avec des colonnes de A à AC.
Je dois créer autant de feuilles que de colonnes ce de C à AC en reprenant
toujours la colonne B
Exemple : Feuil 2 B et C , Feuil 3 B et D et ainsi de suite .
De plus je ne dois transférer que les lignes des colonnes de C a AC
renseignées par un ‘1 ‘
Voyez-vous une solution ?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4248511
Bonjour.
Tu donnes peu d'indication sur la position du "1" et de la position des
colonnes sur les feuilles. J'ai considéré que le "1" était sur la ligne 1.
Essaie :

Sub test()
Dim ws As Worksheet
Set ws = Sheets(1)
For i = 3 To Range("AC1").Column
If ws.Cells(1, i) = 1 Then
Sheets.Add after:=Sheets(Sheets.Count)
ws.Cells(1, 2).EntireColumn.Copy Cells(1, 1)
ws.Cells(1, i).EntireColumn.Copy Cells(1, 2)
End If
Next i
End Sub

Cordialement.
Daniel
"Gildo"
Bonjour,

Petit casse-tête :
J'ai une feuille avec des colonnes de A à AC.
Je dois créer autant de feuilles que de colonnes ce de C à AC en reprenant
toujours la colonne B
Exemple : Feuil 2 B et C , Feuil 3 B et D et ainsi de suite .
De plus je ne dois transférer que les lignes des colonnes de C a AC
renseignées par un '1 '
Voyez-vous une solution ?



Elliac
Le #4248401
Bonjour,

Sub Macro1()
For cpt = 3 To 29
On Error Resume Next
Worksheets("Feuil1").ShowAllData
Range("a1").AutoFilter Field:=cpt, Criteria1:="1"
Sheets.Add
ActiveSheet.Name = cpt
Sheets("Feuil1").Select
Range(Columns(2).Address & "," & Columns(cpt).Address).Copy
Sheets(ActiveSheet.Index - 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Sheets("Feuil1").Select
Next
End Sub

Camille

"Gildo" wrote:

Bonjour,

Petit casse-tête :
J’ai une feuille avec des colonnes de A à AC.
Je dois créer autant de feuilles que de colonnes ce de C à AC en reprenant
toujours la colonne B
Exemple : Feuil 2 B et C , Feuil 3 B et D et ainsi de suite .
De plus je ne dois transférer que les lignes des colonnes de C a AC
renseignées par un ‘1 ‘
Voyez-vous une solution ?



Gildo
Le #4324241
Bravo ça marche impec ...
Merci à vous deux pour votre aide


Bonjour,

Sub Macro1()
For cpt = 3 To 29
On Error Resume Next
Worksheets("Feuil1").ShowAllData
Range("a1").AutoFilter Field:=cpt, Criteria1:="1"
Sheets.Add
ActiveSheet.Name = cpt
Sheets("Feuil1").Select
Range(Columns(2).Address & "," & Columns(cpt).Address).Copy
Sheets(ActiveSheet.Index - 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Sheets("Feuil1").Select
Next
End Sub

Camille

"Gildo" wrote:

Bonjour,

Petit casse-tête :
J’ai une feuille avec des colonnes de A à AC.
Je dois créer autant de feuilles que de colonnes ce de C à AC en reprenant
toujours la colonne B
Exemple : Feuil 2 B et C , Feuil 3 B et D et ainsi de suite .
De plus je ne dois transférer que les lignes des colonnes de C a AC
renseignées par un ‘1 ‘
Voyez-vous une solution ?





Publicité
Poster une réponse
Anonyme