[VBA-E] code pour incrémentation

Bonjour,

je souhaiterais automatiser une incrémentation un peu particulière. ma première cellule contient par exemple a125100a et la seconde est vide. Ma troisième doit être incrémenté de 1 par rapport à la première (a125101a). la quatrième à nouveau vide, etc. Donc il faudrait que je n'ai qu'a rentré la première cellule et hop... fini.

Je suis débutant et un peu perdu...
Quelqu'un aurait-il l'amabilité de me mettre sur la voie ?

Merci d'avance

Une boucle For dans laquelle tu incrémentes de 1 mais où tu fais ton offset de cellule avec ton index * 2.
Pour le nombre, tu concatènes: a & le nombre & a.

si A1 contient a125100a, dans C1, tu mets

Code:

---

=GAUCHE(A1;1) & CNUM(DROITE(GAUCHE(A1;NBCAR(A1)-1);NBCAR(GAUCHE(A1;NBCAR(A1)-1))-1))+1 &DROITE(A1;1)

---

Pour recopier à droite, tu sélectionnes A1 : D1 et tu recopies.
Il y a peut être plus simple avec remplace mais ne sachant pas si le 1er caractère est toujours le même, Gauche et Droite pallient le problème
A+

Citation:

---

Envoyé par tarmin

Je suis débutant et un peu perdu...

---

Ca fait plus d'un an que tu viens sur ce forum et tu es encore débutant...???

Hey malheureusement oui (Bien que savoir à quelle moment on n'est plus débutant n'est pas vraiment évident...) On peut faire tellement de chose avec le VBA que je me considère encore novice...

Citation:

---

Envoyé par AlainTech

Une boucle For dans laquelle tu incrémentes de 1 mais où tu fais ton offset de cellule avec ton index * 2.
Pour le nombre, tu concatènes: a & le nombre & a.

---

Tout cela m'a l'air fort intéressant ! Malheureusement c'est là que je me rend compte que je suis encore débutant car je ne parvient pas à traduire cela en code...

Si tu pouvais être un peu plus "concret" ce serait fort sympathique.

traduction par un gérontologue

for a=1 to z
offset=a*2
next a

Un autre gérontologue a compris ça
En supposant que ton premier nombre se trouve dans la colonne A...
Quant au N° de ligne, tu trouveras tout seul ? :mouarf:

Code:

---

1 2 3 4 5 6

LeCar = Left(Cells(NoLigne, 1), 1) 'On mémorise le caractère LeNombre = Replace(Cells(NoLigne, 1), LeCar, "") 'on sort le nombre à incrémenter For NoCol = 3 To nbcolonnes Step 2 'on va de colonne en colonne LeNombre = LeNombre + 1 Cells(NoLigne, NoCol) = LeCar & LeNombre & LeCar Next

---

Mais le débutant va nous départager :mouarf:

Petite mise en application de ce que je proposais.

Code:

---

1 2 3 4 5 6 7 8

Dim i As Integer Dim iMax As Integer Dim iStart As Long iMax = 20 iStart = Val(Mid([A1], 2, 6)) For i = 1 To iMax Cells(i * 2 + 1, 1) = "a" & iStart + i & "a" Next i

---

Je considère que je ne rends pas service en donnant du code tout mâché...

Mais la chair est faible :dehors:

perso je trouve ça plus clair que:
"Une boucle For dans laquelle tu incrémentes de 1 mais où tu fais ton offset de cellule avec ton index * 2." (sic)

mais c'est peut être moins "serviable" ?

(hum c'est pour rire)

Je trouve aussi... Comme ça au moins j'ai pu résoudre mon problème...

Merci à tous !