Macro mise en page

bonjour,

je voudrais trouvé une macro pour faire une petite mise en page.

Dans mon fichier l'information qui est en B4, je voudrais la déplacer en C3, celle en B5 la déplacer en C4, celle en B6 en C5.

Ensuite supprimer les espaces, faire le même déplacement pour les produits suivants.

0cer.xlsx (16.38 Ko)

Bonjour Benetop91

La solution pour le code à modifier par la suite

image

sans que la feuille entière ne soit protégée

Merci BrunoM45,

Le petit souci que je rencontre c'est comment la faire appliqué à toutes les lignes que j'ajoute ?

En PJ ce que j'ai fais en macro.

1cer.xlsm (21.47 Ko)

Re,

Effectivement dans ce cas, c'est un peu plus complexe que prévu

Voici un code qui fonctionne

Sub MacroCERv2()
  Dim dLig As Long, nLig As Long, Lig As Long
  Dim Flg As Boolean
  ' Nouvelle ligne = Prendre la dernière ligne remplie colonne C + 1
  nLig = Range("C" & Rows.Count).End(xlUp).Row + 1
  ' Dernière lignre remplie de la colonne A
  dLig = Range("B" & Rows.Count).End(xlUp).Row
  ' Pour la prelière ligne uniquement
  Flg = False
  ' Parcourir chaque ligne
  For Lig = nLig To dLig Step 5
    Range("B" & nLig).Value = Range("B" & Lig).Value
    Range("C" & nLig).Value = Range("B" & Lig + 1).Value
    Range("D" & nLig).Value = Range("B" & Lig + 2).Value
    Range("E" & nLig).Value = Range("B" & Lig + 3).Value
    Range("F" & nLig).Value = Range("B" & Lig + 4).Value
    ' Effacer les lignes inscrites
    If Flg = False Then
      Flg = True
      Range("B" & Lig + 1 & ":B" & Lig + 4).ClearContents
    Else
      Range("B" & Lig & ":B" & Lig + 4).ClearContents
    End If
    ' Incrémenter la nouvelle ligne
    nLig = nLig + 1
  Next Lig
End Sub

A+

Rechercher des sujets similaires à "macro mise page"