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.
Invité
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.
Invité
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+