Bouton et macro

Bonjour,

J'ai un projet de suivi de compte professionnel et je bute sur une macro.

Je voudrais créer un bouton validation saisie qui enclencherais une macro d'incrémentation de toutes les valeurs saisies dans la colonne A dans la colonne B puis qui les effacerai de la colonne A .

Si vous avez une solution et ce afin de dormir moins bête, pourriez vous me l'expliquer.

Merci d'avance.

Bonjour et bienvenue

Merci de joindre un exemple de ton fichier.

Amicalement

Nad

Bonjour,

Tentative de réponse ?

Private Sub CommandButton1_Click()
Dim Lig As Long
Dim DerLig As Long
    DerLig = Cells(Rows.Count, 1).End(xlUp).Row
    For Lig = 1 To DerLig
        Cells(Lig, 2) = Cells(Lig, 1) + 1
    Next Lig
    Range("A1:A" & DerLig).ClearContents
End Sub

A+

Voilà Nad

Merci d'avoir pris la peine de répondre, petite précision, c'est dans toute la colone c et d que la macro doit s'appliquer

Bonjour

Place ce code dans un module et affecte-le à ton bouton

Sub Calcule()
Dim c As Range
For Each c In Range("C5:C" & Range("A65536").End(xlUp).Row)
c = c + c.Offset(0, 1)
c.Offset(0, 1).ClearContents
Next c
End Sub

Amicalement

Nad

Merci beaucoup.