Compteur - incrémentation [Excel VBA] - VB/VBA/VBS - Programmation
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.
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
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 !