Si la colonne contient nombre, décaler plage à droite VBA
K
Bonjour à tous,
J'ai un document à mettre en page un peu à la manière de ce post-ci https://forum.excel-pratique.com/excel/si-cellule-non-vide-decalage-d-une-partie-de-la-ligne-t88920.html mais cette fois si, la ligne se décale vers la gauche et je voudrais la replacer sur la droite.
J'ai donc tenté d'écrire cette petite formule (en prenant largement exemple sur le post ci dessus), cependant il ne reconnait pas la fonction.. Je vous joins un fichier exemple ainsi que le bout de code que j'utilise.
Cordialement.
Dim DL As Integer
Dim U As Integer
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row
For U = 2 To DL
If IsNumeric(Cells(U, 3)) Then Cells(U, 3).InsertShift xlShiftToRight
Next U m
Sub Macro1()
Dim DL As Integer
Dim U As Integer
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row
For U = 2 To DL
If IsNumeric(Cells(U, 3)) And Cells(U, 3) <> "" Then Cells(U, 3).Insert Shift:=xlShiftToRight
Next U
End SubK
Salut Melch,
Merci pour la réponse rapide, ça m'a l'air de fonctionner sur le document. J'ai compris les soucis de ma formule.
Merci encore et à plus !