Macro Incrémentation

Re : Macro Incrémentation

Bonsoir Ekoh,

La macro suivante devrait faire ce que tu veux pour les lignes allant de 1 à la dernière ligne occupée.
Si tu veux que cela commence en ligne 2 mets:

A+

Re : Macro Incrémentation

Bonsoir,

Je propose cette boucle :

Sub Test()
pas = 51 'Regler ici le Pas
j = 1
For Each X In Sheets("Fiche.Prospect").Range("A1:" & Sheets("Fiche.Prospect").Range("A65536").End(xlUp).Address)
X.Value = j
If X.Row Mod pas = 0 Then j = j + 1
Next
End Sub

Il faut ecraser les données de la colonne A ?

Re : Macro Incrémentation

Ekoh, Catrice,

J'ai encore lu trop vite moi🙄

A++ vous deux

Re : Macro Incrémentation

Re,
Bonsoir Hasco,

Ou bien le code suivant si la zone ne démarre pas en A1.

Sub Test()
pas = 51 'Regler ici le Pas
j = 1
i = 1
For Each X In Sheets("Fiche.Prospect").Range("A6:" & Sheets("Fiche.Prospect").Range("A65536").End(xlUp).Address)
X.Value = j
If i Mod pas = 0 Then j = j + 1
i = i + 1
Next
End Sub

Re : Macro Incrémentation

Bonsoir Hasco et Catrice,

Merci pour votre réactivité et l'aide que vous m'apportez ! Je vais tester vos solutions dès demain. Pour l'heure le VBA m'a assomé 😀 Je manque d'entrainement.

Ceci dit pour répondre à Catrice, cette incrémentation doit en effet ecraser les chiffres déjà présent dans les cellules. Le projet consiste à creer une BDD de fiches prospects (onglet Fiche.Prospect) en remplissant une fiche type qui est copié et collé à la suite des autres dans la BDD. Enfin le 3ieme onglet est un tableau récapitulatif où je peux analyser les données essentielles.
Par conséquent je dois pouvoir supprimer au fur et à mesure les fiches et donc réincrementer la colonne A ...

Je vous ferai part de la finalisation de ce petit fichier qui pourra pe etre utile a d'autres personnes.

Merci encore et à bientot
EkoH

Petit edit : Par curiosité j'ai testé ta macro Catrice. Elle a fonctionné du premier coup mais après avoir effacé les chiffres de la colonne A la macro ne s'execute plus ...

Re : Macro Incrémentation

Bonsoir,

Comme vu precedement, la macro fonctionne sur une zone deja remplie.
Si tu veux definir tazone, utilise ce code :

Sub Test()
Set MaZone = Sheets("Fiche.Prospect").Range("A1:A5000")
pas = 51 'Regler ici le Pas
j = 1
i = 1
For Each X In MaZone
X.Value = j
If i Mod pas = 0 Then j = j + 1
i = i + 1
Next
End Sub

Re : Macro Incrémentation

Amis du soir, bonsoir ...

Lé bon la macro Catrice, je vais me répéter encore mais : Merci 🙂

Ekoh