Boucle sur décalage cellule

[Guigui]

Hello le forum,

Qui peux m'aider, je m'aventure aveuglement a créer une boucle pour décalé ma céllule d'un cran en bas a cahque tour de boucle....

mais z'arrive paaas

Sub saut()
Dim b As Integer
n = InputBox('taper un chiffre')
ActiveCell.Value = n
For b = 1 To 5
Range('A & b').Select ' C LA QUE CA COINCE ....
ActiveCell.Value = n + 1
Next b
End Sub

Si quelqu'un peux m'ouvrir les yeux ....

Merci par avance pour votre aide..

A+
guillaume

 

[myDearFriend!]

Bonsoir Guigui,

Tu peux essayer :

Sub saut()
Dim b As Byte, n As Variant
      n = Application.InputBox(Prompt:='taper un chiffre', Type:=1)
      If n = False Then Exit Sub
      ActiveCell.Value = n
      For b = 1 To 5
            ActiveCell.Offset(b, 0).Value = n + 1
      Next b
End Sub

Dans ce morceau de code, j'utilise Cellule.Offset(N lignes, N colonnes) qui te permet de décaler la cible par rapport à une cellule de base. Tu peux le faire de façon positive (pour descendre dans la feuille ou aller sur la droite) ou négative (pour remonter dans la feuille ou aller sur la gauche).

Par ailleurs, avec VBA, il n'est point besoin de sélectionner (.Select) une cellule pour en changer sa valeur.

Cordialement.

Message édité par: myDearFriend!, à: 12/04/2005 20:01

 

[Guigui]

Hello le forum, hello myDearFriend!

Désolé pour le temps de réponse ....

Merci pour ton code c toute a fait ca,

par contre, comment faire pour incrémenter 'n' à chaque saut de ligne ?

présentement : 1,2,2,2,2
pour avoir : 1,2,3,4,5

Merci d'avance pour ton aide
Les autres petits genies sont les bienvenue

A+
Guillaume

 

[porcinet82]

salut,

tu as juste a rajouter la ligne de code suivante (en rouge) et ca devrait fonctionner

For b = 1 To 5
ActiveCell.Offset(b, 0).Value = n + 1
n = n + 1
Next b


bon courage,
@+

Message édité par: porcinet82, à: 13/04/2005 16:23

 

[Guigui]

hello a tous

Merci porcinet pour cette précision...

Sais tu, comment faire pour que la prochaine fois que je lance le module ma suite numerique recommence sur la cellule en dessous ou c arreté la fois précedente ??

Merci d'avance pour ton aide ..

A+ guillaume