[EXCEL-2007] Recherche solution à mon problème

Bonjour,

Je suis débutant sur excel/vba et je cherche une solution à mon problème mais je ne la trouve pas :cry:
Je cherche quelque chose qui peut réaliser ma solution automatiquement.
Exemple:
Cellule A1 = 1
Cellule A11 = 2
Cellule A21 = 3
Cellule A31 = 4
...

Si vous avez une solution =)

Merci d'avance
Poum

Bonjour,

Eu... C'est quoi le problème au juste?

Tu veux faire quoi?

Somme des dixaines et unités ?

Ou plutot a chaque augmentation de dixaine "+1" ?

Il faut écrire quelque chose entre deux dixaines successives ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub essai() Dim n As Integer Dim i As Integer   n = 50   For i = 0 To n Range("A1").Offset(i * 10, 0) = i + 1 Next i   End Sub

---

Tu n'as plus qu'à modifier n à ta guise.

je vous remercie pour l'aide !!!! :)

Est qu'il est possible de rajouter du texte et de changer la couleur en même temps ?

Merci d'avance!

Amicalement
Poum

Tu ne veux/peux pas être plus explicite dans l'explication de tes problèmes ? :whistle:

Désoler, je pensais être explicite (selon moi) mais non

Par rapport à ce que tu m'as envoyé (code), je souhaiterai mettre du texte dans la cellule contenant mon 1 puis 2 puis 3 ...

Exemple :
Cellule A1 = Page 1
Cellule A11 = Page 2
Cellule A21 = Page 3
Cellule A31 = Page 4
...

Je souhaiterai aussi changer la couleur de l'écriture si possible (blanc de préférence)

Merci d'avance

Tu te dis débutant mais tu n'as surtout envie de ne rien faire... Tu ne te creuse même pas la tête pour savoir comment mon code marche et changer ce dont tu as besoin...

Pour changer les 1, 2, 3, 4 etc... tu as juste à ajouter "Page " devant les chiffres déjà placés... Ca s'appelle concaténer des caractères.
Je tappe "opérateur de concaténation VBA" dans google tu tombes sur cette page : http://books.google.fr/books?id=hp_q...ed=0CDoQ6AEwAg.

Ensuite tu demandes de changer la couleur. Je tappe "couleur de texte vba" et je tombe sur cette page cours et tutoriels Excel : http://excel.developpez.com/cours/

Quand il s'agit d'aider des personnes pour des choses complexes sur lesquelles ils bloquent APRES avoir cherché, je suis le premier à passer du temps pour eux.

J'espère qu'à l'avenir tu chercheras un minimum au lieu d'attendre qu'on te mâche le travail...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

'Déclaration du nom de la sub (= nom de ta macro) Sub essai() 'Déclaration de tes variables Dim n As Integer Dim i As Integer   'On set n à 50 n = 50   'On boucle de i = 0 à i = n (soit jusqu'à 50) 'Une boucle est la répétition des lignes de codes entre "For" et "Next" For i = 0 To n 'Sur la cellule A1 avec un offset de i*10 lignes soit 0, 10, 20, 30, etc... jusqu'à 500, c'est-à-dire sur les cellules A1, A11, A21, A31, etc... A501 '... on place "Page " avec dernière i+1 : soit "Page 1", "Page 2", "Page 3", etc... Range("A1").Offset(i * 10, 0) = "Page " & i + 1 'Et on set la couleur du texte à blanc. Range("A1").Offset(i * 10, 0).Font.Color = RGB(255, 255, 255) Next i   'Fin de la sub End Sub

---

Bref, bon apprentissage...