Boucle sur décalage cellule

Guigui · 12 Avril 2005

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

Code:

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! · 12 Avril 2005

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 · 13 Avril 2005

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 · 13 Avril 2005

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 · 13 Avril 2005

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

Boucle sur décalage cellule

Guigui

Guest

myDearFriend!

XLDnaute Barbatruc

Guigui

Guest

porcinet82

XLDnaute Barbatruc

Guigui

Guest

Discussions similaires