Discussion :

[Poumchimie]

Bonjour,

Je suis débutant sur excel/vba et je cherche une solution à mon problème mais je ne la trouve pas
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

[ZimCri]

Bonjour,

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

Tu veux faire quoi?

[Kimy_Ire]

Somme des dixaines et unités ?

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

Il faut écrire quelque chose entre deux dixaines successives ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Poumchimie]

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

[Kimy_Ire]

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

[Poumchimie]

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