Arriver aux mêmes N° de semaines

Re : Arriver aux mêmes N° de semaines

Salut

Pourquoi, lors da la recup des information, tu ne crées pas une feuille avec tes 52,53 semaines, ru recuperes dans les bonnes semaines et ensuite tu traites ce que tu veux

salutations

Re : Arriver aux mêmes N° de semaines

Bonjour Wilfred et le Forum
Je suis assez mauvais en VBA et j'utilise essentiellement l'enregistreur, audelà, je n'y connais pas grand chôse et surtout en boucles.
J'ai donc importé mes données comme dans l'exemple joint, mais maintenant, il est impératif que je supprime les morceaux de colonnes des semaines inférieurs à la semaine du moment.
je pense utiliser une boucle pour tester:
Si C2 est < à G1, je supprime C2 à C4
je continue de tester C2 tant qu'il n'est pas >= à G1
Si >= alors je test
Si C7 est < à G1, je supprime C7 à C9
je continue de tester C7 tant qu'il n'est pas >= à G1
Si >= alors je test
Si C12 est < à G1, je supprime C12 à C17
je continue de tester C12 tant qu'il n'est pas >= à G1
Si >= alors j'arrête
Merci pour ton aide.
@+

Re : Arriver aux mêmes N° de semaines

Bonjour

Ci joint un classeur avec une macro qui recopie les données des cellules

A tester

JP

Re : Arriver aux mêmes N° de semaines

Bonjour JP
Excellent travail, il y a juste un petit souci, il est impératif que mes 3 zônes se retrouvent au N° de semaine indiqué en G1.
Je suis désolé d'être aussi pointilleux, mais il est certain que au minimum une des zônes sera à la semaine en cour, et également certain que se ne sera jamais la même, il est impératif de tester les 3 zônes et de les ramener en colonne C au N° de semaine qui est en G1.

Merci beaucoup pour votre aide à tous
@+

Re : Arriver aux mêmes N° de semaines

Re bonjour à tous
Après avoir analysé le code de JP, j'y ai apporté quelques modifs et le but est atteint. Voici le code modifié:

Sub recopie()
Dim i As Long
Dim nomfeuille3 As String
Dim dc1 As Integer
Dim nusema As Integer
nomfeuille3 = "Données"
Dim ligne As Long
Dim j As Integer
Dim j1 As Integer
Dim j3 As Integer
Dim nbligne As Integer
' pour toutes les semaines de la ligne 2 début colonne C
'For i = 3 To Sheets(nomfeuille3).Range("IV2").End(xlToLeft).Column
nusema = Sheets(nomfeuille3).Cells(1, 7)
' Zone 1
ligne = 2 ' ligne contenant les semaines de la zone
nbligne = 3 ' nombre de lignes dans la zone
'*******************
dc1 = Sheets(nomfeuille3).Range("IV" & ligne).End(xlToLeft).Column
For i = 3 To dc1
If nusema = Sheets(nomfeuille3).Cells(ligne, i) Then Exit For
Next i
' on deplace les colonnes
'Range(Cells(ligne, 3), Cells((ligne + nbligne - 1), dc1)).Cut Destination:=Range(Cells(ligne, i), Cells((ligne + nbligne - 1), dc1))
'recopie
If i > 3 Then ' pas de recopie si le numéro de semaine est ok
j3 = 3 'colonne C
For j = i To dc1
For j1 = ligne To ligne + nbligne - 1
Sheets(nomfeuille3).Cells(j1, j3) = Sheets(nomfeuille3).Cells(j1, j)
Next j1
j3 = j3 + 1
Next j
End If
'======================================================================
'zone 2
' recherche de la colonne contenant la semaine de la zone
'*******************
ligne = 7 ' ligne contenant les semaines de la zone
nbligne = 3 ' nombre de lignes dans la zone
'*******************
dc1 = Sheets(nomfeuille3).Range("IV" & ligne).End(xlToLeft).Column
For i = 3 To dc1
If nusema = Sheets(nomfeuille3).Cells(ligne, i) Then Exit For
Next i
' on deplace les colonnes
'Range(Cells(ligne, 3), Cells((ligne + nbligne - 1), dc1)).Cut Destination:=Range(Cells(ligne, i), Cells((ligne + nbligne - 1), dc1))
'recopie
If i > 3 Then ' pas de recopie si le numéro de semaine est ok
j3 = 3 'colonne C
For j = i To dc1
For j1 = ligne To ligne + nbligne - 1
Sheets(nomfeuille3).Cells(j1, j3) = Sheets(nomfeuille3).Cells(j1, j)
Next j1
j3 = j3 + 1
Next j
End If

'zone 3
' recherche de la colonne contenant la semaine de la zone
'*******************
ligne = 12 ' ligne contenant les semaines de la zone
nbligne = 6 ' nombre de lignes dans la zone
'*******************
dc1 = Sheets(nomfeuille3).Range("IV" & ligne).End(xlToLeft).Column
For i = 3 To dc1
If nusema = Sheets(nomfeuille3).Cells(ligne, i) Then Exit For
Next i

'recopie
If i > 3 Then ' pas de recopie si le numéro de semaine est ok
j3 = 3 'colonne C
For j = i To dc1
For j1 = ligne To ligne + nbligne - 1
Sheets(nomfeuille3).Cells(j1, j3) = Sheets(nomfeuille3).Cells(j1, j)
Next j1
j3 = j3 + 1
Next j
End If

End Sub

Merci à tous pour votre précieuse aide
@+