[Excel VBA] Compteur - incrémentation

Compteur - incrémentation [Excel VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 18-11-2006 à 17:43:37    

Salut !!
 
alors un exemple simple dans la cellule A1 à A10 j'ai des nombres de 20 à 30.
JE souhaite incrémenter (ou changer de valeur) A1 à A10 avec un compteur.
Donc je sélection dans AFFICHAGE - BARRE D'OUTIL - FORMULAIRE le compteur.
Je le place dans B1 pour incrémenter ou décrémenter la cellule A1 manuel avec la souris.
Ca marche, la cellule B1 est bien lié à A1.
 
Le problème c'est que je n'arrive pas à recopier la plage de cellule du compteur, B2 est lié à A1 alors qu'il devrait le faire automatiquement lorsque je recopie avec la saisie automatique.
Dans le compteur A1 il est bien écrit : cellule lié : A1 et non $A$1.
Dans le compteur B1 il est bien écrit : cellule lié : A1 et non $A$1.
 
J'ai 500 cellules à recopier comme çà, comment faire (avec un programme VBA ??) pour que la recopie se fasse automatiquement en liant bien les cellules compteur B1 à A1, compteur B2 à A2... etc.
J'ai essayé toute manipulation, çà ne marche pas !
 
merci !

Reply

Marsh Posté le 18-11-2006 à 17:43:37   

Reply

Marsh Posté le 18-11-2006 à 20:33:37    

Bonsoir earthsong
 
Pourquoi utiliser VBA? Tu sélectionnes B1.Tu fais apparaître le grand + en te positionnant à l'extrémité de la cellule. Tu appuies sur Ctrl de manière à faire apparaître le petit + de la recopies et là tu doubles-cliques. Ta formule est recopiée sans avoir à connaître la dernière cellule de la collone B qui est remplie.

Reply

Marsh Posté le 18-11-2006 à 21:08:37    

Bonsoir,
S'assurer du numero du premier compteur
ajuster la valeur decal pour prendre le premier numéro
 
Sub ajustspin()
decal=0  ' le premier spinner à ici le numéro 1
For i = 1 To 10
monspi = "Spinner " & (i+decal)
 
 ActiveSheet.Shapes(monspi).Select
    With Selection
       
        .Min = 0
        .Max = 30000
        .SmallChange = 1
        .LinkedCell = "a" & i
        .Display3DShading = True
    End With
    Next i
End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed