Revenir à la première cellule

Bonjour à tous,

Je décale des données en ligne selon les données trouvées en colonne 1 mais quand je passe à la ligne suivante, impossible de trouver la syntaxe pour revenir à la première cellule de cette même ligne !

ça doit être simple, mais je m'y perds !

Pouvez-vous me venir en aide SVP ?

Merci

@+

Robert

Bonjour

Pas sur d'avoir bien saisi

Remplaces ta macro par celle-ci

Option Explicit

Sub Macro3()
Dim J As Long

  For J = 1 To Range("A" & Rows.Count).End(xlUp).Row
    If Range("A" & J) > 1 Then
      Range("A" & J).Resize(1, Range("A" & J) - 1).Insert shift:=xlShiftToRight
    End If
  Next J
End Sub

Bonjour Banzai64,

Merci de me répondre aussi vite.

C'est exactement le résultat escompté, mais je risque de mourir bête, car je ne comprends rien au code

Si vous pouviez m'expliquer, ça serait parfais car malgré son excellent fonctionnement, je ne comprends pas, même en pas à pas.

@+

Robert

Bonjour

Très simple

Option Explicit

Sub Macro3()
Dim J As Long

  For J = 1 To Range("A" & Rows.Count).End(xlUp).Row      ' Pour toutes les lignes
    ' Si le nombre en colonne A est supérieur à 1
    If Range("A" & J) > 1 Then
     ' On doit décaler vers la droite la cellule A de ce (nombre - 1) colonnes
      ' On "sélectionne" (nombre -1) de cellule (Range("A" & J).Resize(1, Range("A" & J) - 1))
      ' que l'on décale (Insert)  vers la droite
      ' C'set ce que tu fais manuellement
      Range("A" & J).Resize(1, Range("A" & J) - 1).Insert shift:=xlShiftToRight
    End If
  Next J
End Sub

Merci beaucoup

C'est très claire

@+

Robert