Bonjour à tous et merci aux futures lecteurs de mon post.
je désirerais créer une macro sous excel et étant débutant j'ai un peu de mal.
Je vous expose mon probleme.
dans une feuille admétons qu'il y est une plage de cellule allant de V15 à CM15
cette plage de cellule est décomposée en 10 groupes les cellule de V15 à AB15 vont ensemble et ainsi de suite il y a donc 10 groupes de 7 cellules.
le but de ma macro serait de pouvoir décaler ces groupes de cellules en fonction d'un choix.
Par exemple si je décide de supprimer le 4eme groupe (AQ15 : AW15), les 3 groupes précédents viendraient se décaler vers la droite donc le groupe 3 viendrait à la place du 4, le 2 à la place du 3, le 1 à la place du 2 et à la place du 1 il n'y aurait rien.
j'ai éssayé réaliser une macro à l'aide de if et do while mais comme je vous l'ai dit je suis débutant.
je vous copie colle ma macro qui ne fonctionne pas.
Sub test1()
'
' test1 Macro
' Macro enregistrée le 07/07/2010 par stagiaire.methodes
' Declaration
Set resulges = Workbooks("GESTION METHODES1.XLS").Worksheets("gestion")
Set resultest = Workbooks("GESTION METHODES1.XLS").Worksheets("Feuil2")
'
'
'
ligt = resulges.Cells(82, "d").Value + 12 ligt est une position variable de la ligne contenant les info à décaler, dans mon exemple expliqué plus haut la ligne se situe en 15
col1 = 84
col2 = 91
col3 = 26
col4 = 1
col5 = 91
Do While col3 > 17
If resulges.Cells(84, col3).Value = 1 Then
Do While col4 < (col5 - 19)
resultest.Cells(ligt, col2).Value = resultest.Cells(ligt, col1).Value
col1 = col1 - 1
col2 = col2 - 1
'col3 = col3 - 1
col4 = col4 + 1
Loop
End If
col3 = col3 - 1
Loop
End Sub
merci d'avance pour votre aide.
amicalement
je désirerais créer une macro sous excel et étant débutant j'ai un peu de mal.
Je vous expose mon probleme.
dans une feuille admétons qu'il y est une plage de cellule allant de V15 à CM15
cette plage de cellule est décomposée en 10 groupes les cellule de V15 à AB15 vont ensemble et ainsi de suite il y a donc 10 groupes de 7 cellules.
le but de ma macro serait de pouvoir décaler ces groupes de cellules en fonction d'un choix.
Par exemple si je décide de supprimer le 4eme groupe (AQ15 : AW15), les 3 groupes précédents viendraient se décaler vers la droite donc le groupe 3 viendrait à la place du 4, le 2 à la place du 3, le 1 à la place du 2 et à la place du 1 il n'y aurait rien.
j'ai éssayé réaliser une macro à l'aide de if et do while mais comme je vous l'ai dit je suis débutant.
je vous copie colle ma macro qui ne fonctionne pas.
Sub test1()
'
' test1 Macro
' Macro enregistrée le 07/07/2010 par stagiaire.methodes
' Declaration
Set resulges = Workbooks("GESTION METHODES1.XLS").Worksheets("gestion")
Set resultest = Workbooks("GESTION METHODES1.XLS").Worksheets("Feuil2")
'
'
'
ligt = resulges.Cells(82, "d").Value + 12 ligt est une position variable de la ligne contenant les info à décaler, dans mon exemple expliqué plus haut la ligne se situe en 15
col1 = 84
col2 = 91
col3 = 26
col4 = 1
col5 = 91
Do While col3 > 17
If resulges.Cells(84, col3).Value = 1 Then
Do While col4 < (col5 - 19)
resultest.Cells(ligt, col2).Value = resultest.Cells(ligt, col1).Value
col1 = col1 - 1
col2 = col2 - 1
'col3 = col3 - 1
col4 = col4 + 1
Loop
End If
col3 = col3 - 1
Loop
End Sub
merci d'avance pour votre aide.
amicalement
