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

[Kimy_Ire]

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 :

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

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...